<%
Dim objXMLHTTP As Object
Dim strURL, strPagina As String
strURL = Request.Form("strURL")
If Trim(strURL) = "" Then
strURL = "http://"
End If
%>
<form method="post" action="">
<input type="text" name="strURL" value="<%=strURL%>" size="80"/>
<input type="submit" name="b1" value="SPY"/>
</form>
<%
If Trim(Replace(strURL, "http://", "")) <> "" Then
objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open("GET", strURL, False)
objXMLHTTP.Send
strPagina = CStr(objXMLHTTP.ResponseText)
Else
strPagina = "Inserire un percorso valido..."
End If
Response.Write("<textarea name=" + "html" + "rows=" + "50" + "cols=" + "100" + ">" & strPagina & "</textarea>")
objXMLHTTP = Nothing
%>