Ragazzi ho trovato uno script per verificare la disponibilità di un dominio. Questo però haun piccolo difetto: se nel campo di testo scrivo solo il nome senza inserie l'estensione (.it, .com etc..) mi restituisce pagina bianca, io invece vorrei che dicesse una cosa tipo "attenzione inserisci l'estensione."
Sapete aiutarmi?
Vi posto il codice, in neretto c'è la mia prova di modifica, ma non funziona:
codice:
<%
Response.Buffer = True
Response.Expires = 0
Whois = "http://ufficiopostale.it/strumenti/disponibilita.html?dominio="
Occupato = "Dominio gi&agrave; registrato"

ddxDominio = Request.Form("ddxDominio")
If ddxDominio <> "" Then
ddxDominio = Replace(ddxDominio, "http://", "")
ddxDominio = Replace(ddxDominio, "www.", "")

Estensione = Right(ddxDominio, 3)
If Estensione = null then
response.Write "Inserisci un'estensione valida!"
else 

If Estensione = ".it" Then Estensione = "it"
If Estensione = "nfo" Then Estensione = "info"
ddxDominioNome = Replace(ddxDominio, "." & Estensione, "")

VerificaDomini = Array("it", "com", "net", "org", "info", "biz")
For I = 0 To 5
If Estensione = VerificaDomini(I) Then Valido = True
Next

If Valido = True Then
URL = Whois & ddxDominioNome & "&" & Estensione & "=on"

Set HttpXML = Server.CreateObject("Msxml2.ServerXMLHTTP")
HttpXML.open "GET", URL, False
HttpXML.send
Codice = HttpXML.responseText


strTaglio1 = "STYLE=""letter-spacing: .3pt; font-size: 10pt;"">"
Taglio1 = Instr(Codice, strTaglio1)
Codice = Right(Codice, Len(Codice) - Taglio1)
strTaglio2 = "</TD>"
Taglio2 = Instr(Codice, strTaglio2)
Codice = Left(Codice, Taglio2)

If Instr(Codice, Occupato) = 0 Then
ddxValore = "Il dominio " & ddxDominio & " è disponibile per la registrazione"
Else
ddxValore = "Il dominio " & ddxDominio & " è già stato occupato"
End If

End If
End If
end if
Grazie!