%@ Language="VBScript" %>
<%
If Session("CustID") > 0 Then
Response.Redirect URL & "/order.asp"
End If
Session("Enewsletter") = 0
'Application("BlockedIPList") = ""
If Len(Request.Form ("btReg")) Then
if Session("RegistrationStartTime") = "" then
Session("RegistrationStartTime") = Now()
end if
'if DateDiff("s", CDate(Session("RegistrationStartTime")), Now()) <= 30 or UCase(Trim(Request.Form ("Address1"))) = "" or InStr(1, UCase(Trim(Request.Form ("Address1"))), "HTTP://") > 0 then
'Session("BlockedSession") = 1
'Application("BlockedIPList") = Replace(Application("BlockedIPList"), UserIP & ",", "") & UserIP & ","
'Application("BlockedHostList") = Replace(Application("BlockedHostList"), UserHost & ",", "") & UserHost & ","
'Response.End
'end if
Session("Email") = killChars(LCase(Trim(Request.Form ("Email"))))
Session("PWD") = Trim(Request.Form ("PWD"))
Session("CompanyName") = UCase(Trim(Request.Form ("CompanyName")))
Session("TaxID") = UCase(Trim(Request.Form ("TaxID")))
Session("BizType") = UCase(Trim(Request.Form ("BizType")))
Session("ContactName") = UCase(Trim(Request.Form ("ContactName")))
Session("Address1") = UCase(Trim(Request.Form ("Address1")))
Session("Address2") = UCase(Trim(Request.Form ("Address2")))
Session("City") = UCase(Trim(Request.Form ("City")))
if UCase(Trim(Request.Form ("Country"))) = "US" then
Session("State") = Trim(Request.Form ("State"))
else
Session("State") = Trim(Request.Form ("Province"))
end if
Session("Country") = Trim(Request.Form ("Country"))
Session("Zip") = UCase(Trim(Request.Form ("Zip")))
Session("Phone1") = UCase(Trim(Request.Form ("Phone1")))
Session("Phone2") = UCase(Trim(Request.Form ("Phone2")))
Session("Fax") = UCase(Trim(Request.Form ("Fax")))
Session("WebSite") = LCase(Trim(Request.Form ("WebSite")))
Session("WhereHeard") = Trim(Request.Form ("WhereHeard"))
Session("EnewsLetter") = IIf (Request.Form ("EnewsLetter") = "", 0, 1)
Session("bFullName") = UCase(Trim(Request.Form ("bFullName")))
Session("bAddress1") = UCase(Trim(Request.Form ("bAddress1")))
Session("bAddress2") = UCase(Trim(Request.Form ("bAddress2")))
Session("bCity") = UCase(Trim(Request.Form ("bCity")))
if UCase(Trim(Request.Form ("bCountry"))) = "US" then
Session("bState") = Trim(Request.Form ("bState"))
else
Session("bState") = Trim(Request.Form ("bProvince"))
end if
Session("bZip") = UCase(Trim(Request.Form ("bZip")))
Session("bCountry") = UCase(Trim(Request.Form ("bCountry")))
Session("bPhone") = UCase(Trim(Request.Form ("bPhone")))
Session("CCType") = Request.Form ("CCType")
Session("CCNum") = Replace(Trim(Request.Form ("CCNum")), " ", "")
'Session("CCExpMonth") = Trim(Request.Form ("CCExpMonth"))
'Session("CCExpYear") = Trim(Request.Form ("CCExpYear"))
Session("CCExpMonth") = ""
Session("CCExpYear") = ""
'Session("SCompanyName") = UCase(Trim(Request.Form ("sCompanyName")))
If Trim(Request.Form ("bFullName")) <> Trim(Request.Form ("sCompanyName")) Then
Session("SCompanyName") = UCase(Trim(Request.Form ("bFullName")))
ElseIf Trim(Request.Form ("sCompanyName")) <> "" Then
Session("SCompanyName") = UCase(Trim(Request.Form ("sCompanyName")))
Else
Session("SCompanyName") = UCase(Trim(Request.Form ("sContactName")))
End If
Session("SContactName") = UCase(Trim(Request.Form ("sContactName")))
Session("SAddress1") = UCase(Trim(Request.Form ("sAddress1")))
Session("SAddress2") = UCase(Trim(Request.Form ("sAddress2")))
Session("SCity") = UCase(Trim(Request.Form ("sCity")))
if UCase(Trim(Request.Form ("sCountry"))) = "US" then
Session("SState") = Trim(Request.Form ("sState"))
else
Session("SState") = Trim(Request.Form ("sProvince"))
end if
Session("SZip") = UCase(Trim(Request.Form ("sZip")))
Session("SCountry") = Trim(Request.Form ("sCountry"))
Session("SPhone1") = UCase(Trim(Request.Form ("sPhone1")))
Session("SFax") = UCase(Trim(Request.Form ("sFax")))
Session("BillRegLater") = Request.Form ("BillRegLater")
Session("ShipRegLater") = Request.Form ("ShipRegLater")
Session("MemberID") = Request.Form ("MemberID")
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = "Select * From Customers Where ixCompany=2 AND Email = '" & killChars(LCase(Trim(Request.Form ("Email")))) & "' "
'rs.Open sql, BBSQLConn, adOpenKeyset, adLockOptimistic
rs.Open sql, DBConn, adOpenKeyset, adLockOptimistic
If rs.EOF And rs.BOF Then
Application.Lock
rs.AddNew
If Trim(Request.Form ("CompanyName")) <> "" Then
CompanyName = Trim(Request.Form ("CompanyName"))
Else
CompanyName = Trim(Request.Form ("ContactName"))
End If
Randomize
IntCode = Int (Rnd * 999999)
AcctCode = "BB" & Left(Clean(UCase(CompanyName)), 6) & IntCode
rs("ixTerm") = 1 'credit card
rs("ixShipVia") = 10 'UPS Ground
rs("ixEmp") = 2 'web sales
rs("AcctCode") = AcctCode
rs("CompanyName") = UCase(CompanyName)
rs("ContactName") = UCase(Trim(Request.Form ("ContactName")))
rs("MemberID") = UCase(Trim(Request.Form ("MemberID")))
rs("Address1") = UCase(Trim(Request.Form ("Address1")))
rs("Address2") = UCase(Trim(Request.Form ("Address2")))
rs("City") = UCase(Trim(Request.Form ("City")))
'rs("State") = Request.Form ("State")
rs("State") = Session("State")
rs("Country") = Trim(Request.Form ("Country"))
rs("Zip") = UCase(Trim(Request.Form ("Zip")))
rs("Phone1") = UCase(Trim(Request.Form ("Phone1")))
rs("Phone2") = UCase(Trim(Request.Form ("Phone2")))
rs("Fax") = UCase(Trim(Request.Form ("Fax")))
rs("Email") = LCase(Trim(Request.Form ("Email")))
rs("Pwd") = Trim(Request.Form ("PWD"))
rs("LoginID") = AcctCode
rs("WebSite") = UCase(Trim(Request.Form ("WebSite")))
'rs("Img")
rs("AcctOpenDate") = Now
rs("Memo") = Trim(Request.Form ("WhereHeard"))
rs("Active") = 1
rs("CreditLimit") = 0
rs("LastModified") = Now
rs("Option1") = ""'Right(Trim(Request.Form ("CCNum")), 4) & " " & Trim(Request.Form ("CCExpMonth")) & "/" & Right(Trim(Request.Form ("CCExpYear")), 2)
rs("Option2") = "" & Session("ref")
rs("Option3") = Trim(Request.Form ("TaxID"))
rs("SCOD") = 1
rs("SUPS") = 1
rs("SInsurance") = 1
rs("SHandling") = 1
rs("ixCompany") = 2 'bluebell company id
rs("CreditAmt") = 0
rs("CreditRate") = "NOT YET RATED"
rs("BizType") = Request.Form ("BizType")
rs("ixRelationType") = 1
rs("EnewsLetter") = IIf (Request.Form ("EnewsLetter") = "", 0, 1)
rs("MembershipApplicable") = 0
rs.Update
CustID = rs("ixCust")
rs.Close
'enter shipping address
If Session("BillRegLater") = "" Then
sql = "SELECT * FROM CustBilling WHERE ixBilling=0"
rs.Open sql, DBConn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("ixCust") = CustID
rs("NickName") = "MY " & Request.Form ("CCType")
rs("FullName") = UCase(Trim(Request.Form ("bFullName")))
rs("bAddress1") = UCase(Trim(Request.Form ("bAddress1")))
rs("bAddress2") = UCase(Trim(Request.Form ("bAddress2")))
rs("bCity") = UCase(Trim(Request.Form ("bCity")))
'rs("bState") = Request.Form ("bState")
rs("bState") = Session("bState")
rs("bZip") = UCase(Trim(Request.Form ("bZip")))
rs("bCountry") = UCase(Trim(Request.Form ("bCountry")))
rs("bPhone") = UCase(Trim(Request.Form ("bPhone")))
'05062010 Paul
'rs("CCType") = Request.Form ("CCType")
'rs("CCNum") = Replace(Trim(Request.Form ("CCNum")), " ", "")
'rs("CCExpMonth") = Trim(Request.Form ("CCExpMonth"))
'rs("CCExpYear") = Trim(Request.Form ("CCExpYear"))
rs("CCExpMonth") = ""
rs("CCExpYear") = ""
rs("CCID") = "" & Trim(Request.Form ("CCID"))
rs("bPrimary") = 1
rs("Inactive") = 0
rs.Update
'05062010 Paul
Set rsCC = Server.CreateObject ("ADODB.RecordSet")
rsCC.Open "SELECT * FROM CustCC WHERE ixBilling=" & rs("ixBilling"), DBConn, adOpenKeyset, adLockOptimistic
if rsCC.EOF And rsCC.BOF then
rsCC.AddNew
rsCC("ixBilling") = rs("ixBilling")
end if
rsCC("CCType") = Request.Form ("CCType")
rsCC("CCNum") = Replace(Trim(Request.Form ("CCNum")), " ", "")
rsCC.Update
rsCC.Close
set rsCC = nothing
rs.Close
End If
'enter shipping address
If Session("ShipRegLater") = "" Then
sql = "Select * From CustShipTo Where ixShipTo=0"
rs.Open sql, DBConn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("ixCust") = CustID
If Trim(Request.Form ("bFullName")) <> Trim(Request.Form ("sCompanyName")) Then
sCompanyName = Trim(Request.Form ("bFullName"))
ElseIf Trim(Request.Form ("sCompanyName")) <> "" Then
sCompanyName = Trim(Request.Form ("sCompanyName"))
Else
sCompanyName = Trim(Request.Form ("sContactName"))
End If
rs("SCompanyName") = UCase(sCompanyName)
rs("SContactName") = UCase(Trim(Request.Form ("sContactName")))
rs("SAddress1") = UCase(Trim(Request.Form ("sAddress1")))
rs("SAddress2") = UCase(Trim(Request.Form ("sAddress2")))
rs("SCity") = UCase(Trim(Request.Form ("sCity")))
'rs("SState") = Request.Form ("sState")
rs("SState") = Session("SState")
rs("SZip") = UCase(Trim(Request.Form ("sZip")))
rs("SCountry") = Trim(Request.Form ("sCountry"))
rs("SPhone1") = UCase(Trim(Request.Form ("sPhone1")))
rs("SPhone2") = UCase(Trim(Request.Form ("sPhone1")))
rs("SFax") = UCase(Trim(Request.Form ("sFax")))
rs("SEmail") = LCase(Trim(Request.Form ("Email")))
rs("bPrimary") = 1
rs("Inactive") = 0
rs("AcctCode") = AcctCode
rs.Update
rs.Close
End If
Session("CustID") = CustID
Session("CompanyName") = UCase(CompanyName)
Session("ContactName") = UCase(Trim(Request.Form ("ContactName")))
Session("AcctCode") = AcctCode
Session("Email") = LCase(Trim(Request.Form ("Email")))
Application("customers") = Application("customers")+1
Application.UnLock
'send reg confirmation...
'SendEmail(Subject, BodyText, FromName, FromMail, ToName, ToMail)
Subject = "GolfTopSpin.com"
BodyText = "Thank you for registering with GolfTopSpin.com!
" & _
"Dear " & Session("CompanyName") & ",
" & _
"We are excited to have you as our customer. " & _
"Your registration information has been successfully submitted and securely saved. " & _
"Please remember your e-mail address and password for the next time signing in.
" & _
"We are looking forward to having business with you.
Sincerely,
GolfTopSpin.com Sales Staff"
ContactName = UCase(Trim(Request.Form ("CompanyName")))
Email = LCase(Trim(Request.Form ("Email")))
SendEmail Subject, BodyText, "GolfTopSpin Customer Support", "support@GolfTopSpin.com", ContactName, Email
Subject = "GolfTopSpin.com Registration"
str = "New Registration Information
ContactName: " & Session("CompanyName") & "
E-mail: " & Session("Email") & "
Phone: " & UCase(Trim(Request.Form ("Phone1"))) str = str & "
" & UCase(Trim(Request.Form ("Address1"))) & " " & UCase(Trim(Request.Form ("Address2"))) str = str & "
" & UCase(Trim(Request.Form ("City"))) & ", " & Session("State") & " " & UCase(Trim(Request.Form ("Zip"))) str = str & "
Tax ID: " & Trim(Request.Form ("TaxID")) str = str & "
Refered by: " & Session("ref") SendEmail Subject, str, "GolfTopSpin Registration", "support@GolfTopSpin.com", "GolfTopSpin Customer Registration", "support@GolfTopSpin.com" If Session("NextURL") <> "" Then Response.Redirect Session("NextURL") End If SuccInfo = BodyText 'Response.Write "Saved" 'Response.End Else ErrInfo = "
An account was already created with this e-mail address. If you forgot your password, click here to retrieve your password.
" End If Set rs = Nothing End If %>