funzione estrarre url

[simones70]

Salve,

esiste una funzione asp che riconosce se un nomedominio è registrato?

tipo

if funzione(www.nomedominio.ext)=true then....else....end if

[Roby_72]

Potresti "pingarlo" con XMLHTTP: se ottieni come risposta 200 allora esiste.
Cerca nel forum.

Roby

[simones70]

Ho trovato questo script solo che funziona solo se vc_url contiene un url esistente altrimenti invece di comparire la scritta il file non esiste si genera un errore alla riga xmlhttp.Send

Come mai???

<%

vc_url = "http://www.nomesito.ext/"
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

xmlhttp.Open "GET", vc_url, False
xmlhttp.Send

'quì recupero il contenuto testuale
'pagetxt = CStr(xmlhttp.ResponseText)

'response.write "Testo-->"&pagetxt

'quì controllo lo stato della pagina
pagestatus = xmlhttp.Status
Set xmlhttp = Nothing

'se lo stato della richiesta è = 200 allora la pagina è disponibile

If CInt(pagestatus) = 200 Then
FileExist = true
response.write "Il file esiste"
Else
FileExist = false
response.write "Il file non esiste"
end if
%>