Holas, tengo una pagina whois, no se porq ahora no funciona, antes me daba los datos de la consulta ahora me sale error, aqui les pongo el codigo, espero q me puedan ayudar a solucionarlo:
Este la pagina q recibe los datos:
<%
dim a
mDomain = request.form("mDomain")
root= request.form("root")
mDomain=mDomain+root
on error resume next
set mWhoIs = Server.CreateObject("DIWhoIs.DiWhoIs")
mWhoIs.Host = "whois.networksolutions.com"
mWhoIs.Port = 43
mWhoIs.Domain = mDomain
mWhoIs.Lookup
a=mWhoIs.Result
if err.number<>0 then
response.write "
La busqueda que ha realizado ha superado el tiempo "
response.write "de espera en el servidor de Internic por favor realize la busqueda "
response.write " nuevamente "
else
a = InStr(a,"No match for")
IF a = 0 THEN
response.write "LatinServer.net - EL NOMBRE DEL DOMINIO ESTA EN USO" response.write " <br>"
response.write "busqueda realizada en rs.internic.net ha revelado que el nombre de dominio "
response.write ""&mDomain
response.write "esta siendo utilizada por otra compañia"
response.write " o persona individual. no puedes registrar este dominio. <a href=""../default.htm"">Pulsa "
response.write " aqui</a> para volver a buscar, pulsa debajo para ver para quien esta "
response.write " registrado este dominio"
response.write "<br>"
response.write " <FORM METHOD=post ACTION=""whoisresult.asp"">"
response.write " <INPUT TYPE=""hidden"" NAME=""mDomain"" VALUE=" &mDomain& " style=""LEFT: 86px; TOP: 120px"" """""
response.write " >"
response.write " <INPUT TYPE=""hidden"" NAME=""domain"" VALUE=""paginascelulares.com"">"
response.write " <INPUT TYPE=""hidden"" NAME=""root"" VALUE=""com"">"
response.write " <INPUT TYPE=""hidden"" NAME=""raw"" VALUE=""1"">"
response.write " <INPUT TYPE=""hidden"" NAME=""lookup"" """""""""
response.write " VALUE=""OK"">"
response.write " <INPUT TYPE=""hidden"" NAME=""prv"" VALUE=""http://www.simple-hosting.com/"">"
response.write " <INPUT TYPE=""hidden"" NAME=""cdomain"" VALUE=""2.6"">"
response.write " <INPUT TYPE=""submit"" VALUE=""muestrame la salida del WHOIS"">"
response.write " </FORM>"
end if
IF a > 0 THEN
response.write "LatinServer.net - EL NOMBRE DEL DOMINIO ESTA DISPONIBLE"
response.write "<BLOCKQUOTE> la busqueda realizada sobre "
response.write " rs.internic.net ha revelado que <strong>" &mDomain
response.write "</strong> "
response.write " esta disponible. Puedes registrar este Dominio. Registrate en el <A href=""default.asp?dominio="&mDomain&""">Formulari o Online</A>"
response.write " para adquirir este servicio usando este dominio. "
response.write "<P><a href=""../default.htm"">Pulsa aqui</a> para volver a la pagina anterior"
end if
' end if
%>