<%
Dim DNS
Dim A

Set DNS = Server.CreateObject("ASPDNS.DNSLookup")
A = DNS.GetIPFromName("www.hotbot.com")
Response.Write "www.hotbot.com = " & A & "<BR>"
A = DNS.GetNameFromIP("196.25.1.1")
Response.Write "196.25.1.1 = " & A
Set DNS = Nothing
%>