"True" OR NOT r_2stage_form) then%>onSubmit="return chkCheck(this);" <%end if%>> <% '=================================================================================================' ' Show username and password boxes '================================================================================================= If ContinueRegister <> "True" OR NOT r_2stage_form OR (bUserUpdate OR ChkUpdate="True") then%> <% If isUpdate then '--------------------------------------- ' Its an update, we dont need form boxes for the username '--------------------------------------- If r_change_info then Call InputRow ("UserName","",UserName,"text",dbUsername,adVarChar) Else Call InputRow ("UserName","",UserName,"hidden",dbUsername,adVarChar) End if Else '--------------------------------------- ' Show Username box to allow input '--------------------------------------- %> <% Call InputRow ("UserName","",UserName,"text",dbUsername,adVarChar) End If '--------------------------------------- ' Register, show Password boxes ' (Only if r_send_random is off and not an update) '--------------------------------------- If NOT r_send_random OR isUpdate then %> <% Call InputRow ("Password",txtPassword,Password,"password",dbPassword,adVarChar) Call InputRow ("T3",txtConfirm,T3,"password",dbPassword,adVarChar) End if Else '--------------------------------------- ' Its part 2 of a 2 stage form '--------------------------------------- %> <% If NOT r_send_random then%> <% End if End if '================================================================================================== ' Continue with rest of registration '================================================================================================== If ContinueRegister = "True" OR (NOT r_2stage_form) OR (bUserUpdate OR ChkUpdate="True") then %> <% '================================================================================================= ' Add Dynamic extended field information '================================================================================================= FOR i = 0 to uBound(arrFieldOrder) Select Case cInt(arrFieldOrder(i)) '# g_UserFieldsOrder +1 Case dbUserName, dbPassword ' do nothing Case dbFirstname If (Mid(strShowField,dbFirstname+1,1)=1) then Call InputRow("x_Firstname","",IFF(x_firstname&""="",request.form("x_firstname"),x_firstname),"text",dbFirstname,adVarChar) End if Case dbLastname If (Mid(strShowField,dbLastname+1,1)=1) then Call InputRow("x_Lastname","",IFF(x_lastname&""="",request.form("x_lastname"),x_lastname),"text",dbLastname,adVarChar) End if Case dbemail If NOT r_email_username then Call InputRow("x_Email","",IFF(x_email&""="",request.form("x_email"),x_email),"text",dbemail,adVarChar) End if If r_hide_email then %> <%End If Case dbAccessLevel If (Mid(strShowField,dbAccessLevel+1,1)=1) then Call InputRow("AccessLevel","",IFF(AccessLevel&""="",request.form("AccessLevel"),AccessLevel),"text",dbAccessLevel,adVarChar) End if Case dbcompany If (Mid(strShowField,dbcompany+1,1)=1) then Call InputRow("x_Company","",IFF(x_company&""="",request.form("x_company"),x_company),"text",dbcompany,adVarChar) End if Case dbAddress If (Mid(strShowField,dbAddress+1,1)=1) then Call InputRow("x_Address","",IFF(x_address&""="",request.form("x_address"),x_address),"text",dbAddress,adVarChar) End if Case dbcity If (Mid(strShowField,dbcity+1,1)=1) then Call InputRow("x_City","",IFF(x_city&""="",request.form("x_city"),x_city),"text",dbcity,adVarChar) End if Case dbstate If (Mid(strShowField,dbstate+1,1)=1) then Call InputRow("x_State","",IFF(x_state&""="",request.form("x_state"),x_state),"text",dbstate,adVarChar) End if Case dbzip If (Mid(strShowField,dbzip+1,1)=1) then Call InputRow("x_Zip","",IFF(x_zip&""="",request.form("x_zip"),x_zip),"text",dbzip,adInteger) End if Case dbcountry If (Mid(strShowField,dbcountry+1,1)=1) then Call InputRow("x_Country","",IFF(x_country&""="",request.form("x_country"),x_country),"text",dbcountry,adVarChar) End if Case dbPhone If (Mid(strShowField,dbPhone+1,1)=1) then Call InputRow("x_Phone","",IFF(x_phone&""="",request.form("x_phone"),x_phone),"text",dbPhone,adVarChar) End if Case dbfax If (Mid(strShowField,dbfax+1,1)=1) then Call InputRow("x_Fax","",IFF(x_fax&""="",request.form("x_fax"),x_fax),"text",dbfax,adVarChar) End If Case dbwebsite If (Mid(strShowField,dbwebsite+1,1)=1) then Call InputRow("x_Website","",IFF(x_website&""="",request.form("x_website"),x_website),"text",dbwebsite,adVarChar) End if Case dbuserfound If (Mid(strShowField,dbuserfound+1,1)=1) then Call InputRow("x_UserFound","",IFF(x_UserFound&""="",request.form("x_UserFound"),x_UserFound),"text",dbuserfound,adVarChar) End if Case dbspare If (Mid(strShowField,dbspare+1,1)=1) then Call InputRow("x_Spare","",IFF(x_spare&""="",request.form("x_spare"),x_spare),"text",dbspare,adVarChar) End if Case dbSex If (Mid(strShowField,dbSex+1,1)=1) then Call InputRow("x_Sex","",IFF(x_sex&""="",request.form("x_sex"),x_sex),"text",dbSex,adVarChar) End if Case dbcellphone If (Mid(strShowField,dbcellphone+1,1)=1) then Call InputRow("x_Cellphone","",IFF(x_cellphone&""="",request.form("x_cellphone"),x_cellphone),"text",dbcellphone,adVarChar) End if Case ELSE '# Display Custom fields ' If (Mid(strShowField,arrFieldOrder(i)+1,1)="1") then Dim tmpDisplayType Dim tmpFieldName :tmpFieldName = arrFieldNames(arrFieldOrder(i)) Dim tmpFieldStyle :tmpFieldStyle = arrSizeAttrib(((arrFieldOrder(i))*3)+2) Dim tmpOrderIn :tmpOrderIn = arrFieldOrder(i) Dim tmpFieldValue :tmpFieldValue = arrFieldValue(arrFieldOrder(i)) Select case tmpFieldStyle Case 203,201 tmpDisplayType = "memo" Case 11,17 tmpDisplayType = "radio_b" Case ELSE tmpDisplayType = "text" End Select '# Input row [input name] [display name] [value] [format type] [database order] [style] ' Call InputRow(tmpFieldName,"",tmpFieldValue,tmpDisplayType,tmpOrderIn,tmpFieldStyle) End if End Select NEXT erase arrFieldNames erase arrFieldOrder End If '================================================================================================= ' End dynamic field display '================================================================================================= If r_use_sub AND NOT isUpdate then%> <%Call InputRow("PP_Amount","Subscription Options",Application(appName&"PP_Amount"),"radio",0,adInteger) End if%> <%If r_conditions AND NOT isUpdate AND(ContinueRegister <> "True" OR NOT r_2stage_form) then%> <%End if%>

Registration<%If lcase(request.querystring("UserUpdate"))="true" then Response.write (" Update")%><%If ContinueRegister ="True" then%> (Part 2 of 2) <%end if%> Please enter your details below
Please enter your User Name
Please enter and confirm your Password
Additional Information
	value="True"><%Response.Write(txtEmailPrivate)%>
Options
<%If Authenticate AND (r_email_username AND NOT isUpdate) then Response.write (IFF(r_email_username,txtUserEmailRequired,txtEmailRequired)) end if%> <% If arrErrMsg(5) = txtMsgEmailExists then If (lCase(EmailComponent) <> "none" AND l_send_password) then %> <%Response.Write("")%>This email address exists. Send existing password?<%Response.Write("")%> <%Else%> This email address exists. You must use a unique address, or login with that account.  <%End if End if %>
<!-- #include file="includes/terms_conditions.txt" --> ><%Response.Write(txtAgree)%>
<%Response.Write(txtMsgReqField)%> <%If AccountExpires & ""<>"" AND NOT r_use_cc then%> Your account <%If DateFormat(AccountExpires) < DateFormat(Now) then%> expired <%else%> will expire <%end if%> on <%Response.Write(FormatDateTime(AccountExpires,2))%> <%End if%>