Semplice XMLHTTP

[Manzo]

<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", "http://www.miosito.it/", False

xml.Send

' Specify the content type to tell the browser what to do:
Response.ContentType = "TEXT"

' Binarywrite the bytes to the browser
' Response.BinaryWrite xml.responseBody
Response.write cleanHTMLcode(xml.responseText)
Set xml = Nothing
%>

Questo è il codice.... cerca instr la corrispondenza che desideri...