Este código sirve para implementar un sistema de busqueda de dominios disponibles y en caso de que ya exista una dirección, mostrar la información relacionada a ella.
<%
'Code by
[email protected]
On Error Resume Next
Response.Buffer = True
Server.ScriptTimeout = 1200
%>
<html>
<head>
<title>US Whois v1</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000066" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<%
Dim objXML, objXSL, objFSO
Dim strFile, strFileName, strXSL
Dim strURL, theString, whois_name
' edita la siguiente línea para buscar alguna dirección en espécifico...
domain = "www.maestrosdelweb.com"
strURL = "http://www.netsol.com/cgi-bin/whois/whois?STRING="& Domain & "&SearchType=do&STRING2.x=14&STRI NG2.y=14"
whois_name = "Network Solutions"
'Create Object
Set objXML = CreateObject("Microsoft.XMLHTTP")
' Get Code
objXML.Open "get", strURL, False
objXML.Send
xmlGet = objXML.responseText
if InStr(xmlGet,"is available") > 1 then
sHTML = " is Available</b></font><font color=""#000066""><br> ;<br> This is the raw whois output provided by " & whois_name
elseif InStr(xmlGet,"NOT FOUND") > 1 then
sHTML = " is Available</b></font><font color=""#000066""><br> ;<br> This is the raw whois output provided by " & whois_name
elseif InStr(xmlGet,"Not found") > 1 then
sHTML = " is Available</b></font><font color=""#000066""><br> ;<br> This is the raw whois output provided by " & whois_name
elseif InStr(xmlGet,"No match") > 1 then
sHTML = " is Available</b></font><font color=""#000066""><br> ;<br> This is the raw whois output provided by " & whois_name
else
sHTML = " is not available</b></font><font color=""#000066""><br> ;<br> This is the raw whois output provided by " & whois_name
my1String = "<pre>"
my2String = "</pre>"