DNS

Please enter your requested Domain Names.

Choice #	Domain Name
1
2
3
4

First Name
Last Name
Your Current Email Address

<% If Request.QueryString("lookup") <> "" Then Dim whoisdll Dim result Set whoisdll = Server.CreateObject("WhoisDLL.Whois") result = whoisdll.whois(Request.QueryString("lookup")) Response.Write "Whois server: " & whoisdll.WhoisServer & "
" Response.Write whoisdll.nl2br(result) End If %>