Mi da il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Server.URLDecode'

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

Non riesco a copiare i caratteri accentati perchè non li legge.

Il codice è il seguente dove sbaglio:

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\upload\utenti.txt",2,true)
File.Write Content
File.Close()
Set File = Nothing
Set Fso = nothing

End Function
call SaveFile("utenti.txt",geturl("http://localhost:81/prova.asp"))