rugby.byweb.co.nz

records.byweb.co.nz

stamps.byweb.co.nz

stories.byweb.co.nz

test.byweb.co.nz

vinyls.byweb.co.nz

Software driver downloads

-----------------------------------------------

byweb.co.nz

byweb.net.nz

gigapan.co.nz

navcharts.com

navcharts.co.nz

vinyls.co.nz

vinylsbyweb.com

<% 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 %>

>

<% end if %>