ragno

MSXML2.ServerXMLHTTP POST http://giorgio-fontana.it/id.asp?Pwd=...

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "POST", "http://giorgio-fontana.it/id.asp?Pwd=...", false 
objXML.Send ' con POST si possono passare parametri con la solita sintassi

    if InStr(objXML.responseText,"...") >0  then
        Response.Write "<h3>Login Successful!</h3>"
    else
        Response.Write "<h3>Login Failed!</h3>"
    end if
Response.Write Mid(Replace(objXML.responseText,"<","<br/><"),1,5000)

Login Failed!