home *** CD-ROM | disk | FTP | other *** search
- <%
- ' This file is provided as part of ASP Power Widgets Samples
- '
- ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
- ' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
- ' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
- ' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
- ' PURPOSE.
-
- ' Copyright 1997-1998. All rights reserved.
- ' Dalun Software Inc. ASP Power Widgets
- ' http://www.dalun.com/register.html
- ' email: techsupport@dalun.com
- ' Revision History:
- ' 1.1.1 ASP changes. May 14,99
- ' 1.1.2 Added RegistrationCode property. June 15,99
- ' Added Timeout Property.
- ' 1.1.3 Modified for Internic changes. July 27,99
- ' Note: Requires MSWinsck.ocx.
- ' You have 30 days to evaluate the component.
- %>
-
- <% Response.Buffer = True%>
- <HTML>
- <META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
- <BODY bgColor=#ffcc00 link=#006699 text=#000000 vLink=#666633>
-
-
- <TABLE bgColor=#ffcc00 border=0 cellPadding=0 cellSpacing=0 width=427>
- <TBODY>
- <TR>
- <TD colSpan=3 width=344>
- <IMG height=23 src="images/register_a_web_address.gif"
- width=344>
- </TD>
- <TD rowSpan=4 width=73><A
- href="http://www.networksolutions.com/purchase/index.html">
- <IMG
- alt="Seach for a domain name" border=0 height=48 hspace=0
- src="images/search_for_it.gif" vspace=23
- width=73></A>
- </TD>
- <TD rowSpan=5 width=10>
- </TD></TR>
-
- <FORM action=DnsQuery.asp method=post id=form1 name=form1>
- <TR>
- <TD colSpan=2 noWrap vAlign=center><FONT
- face="Arial, Helvetica, sans-serif" size=2>www.</FONT>
- <INPUT maxLength=26 name=STRING size=22 value="<%=Request("String")%>">
- <SELECT name=TLD size=1>
- <OPTION <%If Request("TLD")="" then%>selected<%End if%><%If Request("TLD")=".com" then%>selected<%End if%> value=.com>.com</OPTION>
- <OPTION <%If Request("TLD")=".net" then%>selected<%End if%> value=.net>.net</OPTION>
- <OPTION <%If Request("TLD")=".org" then%>selected<%End if%> value=.org>.org</OPTION>
- <OPTION <%If Request("TLD")=".edu" then%>selected<%End if%> value=.edu>.edu</OPTION>
- </SELECT>
- </TD>
- <TD noWrap vAlign=center>
- <INPUT border=0 height=21 name=Submit
- src="images/go.gif" type=image value=SUBMIT
- width=29> </TD>
- </TR>
- </FORM>
-
- <TR>
- <TD noWrap vAlign=center><FONT
- face="Arial, Helvetica, sans-serif" size=1><B>1.</B>enter a name, word or
- phrase</FONT></TD>
- <TD noWrap vAlign=center><FONT
- face="Arial, Helvetica, sans-serif" size=1><B>2.</B>choose a domain</FONT></TD>
- <TD noWrap vAlign=center><FONT
- face="Arial, Helvetica, sans-serif" size=1><B>3.</B>click GO!</FONT>
- </TD></TR>
- <TR>
- <TD colSpan=3 noWrap><FONT color=#333333
- face="Arial, Helvetica, sans-serif" size=1>Search for a Web Address
- (domain name) with no obligation!</FONT></TD></TR>
- <TR></TR></TBODY></TABLE>
-
- <%
- Dim sDn, sResp
-
- if Trim(Request("String")) <>"" Then
- Server.ScriptTimeOut = 150
- sDn=Trim(Request("String")) & Request("TLD")
- Set oDnsQuery = CreateObject("ASPPW.WhoisQuery")
-
- 'oDnsQuery.RegistrationCode="" 'String expression. You may put your reg code here, if you don't want to use the RegTool.exe
-
- 'oDnsQuery.WhoisServer="rs.internic.net" 'You don't have to specify rs.internic.net, the default value.
- 'oDnsQuery.WhoisServerPort = 43
-
- oDnsQuery.Timeout = 120 '120 Seconds.
-
- if oDnsQuery.SendQuery(sDn) = true then
- sResp=oDnsQuery.GetResponse 'Please refer to the sample below
- Response.write "<pre>"
- Response.write sResp
- Response.write " </pre><br>"
-
- if oDnsQuery.IsRecordFound = false then
- response.write "No match for this query."
- end if
-
- 'Sample for Domain name query
- If Request("DispFields") <> "" Then
- response.write "<pre>Registrant: " + oDnsQuery.GetRegistrant + "</pre><br>"
- response.write "<pre>DomainName: " + oDnsQuery.GetDomainName + "</pre><br>"
- response.write "<pre>AdministrativeEmail: " + oDnsQuery.GetAdministrativeEmail + "</pre><br>"
- response.write "<pre>TechnicalEmail: " + oDnsQuery.GetTechnicalEmail + "</pre><br>"
- response.write "<pre>ZoneEmail: " + oDnsQuery.GetZoneEmail + "</pre><br>"
- response.write "<pre>billingEmail: " + oDnsQuery.GetbillingEmail + "</pre><br>"
- response.write "<pre>RecordLastUpdateTime: " + oDnsQuery.GetRecordLastUpdateTime + "</pre><br>"
- response.write "<pre>RecordCreateTime: " + oDnsQuery.GetRecordCreateTime + "</pre><br>"
- response.write "<pre>DatabaseLastUpdateTime: " + oDnsQuery.GetDatabaseLastUpdateTime + "</pre><br>"
- response.write "<pre>DomainServers: " + oDnsQuery.GetDomainServers + "</pre><br>"
- response.write "<pre>AdministrativeContact: " + oDnsQuery.GetAdministrativeContact + "</pre><br>"
- response.write "<pre>TechnicalContact: " + oDnsQuery.GetTechnicalContact + "</pre><br>"
- response.write "<pre>ZoneContact: " + oDnsQuery.GetZoneContact + "</pre><br>"
- response.write "<pre>BillingContact: " + oDnsQuery.GetBillingContact + "</pre><br>"
-
- response.write "If you are quering an ip address:<br>"
- response.write "<pre>HostName: " + oDnsQuery.getHostName + "</pre><br>"
- response.write "<pre>Coordinator: " + oDnsQuery.GetCoordinator + "</pre><br>"
- End if
- else
- response.write oDnsQuery.GetLastErrDescription
- end if
-
- Set oDnsQuery = Nothing
- End if
-
- %>
- <p align="right"><a href="http://www.dalun.com"><font face="Verdana, Arial" size="1">Dalun Software, Inc. </font></a>
-
- </BODY></HTML>
-