Come devo fare?
Il codice è:
Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function
Function SaveFile(PathFile,Content)
Dim Fso, File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set File = Fso.CreateTextFile("C:\InetPub\wwwroot\File_TXT\up load\utenti.csv",2,true)
File.Write Content
File.Close()
Set File = Nothing
Set Fso = nothing
End Function
call SaveFile("utenti.csv",geturl("http://www.google.it/"))

Rispondi quotando
