Ragazi ho trovato qyesto script per verificare l'esistenza del dominio, però non funziona.
Il codice è questo:
codice:
<%
' Dominio da controllare
dominio = "asp.net"
' URL da richiamare
url = "http://www.internic.net/cgi/whois?whois_nic=" & dominio & "&type=domain"
' creiamo l'oggetto WinHTTP
Set objHTTP = Server.CreateObject("WinHTTP.WinHTTPRequest.5")
objHTTP.Open "GET", url
' inviamo la richiesta
objHTTP.Send
' codice di stato
if CINT(objHTTP.Status) = 200 then
' testo della risposta
strHTML = LCase(objHTTP.ResponseText)
ProcessaRisposta(strHTML)
else
Response.Write "
Risposta del server remoto: (" & objHTTP.Status & ")"
Response.write objHTTP.StatusText & "</P>"
end if
' un po' di pulizia
Set objHTTP = Nothing
Sub ProcessaRisposta(strHTML)
if instr(strHTML, "no match") or instr(strHTML, "not found") then
Response.write ("Dominio disponibile")
elseif instr(strHTML, "domain name") or instr(strHTML, "no information") then
Response.write ("Dominio occupato")
else
Response.write ("Caratteri non validi nel nome di dominio")
end if
end sub
%>
Però mi da questo errore:
Oggetto Server, ASP 0177 (0x800401F3)
Stringa dell'interfaccia non valida.
/website/assoluto/test.asp, line 16
E la riga 16 è quella in neretto.
Mi aiutate?
Grazie!