Espero esto pueda ayudarte:
<html>
<head>
</head>
<title></title>
<body>
<%
if request("mode")="check" then
'Indirizzo del sito
StrURL = request("url")
Set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
On Error Resume Next
objXMLHTTP.Open "GET", StrURL, false
objXMLHTTP.Send
statuscode = objXMLHTTP.Status
Set objxml = Nothing
if CInt(statuscode) = 12007 then
Response.write "Il dominio è libero.<br>"
else
Response.write "Il dominio è già stato registrato.<br>"
end if
else
%>
<b>VERIFICA LA DISPONIBILITA'DEL DOMINIO</b><br>
Inserire il nome di dominio da verificare, seguendo la sintassi<br>
<b>
www.nomediminio.estensione</b><br>
<form action="pagina.asp?mode=check" method="post" name="dominio">
<INPUT type="text" id=text1 name="url" value="http://" size=40><BR>
<INPUT type="submit" value="RICERCA" id=submit1 name=submit1>
</form>
<%
end if
%>
</body>
</html>
Ciao,
dover