Check registration form

<%If r_use_authorize then%> <%end if%> <%'=============================================================== ' Add Username / password boxes DIM isUpdate : isUpdate = False If r_allow_update AND (UserUpdate OR ChkUpdate = "True") then isUpdate = True If ContinueRegister <> "True" OR NOT r_2stage_form OR r_use_authorize then%> <% If isUpdate then '--------------------------------------- ' Its an update, we dont need form boxes for the username '--------------------------------------- %> <% Else '--------------------------------------- ' Show Username box to allow input '--------------------------------------- %> <% Call DoRegInputRow ("UserName",txtUserName,UserName,21,4,1) 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 DoRegInputRow ("T2",txtPassword,T2,21,7,1) Call DoRegInputRow ("T3",txtConfirm,T3,21,7,1) 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 r_use_authorize OR (UserUpdate OR ChkUpdate="True") then %> <% If (Mid(strShowField,2,1)=1) then Call DoRegInputRow("x_first_name",txtFirstName,x_firstname,21,2,1) End if If (Mid(strShowField,3,1)=1) then Call DoRegInputRow("x_last_name",txtLastName,x_lastname,21,3,1) End if Call DoRegInputRow("x_email",txtEMail,x_email,21,5,1) If r_hide_email then %> <% End If '=============================================================== '----------------------------- ' Add extended info if reqired '----------------------------- If r_extended_info then If (Mid(strShowField,24,1)=1) then Call DoRegInputRow("x_website",txtWebSite,x_website,21,24,1) End if If (Mid(strShowField,16,1)=1) then Call DoRegInputRow("x_company",txtCompany,x_company,21,16,1) End if If (Mid(strShowField,22,1)=1) then Call DoRegInputRow("x_phone",txtPhone,PhoneFormat(x_phone),21,22,1) End if If (Mid(strShowField,23,1)=1) then Call DoRegInputRow("x_fax",txtFax,PhoneFormat(x_fax),21,23,1) End If If (Mid(strShowField,17,1)=1) then Call DoRegInputRow("x_address",txtAddress,x_address,21,17,1) End if If (Mid(strShowField,18,1)=1) then Call DoRegInputRow("x_city",txtCity,x_city,21,18,1) End if If (Mid(strShowField,19,1)=1) then If r_show_states then Call DoRegInputRow("",txtState,Replace(Application.Contents("x_state"),""""&x_state&"""", """"&x_state&""" Selected"), 0,19,3) Else Call DoRegInputRow("x_state",txtState,x_state,21,19,1) End if End if If (Mid(strShowField,20,1)=1) then Call DoRegInputRow("x_zip",txtZip,x_zip,21,20,3) End if If (Mid(strShowField,21,1)=1) then Call DoRegInputRow("",txtCountry,Replace(Application.Contents("x_country"),""""&x_country&"""", """"&x_country&""" Selected"), 0,21,3) End if If (Mid(strShowField,25,1)=1) then Call DoRegInputRow("",txtFound,Replace(Application.Contents("x_UserFound"),""""&x_UserFound&"""", """"&x_UserFound&""" Selected"), 0,25,3) End if If (Mid(strShowField,26,1)=1) then Call DoRegInputRow("x_spare",txtSpare,x_spare,21,26,1) End if If (Mid(strShowField,10,1)=1) then If bUseAccessGroup then Call DoRegInputRow("",txtAccessLevel,Replace(Application.Contents("x_AccessLevel"),""""&AccessLevel&"""", """"&AccessLevel&""" Selected"),0,10,3) Else Call DoRegInputRow("AccessLevel",txtAccessLevel,AccessLevel,21,10,1) End if End if End If End if %>



<%=txtUserName%>	<%=Username%>
Please enter your Username
Please enter and confirm your Password

Additional Information
	value="True"><%=txtEmailPrivate%>
<%If Authenticate then%>You must enter a correct e-mail address, as your login details will be mailed to you. <%end if%> <% If arrErrMsg(5) = txtMsgEmailExists then If (lCase(EmailComponent) <> "none" AND l_send_password) then %> This email address exists. Send existing password? <%Else%> This email address exists. You must use a unique address, or login with that account. <%End if End if %>
<%=txtMsgReqField%>