XML.send: error '800c0005' se URL non esiste

[ID-entity]

Esiste il modo appurare l'esistenza di un url prima di inviare la richiesta tramite l'oggetto XMLHTTP?

Se il dominio è esistente tramite xml.status ottengo lo status di un url, OK se viene trovata la pagina. Se però l'url non esiste mi viene restituito un errore:

error '800c0005' alla riga xml.send quindi prima che possa richiedere lo status.


Avevo pensato di richiedere la pagina, sempre tramite XML, ad un servizio whois tipo http://www.whois.sc quindi analizzarne il contenuto per vedere se il dominio esiste.


Conoscete un modo più immediato?


Grazie.

[Corwin]

Gestire l'errore, magari ?

[ID-entity]

Si, infatti alla fine ho ottenuto ciò che volevo in quel modo

[cavicchiandrea]

Originariamente inviato da ID-entity
Esiste il modo appurare l'esistenza di un url prima di inviare la richiesta tramite l'oggetto XMLHTTP?

Se il dominio è esistente tramite xml.status ottengo lo status di un url, OK se viene trovata la pagina. Se però l'url non esiste mi viene restituito un errore:

error '800c0005' alla riga xml.send quindi prima che possa richiedere lo status.


Avevo pensato di richiedere la pagina, sempre tramite XML, ad un servizio whois tipo http://www.whois.sc quindi analizzarne il contenuto per vedere se il dominio esiste.


Conoscete un modo più immediato?


Grazie.

Riesumo questo post chedendo a ID-entity visto che riuscito a risolvere il problema come a fatto, l'invito chiaramente e rivoltoa tutti gli iscritti

Un grazie 1000

Ciao Andrea

[cavicchiandrea]

Ho risolto questo script testato funzina perfettamente

<%@ Language="VBScript" %>
<%
Dim Link
Dim objXMLHTTP
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Link = Request("url")


'Instanzio l'oggetto XMLHttp
Set objXMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
on error resume next

'Costruisco e invio la richiesta
objXMLHttp.Open "GET", link, False
objXMLHttp.Send
IF Err.number = 0 Then
'Stampo la risposta
Response.Write(objXMLHttp.statusText)
else
Response.Write("url inesistente")
End if
'Faccio pulizia
Set objXMLHttp = Nothing

End if
%>
Grazie comunque ho il serito lo script magari puo servire in futuro