|
|
|
|
|
|
|
|
|
|
|
|
| Check the Domain Availability |
<%
If request.form("domain")<>"" then
' Intruduce the url you want to visit
GotothisURL = "http://www." & request.form("domain")& request.form("ext")
' 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(" Congratulations, ")
Response.write("" & gotothisURL & "")
Response.write(" is Available ")
else
Response.write(" " & gotothisURL & "")
Response.write(" This domain name is already taken by others, try another name.")
end if
Set GetConnection = Nothing
end if
%>
|
| |
|
|
|
|
|
|