<%
Option Explicit
Response.expires = 0
dim connect,BooBigBadForm,Crypto,StrQuery,RcsUSer,newmail,filesystem,StyleFile,StrPath,StrHtml,Strpasswordconfirm,strJoinDate,strPasswordunencrypt
dim StrFirstName,StrFirstNameFE
dim StrLastName,StrLastNameFE
dim Strzip,StrzipFE
dim Strcity,StrcityFE
dim Strstate,StrstateFE
dim Strgender,StrgenderFE
dim Strbirthday,StrbirthdayFE
dim Stroccupation,StroccupationFE
dim Stremail,StremailFE
dim Stremailconfirm,StremailconfirmFE
dim Strpassword,StrpasswordFE
dim StrpasswordconfirmFE
dim StrOptIn,StrOptInFE
dim StrAgree,StrAgreeFE
StrFirstName = request.Form("firstname")
StrLastName = request.Form("lastName")
Strzip = request.Form("zip")
Strgender = request.Form("gender")
Stremail = request.Form("email")
Stremailconfirm = request.Form("emailconfirm")
StrOptIn = request.Form("optin")
StrAgree = request.Form("agree")
if StrOptIn <> "" then
StrOptIn = "true"
else
StrOptIn = "false"
end if
if StrAgree <> "" then
StrAgree = "true"
else
StrAgree = "false"
end if
set connect = server.CreateObject("adodb.connection")
connect.Open "Provider=SQLOLEDB.1;Password=Sn!P3r;Persist Security Info=True;User ID=DTPuser;Initial Catalog=Dtp;Data Source=DRSERVON"
StrFirstNameFE = validation("firstname", StrFirstName, "text", 20, 30, True, "textbox")
StrLastNameFE = validation("LastName", StrLastName, "text", 20, 30, True, "textbox")
StrzipFE = validation("zip", Strzip, "numeric", 20, 10, True, "textbox")
StrgenderFE = ""
StrgenderFE = replace(StrgenderFE, "