<% dim cAction dim cTld dim cSld dim Enom dim bAvailable dim bError dim cErrorMsg ' Get vars cAction = Request.Form( "action" ) cTld = Request.Form( "tld" ) cSld = Request.Form( "sld" ) If lCase(left(cSld,4)) = "www." Then cSld = right(cSld,len(cSld)-4) End If ' Do we need to check a name? if cAction = "check" then ' Create an instance of the url interface object Set Enom = Server.CreateObject( "Enom.EnomURL" ) ' Set the domian name to check Enom.TLD = cTld Enom.SLD = cSld ' Set account username and password Enom.AddParam "UID", Application( "username" ) Enom.AddParam "PW", Application( "password" ) ' Check the name Enom.Check ' Was there errors? if Enom.Response( "ErrCount" ) <> "0" then ' Yes, get the first one cErrorMsg = Enom.Response( "Err1" ) ' Flag an error bError = true else ' No interface errors bError = false ' Check code from NSI (210 = name available) select case Enom.Response( "RRPCode" ) case "210" ' The name is available bAvailable = true case "211" ' The name is not available bAvailable = false case else ' There was an error from NSI bError = true cErrorMsg = Enom.Response( "RRPText" ) end select end if end if %>
 
D & L Webhosting is a division of D & L Computers. D & L Computers was formed in 1995 and D & L Webhosting was formed in 2009 by Donny Smallwood.
Check to see if your domain already exist.
If your domain already exist, then you will need to come up with a new name.
Register your domain name.
Once you find an available domain name, register it before someone else does.
Create your website.
Once you register your domain name, create a website.
   
<% if cAction = "check" then if bError = true then ' There was some kind of error, print that out Response.Write( "We're sorry, there was an error checking the
" &_ "availability of the domain name " & cSld & "." & cTld &_ ". The error was """ & cErrorMsg & """


Would you like to try again?" ) elseif bAvailable = false then ' The domain name is already registered Response.Write( "We're sorry, the domain name " & cSld & "." & cTld &_ "
has already been registered.


Look-up a different name?" ) elseif bAvailable = true then ' The domain name is available, display a link to go register it Response.Write( "Congratulations! The domain name " & cSld & "." & cTld &_ " is available!

Register it now by clicking " &_ "here!



Or would you like to look-up a different name?" ) else ' If we get here the page didn't work right Response.Write( "Darn those asp guys they made a bug!" ) end if end if %>

.


Web Hosting Control Panel
MS Frontpage WebSite Hosting
PHP, CGI, Perl, MySQL, MS_SQL
Web Based E-Mail
Free Domain Transfers
99.5% Server Uptime
 
 
Copyright © D&L Webhosting, 2010. All Rights Reserved