%@ Language="VBScript" %>
<%
If Session("CustID") > 0 Then
Response.Redirect URL & "/product.asp"
End If
If Len(Request.Form ("btLogin")) Then
Username = killCharsL(Trim(Request.Form("Email")))
Pwd = Request.Form("Pwd")
Set rs = Server.CreateObject ("Adodb.RecordSet")
sql = "Select * From Customers Where ixCompany=2 AND Email = '" & Username & "'"
'show sql
rs.Open sql, DBConn, adOpenStatic, adLockReadOnly
If Not (rs.EOF Or rs.BOF) Then
If rs("Active") = 0 Then
'WriteLog LOGCAT_SECURITY, LOGTYPE_WARNING, "Inactive Account (" & rs("ixCust") & ")"
ErrStr = "The account associated with " & UserName & " has been deactivated. Please contact our customer service to reactivate your account.
"
ElseIf Pwd = rs("pwd") Then
Session("CustID") = rs("ixCust")
Session("CompanyName") = rs("CompanyName")
Session("ContactName") = rs("ContactName")
Session("AcctCode") = rs("AcctCode")
Session("Email") = Username
If Request.Form ("ckRem") Then
Response.Cookies ("SS")("CustID") = rs("ixCust")
Response.Cookies ("SS")("Email") = LCase(Username)
Response.Cookies ("SS")("CompanyName") = rs("CompanyName")
Response.Cookies ("SS")("ContactName") = rs("ContactName")
Response.Cookies ("SS")("AcctCode") = rs("AcctCode")
Response.Cookies ("SS").Expires = "December 31, 2030"
End If
'Application.Lock
Application("customers") = Application("customers")+1
'Application.UnLock
rs.Close
Set rs = Nothing
If Session("NextURL") <> "" Then
NextURL = Session("NextURL")
Else
NextURL = URL & "/product.asp"
End If
Response.Redirect NextURL
Else
ErrStr = "Account was not found with the e-mail and password provided, please check the e-mail and password and try again.
"
End If
Else
'WriteLog LOGCAT_SECURITY, LOGTYPE_ERROR, "Invalid UserName/Pwd (" & Username & "/" & Pwd & ")"
ErrStr = "Account was not found with the e-mail and password provided, please check the e-mail and password and try again.
"
End If
Set rs = Nothing
End If
%>
TopSpin Putter - Experience the innovative putter TopSpin
Sign In
<%=ErrStr%>
New Customer?
Register with us to:
Take advantage of a faster and easier check-out process
Access your order status and history
Receive e-mail updates on new items and special offers