Visualizzare il codice HTML

<%
Dim objXMLHTTP, strURL, strPagina

strURL = Request.Form("strURL")
If Trim(strURL) = "" Then strURL = "http://"
%>

<form method="post">
<input type="text" name="strURL" value="<%=strURL%>" size="80">
<input type="submit" name="b1" value="SPY">
</form>

<%
If Trim(Replace(strURL ,"http://", "")) <> "" Then
Set 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' nowrap>" & strPagina & "</textarea>"

Set objXMLHTTP = Nothing
%>