ASP Upload

[neofilo]

yo tengo esto para agregar el archivo a la base de datos, es sql server 2005

Nombre = File.Path

Nombre_archivo = mid(Nombre,32,99999)

Directorio = server.MapPath("/Upload")

directorioOrigen = Directorio&Nombre_archivo

'evito duplicados con los nombres

Randomize ( ) 'Generamos los numeros aleatorios
random1 = Int ( 10 * Rnd )
random2 = Int ( 10 * Rnd )
random3 = Int ( 10 * Rnd )
random4 = Int ( 10 * Rnd )
random5 = Int ( 10 * Rnd )


Nombre_nuevo = random1&random2&random3&random4&random5&"-"&Nombre_archivo

Carpeta = Directorio&cooperativa
Carpeta = Directorio&cooperativa&"/"


if (Not fso.FolderExists(Carpeta)) then
set nfolder = fso.createfolder(Carpeta)
'Response.Write("Carpeta Generada con exito<br>")
else
'response.Write("Directorio ya existe<br>")
end if
directorioOrigen = Directorio&Nombre_archivo

Session("nombreWeb") = Nombre_actual

//////////////////////////////////

strSQLInsertar = "INSERT INTO Archivos (nombre) Value ('"&nombreWeb&"')


el codigo no está completo pero he intentado copiar las partes mas importantes.