Semplice XMLHTTP

[slay]

ciao,
ho bisogno di questa cosa....

devo ottenere da una pagina web remota il codice html controllare se su questo codice risiede il link www.sito.it se risiede bene mi visualizza il mex ok se non c'è questo link vi visualizza "errore non c'è il link nella pagina indcata" non so se mi sono spiegato chi mi aiuta???

[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...

[slay]

ciao mi da questo errore???

Tipo di errore:
msxml3.dll (0x800C0005)
Impossibile individuare la risorsa specificata.
/provA.asp, line 9

[viki1967]

ti manca la libreria msxml3.dll sul server su cui lavori.

[slay]

e mo dove la trovo??

[viki1967]

Originariamente inviato da slay
e mo dove la trovo??

dipende se lavori in hosting o in locale... se sei in hosting devi chiedere al tuo provider di eseguire l'installazione... se sei in locale http://www.dll-files.com/dllindex/do...load0UEeS0aIhW

scarica e copiala secondo il tuo s.o.;clicca su Avvio, Esegui, e scrivi il seguente comando in base al tuo sistema operativo:
Se hai Windows 95/98/ME: C:\Windows\System\Regsvr32 msxml3.dll
Se hai Windows NT/2000: C:\Winnt\System32\Regsvr32 msxml3.dll
Se hai Windows XP: C:\Windows\System32\Regsvr32 msxml3.dll

[cavicchiandrea]

Originariamente inviato da slay
e mo dove la trovo??

Prova a vedere se è installata la nuova versione:

 Set xml = Server.CreateObject("MSXML2.XMLHTTP")

[slay]

ho aggiornato la libreria ho fatto come avete detto voi ma niente sempre il solito errore...questo è il codice della pagina

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

xml.Open "GET", "http://www.dablones.org/", 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 
%>

[slay]

[cavicchiandrea]

Originariamente inviato da slay

Non ho capito se hai provato questo:

Set xml = Server.CreateObject("MSXML2.XMLHTTP")