Verificar dominio

Pessoal estou com um pequeno problema neste codigo ja tentei de varias maneira
para conrrigir um erro em alguns SETE conforme abaixo:
www.uol.com [color=blue]diz que esta disponivel para registro[/color]
www.redeglobo.com [color=blue]diz que esta disponivel para registro[/color]
www.redeglobo.com.br [color=blue]diz que esta disponivel para registro[/color]
<%
Response.Buffer = false
Dim criaconexao 'Variavel para o Objeto XMLHTTP
Dim pagina 'Variavel para guardar retorno da consulta
Dim mensagem1 ' variavel
'refeito por lucas forever
If request.form("dominio")<>"" then
' Inseri a url que você está buscando
procuraurl = "http://www." & request.form("dominio")&""&request.form("pont")&""
dominio = request.form("dominio")&""&request.form("pont")&""
' Cria um objeto XML
Set criaconexao = Server.CreateObject("Microsoft.XMLHTTP")
' Conecta-se com a url buscada
criaconexao.Open "GET", ""&procuraurl,false 
on error resume next
criaconexao.Send
pagina = criaconexao.getResponseHeader("Date")
' Retorna a busca
if pagina ="" then
mensagem1 = "www."&dominio&"<br><br><strong><font color='#009900'>Parabéns, domínio disponivel para registro<br</font></strong>"
else 
mensagem1 = "www."&dominio&"<br><br><strong><font color='#FF0000'>Impossível, domínio já registrado<br></font></strong>"
end if
Set criaconexao = Nothing
end if
%>
<html>
<head>
<title>Registro de dominios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type="text/javascript" src="prototype.js"></script>
<script>
function Verifica(event){
var keyCode = event.keyCode ? event.keyCode : event.which ? event.which : event.charCode;
var caract = new RegExp(/[a-z0-9-áéíóúç\b\.-]+$/i);
var caract = caract.test(String.fromCharCode(keyCode));
if(!caract){
    //alert("Caracter inválido: " +String.fromCharCode(keyCode));
    keyCode=0;
    return false;
    }
}
            function GetDominio(){    
        if (document.formDom.dominio.value.length < 3){
        alert("Por favor, digite um nome para seu domínio !");
        document.formDom.dominio.focus();
        return false;
        }
            Element.update("content","<span class='txt2'>Pesquisando, aguarde...</span><br /><br /><img src='images/iga_com_br.gif' width='146' height='12'>");
          var myAjax = new Ajax.Updater({success: 'content'}, '/Verifica_domino.asp', { method: 'get', parameters: 'dom='+document.formDom.dominio.value + document.formDom.pont.value});

}
        </script>
</head>
<body>
            <p align="justify" class="txt">
           <form id="formDom" name="formDom" method="post" onSubmit="return GetDominio(this);">
               <table  border="0" align="center">
                <tr><td align="right" class="txt">
              <fieldset style="width: 99%;" class="fildweb" >
            <legend><strong>Verifique se o domínio que você quer registrar está disponível </strong></legend>
                 <table  border="0" align="center">
                <tr><td align="right" class="txt">Domínio:<strong> www.</strong> </td>
                  <td><label>
                    <input name="dominio" type="text" class="camp" id="dominio" size="20" maxlength="59" value="<%=request("dominio")%>" onkeypress="return Verifica(event);" />
                    </label>
                      <font color="#990000"><strong><font color="#000000">.</font></strong>
                      <label>
                        <select id="pont" name="pont" class="text">
                        <%
                        lista=".com.br,.com,.net,.adm.br,.br"
                        MTT="com.br,com,net,adm.br,br"
                        arrsetor3=split(request("pont"),", ")
                        arrsetores3=split(lista,",")
                        mostra_form=split(MTT,",")
                        for y = LBOUND(mostra_form) to ubound(mostra_form)
                        response.write"<option value="&arrsetores3(y)
                        for x= LBOUND(arrsetor3) to ubound(arrsetor3)
                        if arrsetor3(x) = arrsetores3(y) then response.write " selected" '" selected='selected'"
                        next
                        response.write">"&mostra_form(y)&"</option>"&vbcr
                        next
                        %>
                        </select>
                      </label>
                    </font></td>
                  <td><input name="Button" type="submit" class="bot" value="Procurar" />
                  </td></tr></table>
                  </fieldset>  
                    </td></tr>
                    <tr><td>                
            <div  id="content" align="center">
            <div align="center">
             <%=mensagem1%> 
             </div>
            <div align="left">         
            <%if pagina = "" then%>
            <a href="#">Registrar este domínio</a>
            <%end if%>
             </div>
    </div>
            </td></tr>
            </table>

           </form>
</body>
</html>
Topicos relacionados
