modificare script per verifica dominio

[zetaweb]

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:

<%
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!

[Roby_72]

If Estensione <> "it" or Estensione <> "com" or Estensione <> "net" or Estensione <> "org" or Estensione <> "nfo" or Estensione <> "biz" then
response.Write "Inserisci un'estensione valida!"
else 
....

Roby

[zetaweb]

Roby ho provato come dici, ma mi dice sempre che l'estenzione non è valida, anche quando inserisco un indirizzo corretto.
Ti riposto tutto il codice:

              <%
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 = ".it" Then Estensione = "it"
If Estensione = "nfo" Then Estensione = "info"

If Estensione <> "it" or Estensione <> "com" or Estensione <> "net" or Estensione <> "org" or Estensione <> "nfo" or Estensione <> "biz" then
response.Write "Inserisci un'estensione valida!"
else

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
%>
<%=ddxValore%>

Puoi aiutarmi ancora?
Grazie

[Roby_72]

Estensione = Right(ddxDominio, 3)
response.write Estensione:response.end

Cosa ottieni?

Roby