<%
If Request("errc") <> 0 Then
blnError = True
Session("errMsg") = "ERROR! There was an error, I'm not sure what it was"
ElseIf Request("str") <> 0 Then
blnError = True
Session("errMsg") = "ERROR! There was an error"
End If
If Request("Submit") = "Get Racked!" Then
Session("Rack.Signup.Domain") = Replace(Request("Rack.Signup.Domain"),"'","''")
Session("Rack.Signup.IP") = Replace(Request("Rack.Signup.IP"),"'","''")
Session("Rack.Signup.UserName") = Replace(Request("Rack.Signup.UserName"),"'","''")
Session("Rack.SignUp.Pwd") = Replace(Request("Rack.SignUp.Pwd"),"'","''")
Session("Rack.SignUp.PwdConfirm") = Replace(Request("Rack.SignUp.PwdConfirm"),"'","''")
Session("Rack.Signup.Quota") = Replace(Request("Rack.Signup.Quota"),"'","''")
Session("Rack.Signup.Fname") = Replace(Request("Rack.Signup.Fname"),"'","''")
Session("Rack.Signup.Lname") = Replace(Request("Rack.Signup.Lname"),"'","''")
Session("Rack.Signup.Email") = Replace(Request("Rack.Signup.Email"),"'","''")
Session("Rack.Signup.Company") = Replace(Request("Rack.Signup.Company"),"'","''")
Session("Rack.Signup.Address1") = Replace(Request("Rack.Signup.Address1"),"'","''")
Session("Rack.Signup.City") = Replace(Request("Rack.Signup.City"),"'","''")
Session("Rack.Signup.State") = Replace(Request("Rack.Signup.State"),"'","''")
Session("Rack.Signup.Zip") = Replace(Request("Rack.Signup.Zip"),"'","''")
Session("Rack.Signup.DayPh") = Replace(Request("Rack.Signup.DayPh"),"'","''")
Session("Rack.Signup.EvePh") = Replace(Request("Rack.Signup.EvePh"),"'","''")
Session("Rack.Signup.Fax") = Replace(Request("Rack.Signup.Fax"),"'","''")
If Session("Rack.SignUp.Pwd") <> Session("Rack.SignUp.PwdConfirm") Then
blnError = True
Session("errMsg") = "ERROR! Your Passwords do not match, please re-enter."
ElseIf Len(Request("Rack.Signup.Domain")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter the domain name including the extension."
ElseIf Len(Request("Rack.Signup.IP")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter an IP Address"
ElseIf Len(Request("Rack.Signup.UserName")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter an Administrator Name"
ElseIf Len(Request("Rack.SignUp.Pwd")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter a password"
ElseIf Len(Request("Rack.SignUp.PwdConfirm")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must re-enter your password to confirm"
ElseIf Len(Request("Rack.Signup.Quota")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must select the amount of space you want"
ElseIf Len(Request("Rack.Signup.Fname")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter your First Name"
ElseIf Len(Request("Rack.Signup.Lname")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter you Last Name"
ElseIf Len(Request("Rack.Signup.Email")) = 0 Then
blnError = True
Session("errMsg") = "ERROR! You must enter your e-mail"
Else
cgiscriptpage = "http://centurion.ev1.net/signup2.cgi"
cgiscriptpage = cgiscriptpage & "?domname=" & Session("Rack.Signup.Domain")
cgiscriptpage = cgiscriptpage & "&ip=" & Session("Rack.Signup.IP")
cgiscriptpage = cgiscriptpage & "&sadmin=" & Session("Rack.Signup.UserName")
cgiscriptpage = cgiscriptpage & "&sadminpw=" & Session("Rack.SignUp.Pwd")
cgiscriptpage = cgiscriptpage & "&sitemb=" & Session("Rack.Signup.Quota")
cgiscriptpage = cgiscriptpage & "&fname=" & Session("Rack.Signup.Fname")
cgiscriptpage = cgiscriptpage & "&lname=" & Session("Rack.Signup.Lname")
cgiscriptpage = cgiscriptpage & "&email=" & Session("Rack.Signup.Email")
Response.Redirect cgiscriptpage
'Response.Write cgiscriptpage
End If
End If
Session("RS.Signup.IP") = "216.12.199.245"
%>
Sign Up for dedicated server raq with RackShack.com - Cobalt Server Colocation Hosting