<%@ 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
" str = str & "

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 %> TopSpin Putter - Experience the innovative putter TopSpin
Registration
<% If SuccInfo <> "" Then %>

<%=SuccInfo%>
<% Else %>
* Indicates Required Fields
   Sign-In Information
E-mail Address:   " size=40 class=Text maxlength=50> *
Verify E-mail Address:   " size=40 class=Text maxlength=50 onpaste="return false"> *
<%=ErrInfo%>
Password:   *
(between 4~10 characters)
Verify Password:   *

   Account Information
Your Name:   " size=40 class=Text maxlength=50> *
Address Line1:   " size=40 class=Text maxlength=50> *
Line2:   " size=40 class=Text maxlength=50>
City:   " size=40 class=Text maxlength=50> *
Country:   *
State:  
*
Zip/Postal Code:   " size=10 maxlength=9 class=Text> *
Phone Number:   " size=40 class=Text maxlength=20> *
Alternative Phone Number:   " size=40 class=Text maxlength=20>

   Billing & Credit Card Information
   Billing address is same as account address
Card Holder Name on Credit Card:   " size=40 class=Text maxlength=50 onBlur="javascript:document.frm.sCompanyName.value=document.frm.bFullName.value;"> *
(No company name)
Address Line1:   " size=40 class=Text maxlength=50> * (number and street name)
Line2:   " size=40 class=Text maxlength=50>
City:   " size=40 class=Text maxlength=50> *
Country:   *
State:  
*
Zip/Postal Code:   " size=10 maxlength=9 class=Text> * (no spaces, dashes, or non-numeric characters for US)
Phone Number:   " size=40 class=Text maxlength=20> *
  *
Credit Card Number:   " maxlength="12" size="30" class="Text"> *
(no spaces, numbers only)
For security reason, do not put last 4 digits of your Credit Card Number.

   Shipping Address
   Shipping address is same as account address
   Shipping address is same as billing address
Card Holder Name on Credit Card:   " size=40 class=Text readonly maxlength=50> *
Attn.:   " size=40 class=Text maxlength=50>
Address Line1:   " size=40 class=Text maxlength=50> *
(PO Box is NOT allowed for shipping address.)
Line2:   " size=40 class=Text maxlength=50>
City:   " size=40 class=Text maxlength=50> *
Country:   *
State:  
*
Zip/Postal Code:   " size=10 maxlength=9 class=Text> *
Phone Number:   " size=40 class=Text maxlength=20> *

How did you hear about TopSpin Putter?   *
     
 checked<%End If%> > Yes, I'd like to receive e-mails about new items, special, and money-saving offers from golftopspin.com.



<% if ErrInfo = "" then Session("RegistrationStartTime") = Now() end if %> <% End If %>