' 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=<% =request.servervariables("URL") %>>
<input type=text name=domain size=15 value="domain.com">
<input type=submit value="Find domain name">
</form>
<% end if %>