' 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)
' 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
' Was there errors?
if Enom.Response( "ErrCount" ) <> "0" then
' Yes, get the first one
cErrorMsg = Enom.Response( "Err1" )
' Flag an error
bError = true
' No interface errors
bError = false
' Check code from NSI (210 = name available)
select case Enom.Response( "RRPCode" )
' The name is available
bAvailable = true
' The name is not available
bAvailable = false
' There was an error from NSI
bError = true
cErrorMsg = Enom.Response( "RRPText" )
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.