|
<%
if(request.form("txtCompanyName")<>"") then
txtCompanyName = request.form("txtCompanyName")
estyr = request.form("estyr")
txtaddress = request.form("txtaddress")
txtCity = request.form("txtCity")
txtState = request.form("txtState")
txtCountry = request.form("txtCountry")
txtZip = request.form("txtZip")
txtContactName = request.form("txtContactName")
txtEmail = request.form("txtEmail")
txtpass = request.form("txtpass")
txtURL = request.form("txtURL")
txtPlanName = request.form("txtPlanName")
PlanPrice = request.form("PlanPrice")&request.form("planduration")
SetupFee = request.form("setupfee")
freedomain = request.form("freedomain")
if(request.form("chksubdomain")="on") then
subdomain = "Unlimited"
else
subdomain = request.form("subdomain")
end if
serviceplan = request.form("cmbserviceplan")
platform = request.form("cmbplatform")
if(request.form("chkdiskspace")="on") then
DiskSpace = "Unlimited"
else
DiskSpace = request.form("DiskSpace")&" "&request.form("cmbDiskSpace")
End If
if(request.form("chkdatatransfer")="on") then
DataTransfer = "Unlimited"
else
DataTransfer = request.form("DataTransfer")&" "&request.form("cmbDataTransfer")
End if
controlpanel = request.form("chkcontrolpanel")
ftpaccount = request.form("ftpaccount")
if(request.form("chkMailAc")="on") then
MailAc = "Unlimited"
else
MailAc = request.form("MailAc")
end if
if(request.form("chkASP")="on") then
scripting = scripting&"ASP,"
End If
if(request.form("chkASPNET")="on") then
scripting = scripting&"ASP.NET,"
End If
if(request.form("chkPHP")="on") then
scripting = scripting&"PHP,"
End If
if(request.form("chkPerl")="on") then
scripting = scripting&"Perl,"
End If
if(request.form("chkCGI")="on") then
scripting = scripting&"CGI,"
End If
if(request.form("chkColdFusion")="on") then
scripting = scripting&"ColdFusion,"
End If
if(request.form("chkJSP")="on") then
scripting = scripting&"JSP,"
End If
if(request.form("chkPython")="on") then
scripting = scripting&"Python,"
End If
if(request.form("chkAccess")="on") then
database = database&"Access,"
End If
if(request.form("chkSQLServer")="on") then
database = database&"SQL Server,"
End If
if(request.form("chkMYSQL")="on") then
database = database&"MYSQL,"
End If
if(request.form("chkPostgreSQL")="on") then
database = database&"PostgreSQL,"
End If
if(request.form("chkOracle")="on") then
database = database&"Oracle,"
End If
if(request.form("chkInformix")="on") then
database = database&"Informix,"
End If
if(request.form("chk247sup")="on") then
Support = Support&"24/7 Support,"
End If
if(request.form("chktelephonesup")="on") then
Support = Support&"Telephone Support,"
End If
if(request.form("chkemailsup")="on") then
Support = Support&"E-mail Support,"
End If
if(request.form("chkchatsup")="on") then
Support = Support&"Chat Support,"
End If
if(request.form("chkknowledgebase")="on") then
Support = Support&"Knowledge Base,"
End If
' Check For Duplicate Email ----------------------------
Dim rs_checkdupemail
set rs_checkdupemail=server.CreateObject("adodb.recordset")
rs_checkdupemail.open "select CoId from BasicInfo where email='" &txtEmail& "'",cn,2,3
If(rs_checkdupemail.bof=true and rs_checkdupemail.eof=true)then
' Add in Basic Info
insertbasicinfo = "insert into BasicInfo values('" &txtCompanyName& "','" &txtContactName& "','" &txtEmail&"'"&_
",'" &txtpass& "','" &txtURL& "','" &estyr& "','" &txtCity& "','" &txtState& "','" &txtCountry& "','" &txtaddress& "'"&_
",'" &txtZip& "',0,1,getdate())"
cn.execute insertbasicinfo
' Get Max Id for other table
set rs_maxcoid = server.CreateObject("Adodb.Recordset")
rs_maxcoid.open "select max(coid) from basicinfo",cn,2,3
coid = rs_maxcoid(0)
' Add Plan Details
insertplaninfo = "insert into companyplans values("&coid&",'" &txtPlanName& "','" &serviceplan& "','" &platform& "'"&_
","& freedomain& ",'" &subdomain& "','" &PlanPrice& "','" &SetupFee& "','" &DiskSpace& "','" &DataTransfer& "'"&_
",0,'" &MailAc& "','" &MailAliases& "',0,0"&_
",0,0,'" &ftpaccount& "','" &scripting& "','" &database& "','" &noofdatabase& "'"&_
",'" &sizeofdatabase& "','" &support& "','" &controlpanel& "',1,getdate(),getdate(),1)"
cn.execute insertplaninfo
%>
Congratulation. Your account has been created successfully.
<%
else
Response.Redirect("newreg.asp?email=exist")
end if
else
%>
You will be review and activated within 1-2 business days.
|