Codigo ASP para subir archivos al Servidor, ¡GRATIS!

[k3n]

Pues primero, lo que he hecho es colocar el código aquel de la función SaveFiles:

' ************************************************** **
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = "C:\Inetpub\wwwroot\"
' ************************************************** **

function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
resumen = "El nombre del archivo especificado en el formulario no es valido en el sistema."
end if
'comentar la siguiente linea si no se desea mostrar el resumen
' SaveFiles = resumen
end function

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Hace el upload de los archivos enviados y muestra el resumen
response.write SaveFiles()
end if

Pongo el "if" final para que apenas se haga el submit, suba los archivos al servidor. Pero ni bien entra a la página, tengo algunas variables que ya vienen de la página anterior, y cuando trato de usar el upload.form("nombre"), y al momento de usar la variable, me dice que "Type Mismatch".

Set Upload = New FreeASPUpload --> seteo del Upload, porque sino me dice que "Object Required"

doc = Upload.Form("doc")

...

if doc = 0 then --> aquí es la línea del error "Type Mismatch".


Además, para poder usar ese "Upload.Form", tengo que setear el Upload: Set Upload = New FreeASPUpload. Yo asumo que estoy usando mal los métodos del Upload. Además, las variables que vienen del form anterior, que no es multipart, también tienen que ser usadas en el que sí es multipart.