Tweet
domain lookup script installation in BV
Hi I have this script for looking up the availability of domain names and I need help in installing into a BV page.
The script is as follows.....
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 is 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 %>
Thank you.
The script is as follows.....
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 is 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 %>
Thank you.
Comment