<% dim Errs(14) dim isBgColorIsRed(14) blnInternalPage = false strSEOTitle = "Fishing Flies Online" %> <% sGBox 1 %>

Customer Registration

<%Country=Request("Country")%> <%If Country="" Then Country="United States" End If%>
Please take a few minutes to create an Account with us.
Already a customer at fishingfilesonline.com? Click here to login.
<% If bIsSubmitted Then%>
There are error(s) in this form. Please see below.
<%Errs(1)=EmailalreadyExistCheck("Email","Our records indicate that someone is already registered with the email address "&Email&". Please register with a different email address or fill the password request form if you have forgotten the password.")%> <%Errs(2)=RequiredFieldValidation("Email", "
Please enter an email address.")%> <%Errs(3)=EmailValidation("Email", "
The email address you provided is not valid.")%> <%Errs(4)=RequiredFieldValidation("Pass", "
Password field is required.")%> <%Errs(5)=RequiredFieldValidation("CPass", "
Confirm Password field is required.")%> <%Errs(6)=PasswordValidation("CPass","Pass","
Passwords Missmatch")%> <%Errs(7)=RequiredFieldValidation("FName", "
First Name field is required.")%> <%Errs(8)=RequiredFieldValidation("LName", "
Last Name field is required.")%> <%Errs(9)=RequiredFieldValidation("Address1", "
Address field is required.")%> <%Errs(10)=RequiredFieldValidation("City", "
City field is required.")%> <%'If Request("States")<>"" And IsNumeric(Request("Zip")) And Request("City")<>"" Then%> <%'=Cityfeildvalidation("City","Zip","states","error")%> <%'End if%> <%Errs(11)=RequiredFieldValidation("States", "
State field is required.")%> <%Errs(12)=RequiredFieldValidation("Zip", "
Zip code field is required.")%> <%'Errs(13)=NumberFieldValidation("Zip", "
Only numeric values are allowed in Zip code field.")%> <%'If Request("States")<>"" And IsNumeric(Request("Zip")) Then%> <%'=ZipCodefeildvalidation("Zip","states","error")%> <%'End if%> <%Errs(14)=RequiredFieldValidation("Phone", "
Phone number field is required.")%> <% FOR dbArray=1 TO 14 RESPONSE.Write(Errs(dbArray)) NEXT bgColorIsRed="style='background-color:#FFF0F0'" if len(trim(Errs(1))) > 0 OR len(trim(Errs(2))) > 0 OR len(trim(Errs(3))) > 0 then isBgColorIsRed(1)=bgColorIsRed end if if len(trim(Errs(4))) > 0 then isBgColorIsRed(2)=bgColorIsRed end if if len(trim(Errs(5))) > 0 then isBgColorIsRed(3)=bgColorIsRed end if if len(trim(Errs(6))) > 0 then isBgColorIsRed(4)=bgColorIsRed end if if len(trim(Errs(7))) > 0 then isBgColorIsRed(5)=bgColorIsRed end if if len(trim(Errs(8))) > 0 then isBgColorIsRed(6)=bgColorIsRed end if if len(trim(Errs(9))) > 0 then isBgColorIsRed(7)=bgColorIsRed end if if len(trim(Errs(10))) > 0 then isBgColorIsRed(8)=bgColorIsRed end if if len(trim(Errs(11))) > 0 then isBgColorIsRed(9)=bgColorIsRed end if if len(trim(Errs(12))) > 0 then isBgColorIsRed(10)=bgColorIsRed end if if len(trim(Errs(13))) > 0 then isBgColorIsRed(11)=bgColorIsRed end if if len(trim(Errs(14))) > 0 then isBgColorIsRed(12)=bgColorIsRed end if %>
<%End If%>
 
* Required Fields

Login Information
Email Address:
 " size="35" class="textfield" <% = isBgColorIsRed(1) %>> *
Password:
 " class="textfield" <% = isBgColorIsRed(2) %><% = isBgColorIsRed(4) %>> *
Confirm Password:
 " class="textfield" <% = isBgColorIsRed(3) %><% = isBgColorIsRed(4) %> > *
 

Billing Address
First Name:
 " MAXLENGTH="30" class="textfield" <% = isBgColorIsRed(5) %>> *
Last Name:
 " MAXLENGTH="30" class="textfield" <% = isBgColorIsRed(6) %>> *
Address Line 1:
 " size="35" MAXLENGTH="30" class="textfield" <% = isBgColorIsRed(7) %>> *
Address Line 2:
 " size="35" MAXLENGTH="30" class="textfield">
City:
 " class="textfield" <% = isBgColorIsRed(8) %>> * <%'If Request("States")<>"" And IsNumeric(Request("Zip")) And Request("City")<>"" Then%> <%'=CityShowList("City","Zip","states","error")%> <%'End if%>
State:
 " class="textfield" <% = isBgColorIsRed(9) %>> *
Zip:
 " class="textfield" <% = isBgColorIsRed(10) %><% = isBgColorIsRed(11) %>> * <%'If Request("States")<>"" And IsNumeric(Request("Zip")) Then%> <%'=ZipShowList("Zip","states","error")%> <%'End if%>
Country:
 *
Phone:
 " class="textfield" <% = isBgColorIsRed(12) %>> *
Fax:
 " class="textfield">
 
Checked <%End If%>> Check this box if your shipping address and Billing Address are same
<% If bIsSubmitted Then If Not bError Then Email =IsCleanUp(Request("Email")) Pass =IsCleanUp(Request("Pass")) Fname =IsCleanUp(Request("Fname")) Lname =IsCleanUp(Request("Lname")) Address1 =IsCleanUp(Request("Address1")) Address2 =IsCleanUp(Request("Address2")) City =IsCleanUp(Request("City")) States =IsCleanUp(Request("States")) Country =IsCleanUp(Request("Country")) Zip = Request("Zip") Phone =IsCleanUp(Request("Phone")) Fax =IsCleanUp(Request("Fax")) ShipAddress = Request("ShipAddress") Connection.execute("Insert into AddressBilling (Email,Pass,Fname,Lname,Address1,Address2,City,States,Zip,Country,Phone,Fax) values ('"&Email&"','"&Pass&"','"&Fname&"','"&Lname&"','"&Address1&"','"&Address2&"','"&City&"','"&States&"','"&Zip&"','"&Country&"','"&Phone&"','"&Fax&"') ") SESSION("CustomerEmail")=Email Set rCustomer=Connection.execute("Select * from AddressBilling Where Email='"&Email&"' ") CustomerId=rCustomer("CustomerId") SET rCUSTOMER=NOTHING SET rA=Connection.execute("Select afID from Catch_AFID Where SessID="&Session.SessionID&" and RDate=#"&Date()&"# ") If rA.Eof=False Then Connection.execute("update AddressBilling Set AffiliateID="&rA("afID")&" Where CustomerID="&CustomerID) Connection.execute("Delete * from Catch_AFID Where SessID="&Session.SessionID&" and RDate=#"&Date()&"# ") End If Set rA=NOTHING If ShipAddress="1" Then Connection.execute("Insert into AddressShipping (CustomerId,Fname,Lname,Address1,Address2,City,States,Zip,Country,Phone,Fax) values ("&CustomerId&",'"&Fname&"','"&Lname&"','"&Address1&"','"&Address2&"','"&City&"','"&States&"','"&Zip&"','"&Country&"','"&Phone&"','"&Fax&"') ") Response.Redirect("../shoppingcart/CheckOut.asp") Response.End Else Response.Redirect("../customers/Add_Ship_Address.asp") Response.End End If End If End If %><% sGBox 2 %>