Código fuente de 'Whois 2.asp'
<html>
<head>
<title>Información sobre dominios. ASP Whois 2. - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Información sobre dominios. ASP Whois 2.<br>
</font></b></p>
<p align="left">Script que permite averiguar si un dominio:<br>
- está disponible "may
be available" o <br>
- ya tiene propietario "The domain is taken".</p>
<body style="font-family: Arial; font-size: 9pt">
<%
If request.form("domain")<>"" then
' Intruduce the url you want to visit
GotothisURL = "http://www." & request.form("domain")
' Create the xml object
Set GetConnection = CreateObject("Microsoft.XMLHTTP")
' Conect to specified URL
GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send
' ResponsePage is the response, then print it out to the page
ResponsePage = GetConnection.getResponseHeader("Date")
' Write response
if ResponsePage="" then
Response.write("This domain name may be available")
else
Response.write("This domain name is taken")
end if
Set GetConnection = Nothing
else
%>
<form method=post action="http://www.asptutorial.info/sscript/Accessremotepages_domain2.asp">
<p align="left"><b>Introduce nombre de dominio y extensión: </b>
<input type=text name=domain size=15 value="domain.com">
<input type=submit value="Ejecutar">
</p>
</form>
<% end if %>