<!-- #include file=whoisinc.asp -->
<HTML>
<HEAD>
<title>Check Domain</title>
</HEAD>
<BODY>
<h1>Check Domain</h1>
<form name="check domain" method="post" action="checkdomain.asp">
Check Domain:
www.
<input type="text" name="domain" value="<%=request("domain")%>">
.
<select name="root">
<%
if request("domain")<>"" then
%>
<option><%=Request("root")%></option>
<%
end if
%>
<option>co.uk</option>
<option>org.uk</option>
<option>net.uk</option>
<option>ltd.uk</option>
<option>plc.uk</option>
<option>sch.uk</option>
<option>me.uk</option>
<option>com</option>
<option>net</option>
<option>org</option>
<option>biz</option>
<option>info</option>
<option>edu</option>
<option>museum</option>
</select>
<input type="submit" name="Submit" value="Check Domain"><br>
Display Whois Output<input type="checkbox" name="output" value="true"<%if Request("output") <> "" then Response.Write " Checked" end if %>>
</form>
<%
If Request("domain") <> "" then
set objWhois = New Whois
objWhois.domain = Request("domain")
objWhois.Root = Request("root")
objWhois.Run
%>
<hr>
<h2>Results for "www.<%=request("domain")%>.<%=request("root") %>"</h2>
<%
if objWhois.available = 1 then
%>
<h3>Domain Avalible</h3>
<%
ElseIf objWhois.available = 2 then
%>
<h3>No Infomation</h3>
<%
ElseIf objWhois.available = 3 then
%>
<h3>Error</h3>
<%
ElseIf objWhois.available = 0 then
%>
<h3>Domain Taken</h3>
<%
else
%>
<h3>Error in class<h3>
<%
end if
%>
<%
if Request("output") <> "" then
Response.Write "<h4>Whois Output:</h4><pre>"
Response.Write objWhois.output
Response.Write "</pre>"
end if
%>
<%
end if
%>
</BODY>
</HTML>