subir archivo por xelupload a un ftp

[eberrios]

bueno mi solucion fue esta espero que alguien le ayude


<%
LeServer = "servidor"
Login = "usu"
Password = "pss"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set EcrireFichier = FSO.CreateTextFile("c:\fichier.txt", True)
EcrireFichier.WriteLine ("open " & LeServer)
EcrireFichier.WriteLine (Login)
EcrireFichier.WriteLine (Password)
EcrireFichier.WriteLine ("binary")
EcrireFichier.WriteLine ("put " & "c:\archivo a subir.algo")
EcrireFichier.WriteLine ("bye")
EcrireFichier.Close
Set objShell = Server.CreateObject( "WScript.Shell" )
objShell.Run ("ftp -s:" & chr(34) & "c:\fichier.txt" & chr(34))
Set objShell = Nothing
%>

saludos