|
|
|
Frankly Putter Owner Registration
Designed for owners of the Frankly Putter, this section is the
gateway for access to Owner e-support. Here you will find on-going
updates, hints for improving your putting and our Frankly helpdesk.
The registration process is simple:
- Enter your Frankly Putter serial number below
- You will be asked for your personal information (name, e-mail
address and handicap)
- You will be prompted to choose a password
- That's it...you're registered! Now you have full access to information
and updates.
Need help finding your Frankly Putter
serial number? Click
here
|
|
New Frankly Putter Owner Registration
<%
dim lenregnum
dim regcheck
dim pos2
dim pos4
dim pos6
dim len6
dim poscheck
dim posfinal
dim serlet, sernum, cnn, rst_check, rst_frog, rst_reg, connectstring
serlet = request("serial_let")
sernum = request("serial_num")
if request("check") = "num" then %>
Your serial number is incorrect
<%elseif request("check") = "let" then%>
Your serial letters are incorrect
<%elseif request("check") = "exists" then%>
Your putter has already been registered. Please enter your log-in name (the e-mail address you registered with) and password below.
<% end if %>
<%
if request("serial") = "yes" then
if left(serlet,2) <> "fx" AND left(serlet,2) <> "FX" AND left(serlet,2) <> "js" AND left(serlet,2) <> "JS" then
response.redirect("serial.asp?check=let&serial_num=" & sernum & "&serial_let=" & serlet & "")
end if
'****************************************************
' Check Digit
'****************************************************
lenregnum = Len(sernum)
pos2 = mid(sernum, 2, 1)
pos4 = mid(sernum, 4, 1)
posfinal = mid(sernum, lenregnum, 1)
if ISNumeric(pos2) and ISNumeric(pos4) and IsNumeric(posfinal)then
pos2 = Cint(pos2)
pos4 = Cint(pos4)
pos6 = Cint(pos6)
posfinal = Cint(posfinal)
else
response.redirect("serial.asp?check=num&serial_num=" & sernum & "&serial_let=" & serlet & "")
end if
pos6 = (pos2 + pos4)
if pos6 > 9 then
poscheck = mid(pos6, 2, 1)
poscheck = Cint(poscheck)
else
poscheck = pos6
poscheck = Cint(poscheck)
end if
if poscheck <> posfinal OR len(sernum) <> 5 or sernum = 00000 then
response.redirect("serial.asp?check=num&serial_num=" & sernum & "&serial_let=" & serlet & "")
end if
'****************************************************
' Open a connection
'****************************************************
set cnn = Server.CreateObject("ADODB.Connection")
set rst_check = Server.CreateObject("ADODB.Recordset")
set rst_reg = Server.CreateObject("ADODB.Recordset")
set rst_frog = Server.CreateObject("ADODB.Recordset")
connectString = "DSN=putter;UID=pamelamurphy;PWD=f16pu773r"
cnn.open connectString
'****************************************************
' Check to see if already registered
'****************************************************
Dim check_sql
check_sql = "SELECT * FROM members where regnum = " & sernum & ""
rst_check.open check_sql, cnn, adOpenStatic
If not rst_check.eof then
response.redirect("serial.asp?check=exists&serial_num=" & sernum & "&serial_let=" & serlet & "")
rst_check.close
'else
end if
'****************************************************
' Check for the Frankly Frog Putter Head Only
'****************************************************
Dim frog_sql
if left(serlet,2) = "FX" or left(serlet,2) = "fx" or left(serlet,2) = "Fx" then
frog_sql="select * from FrogPutter where regnum=" & sernum & ""
rst_frog.open frog_sql, cnn, adOpenStatic
if rst_frog.recordcount < 1 then
response.redirect("../../frog_purchase.asp")
rst_frog.close
end if
end if
cnn.close
'**********************************************************
'This form submits the data to the register page
'if there are no errors
'**********************************************************
response.write("")
response.write("")
end if
%>
Already Registered? then simply login
Forgot your password? We can e-mail
it to you below:
|
If you need assistance,
please send us an e-mail
or call at 1-866 879 1007
|
|
|
