<%
if len(Request.Form("DOMAINNAME")) <> 0 then
Dim objXML, objXSL, objFSO
Dim strFile, strFileName, strXSL
Dim strURL, theString

' URL
strURL = "http://www.networksolutions.com/cgi-bin/whois/whois?STRING="&Request.Form("DOMAINNAME")&"&STRING=Search"

'Create Object
Set objXML = CreateObject("Microsoft.XMLHTTP")

' Get Code
	objXML.Open "get", strURL, False
	objXML.Send	
	xmlGet = objXML.responseText

'Search 
if instr(1,xmlGet,"Your selection is available for registration",1) then
	sHTML = "Domain not registered !!!"
	Color = "green"
else
	sHTML = "Domain  registered !!!"
	Color = "red"
	
'________________________________________________________________
my1String = "<pre>"
my2String = "</pre>"

strFind1 = instr(1,xmlGet,my1String,1)
strFinal1 = mid(xmlGet,strFind1,len(my1String))

strFind2 = instr(1,xmlGet,my2String,1)
strFinal2 = mid(xmlGet,strFind2,len(my2String))

RegisterName = mid(xmlGet,strFind1,(strFind2-strFind1))

end if

Set objXML = Nothing
end if
%>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" align=center>
    <form method="post" action="<%=request.servervariables("SCRIPT_NAME")%>" id=form1 name=form1>
    <FONT color=#002e5b face=geneva,arial,sans-serif size=2>
    <B>Domain Name </B></FONT>
    <font color="#002e5b" face="geneva,arial,sans-serif" size="1">(orn: microsoft.com)</font>
    <FONT color=#002e5b face=geneva,arial,sans-serif size=2><B>:<br>
    <input type="text" name="DOMAINNAME" size="69"></B>
    </FONT>
    <hr>
	<input type="Submit" value="Check Domain" id=Submit1 name=Submit1>
	<INPUT type="button" value="Close" onclick="window.self.close()" id=button1 name=button1>
	</form>
    </td>
  </tr>
</table>

<%if len(sHTML) <> 0 then%>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
    <td width="100%" align="center">
    <hr>
    <b><font color="#002e5b" face="geneva,arial,sans-serif" size="2">Query Result :</font></b>
  </tr>
  <tr>
    <td width="100%" align="center">
<table border="1" cellspacing="1" cellpadding="1" align="center" bgcolor="#D6D6D6" bordercolorlight="#FFFFFF" bordercolordark="#CCCCCC" bordercolor="#FFFFFF">
  <tr>
    <td width="100%" align=center>
    <FONT color=#002e5b face=geneva,arial,sans-serif size=3>--==     <B><%=UCASE(Request.Form("DOMAINNAME"))%></b>     ==--</font><BR><BR>
    <FONT color=<%=Color%> face=geneva,arial,sans-serif size=2><B><%=sHTML%><BR></b></font>
   </td>
  </tr>
  <TR>
   <td width="100%" align=left>
    <FONT color="#000000" face=geneva,arial,sans-serif size=2><p align=left>
    <pre><%=RegisterName%></pre></p>
    </font>
    </td>
  </tr>
</table>

  </tr>
  <tr>
    <td width="100%" align="center">
    <hr>
  </tr>
  <tr>
    <td width="100%" align="center">
    
  </tr>
</table>
<%end if%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" align="center">

  </tr>
  <tr>
    <td width="100%" align="center">
    <hr>
  </tr>
  <tr>
    <td width="100%" align="center">
   <font color="#002e5b" face="geneva,arial,sans-serif" size="1">Copyright © </font><font color="#002e5b" face="geneva,arial,sans-serif" size="1">2001.
   Kadir Mustafa.<br>
   <a href="mailto:kadirmustafa@hotmail.com">kadirmustafa@hotmail.com</a></font>
  </tr>
</table>

quote:

---

Here's one I found quite a while ago (btw, is the search here down? I was trying to search the archives and got a contact the system administrator error).

---