<%@ Language = "VBScript"%>

<%
filename = "LocalFile.txt"
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set myFile = FSO.CreateTextFile(Server.MapPath(filename), 8, true)
MyFile.WriteLine "YeeHaaa"
myFile.Close

set myFile2 = FSO.CreateTextFile(Server.MapPath("test.ftp"), 8, true)
myFile2.WriteLine "open machinename 21" & chr(13)
myfile2.WriteLine "user Anonymous Password" & chr(13)
myfile2.WriteLine "put " & filename & " RemoteFile.txt"
myfile2.WriteLine "quit"
myfile2.Close

Set WshShell = server.CreateObject("WScript.Shell")
runStr="%comspec% /c ftp -n -v -d -s:test.ftp>logfile.txt"
rc=WshShell.Run (runStr, 1, TRUE)
%>