'Da modificare l'url o acquisirla col metodo POST o GET
url = "http://www.mongeinformatica.it/"
'Creazione Istanza Controllo Inet
Set inet = Server.CreateObject("InetCtls.Inet.1")
Inet.protocol = 4 'HTTP
Inet.remoteport = 80
Inet.accesstype = 1 'Direct connection to internet
Inet.requesttimeout = 60 'in seconds
'Timeout
inet.RequestTimeOut = 20
inet.Url = url
'Download della pagina web
sHTML = inet.OpenURL()
'Regular expression (è un esempio)
Set rText = New regexp
rText.Pattern = "<H1>(.*)<\/H1>"
rText.Global = False
rText.IgnoreCase = True
'Esecuzione della regular expression nel codice HTML
Set objCols = rText.Execute( sHTML )
For Each objMatch in objCols
sText = sText & objMatch.Value
Next
'Pulisce tutto
Set rText = Nothing
Set objCols = Nothing
'E' un esempio
sText = Replace(Replace(sText, "<H1>", ""), "</H1>", "")
%>
<HTML>
<HEAD>
<TITLE>Pagina prelevata</TITLE>
</HEAD>
<BODY>
La pagina è <%=sText %></P>
<%response.write(inet.responsecode)%>
<%response.write(inet.responseinfo)%>
</BODY>
</HTML>
Rispondi quotando
mi ero dimenticato di scrivere che avevo risolto...scusate 