Originariamente inviato da _stefan_76
Questo è il codice che uso :
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
'Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", "http://www.www.it/admin/anagrafica.asp?richiesta=lista", False,
xml.Send
strHtml = xml.responseText
Set FSO = CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath("/download/prova2.txt")
Set f = FSO.CreateTextFile(sPath, True)
f.WriteLine(strHtml)
f.Close
Set f = Nothing
Set FSO = Nothing
set xml = Nothing
%>
Setta questa stringa:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

anzichè:

Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

e poi togli la virgola nella riga rossa così:

xml.Open "GET", "http://www.www.it/admin/anagrafica.asp?richiesta=lista", False

A me funziona il tuo codice con queste modifiche