Page list to in house server sites
katherinemansfields.byweb.co.nz
|
----------------------------------------------- <% 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 %> |