<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<%
' ****************************************************
' 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:\Leonardo\Clientes\iPeso\Aplicativo\files"
' ****************************************************
Function SaveFiles
Dim Upload, ks, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
If Err.Number <> 0 then Exit function
ks = Upload.UploadedFiles.keys
if (UBound(ks) = -1) then resumen = "Erro."
SaveFiles = resumen
' response.Write(Upload.getForm())
dim item
for each item in upload.FormElements
response.write item & "="
response.write upload.FormElements.item(item) & " "
next
end function
%>
Test Free ASP Upload
Seu cadastro está quase finalizado, faltam agora os 2 passos abaixo:
<%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write SaveFiles()
end if
%>