Check registration form

<% '=============================================================== ' Add Username / password boxes If ContinueRegister <> "True" OR NOT r_2stage_form OR r_use_authorize then %> <% If r_allow_update AND (UserUpdate OR ChkUpdate = "True") then %> <% Else Call DoRegInputRow ("UserName",txtUserName, UserName, 21,4,1) End If %> <% 'Do normal input rows Call DoRegInputRow ("T2",txtPassword, T2, 21,7,1) Call DoRegInputRow ("T3",txtConfirm, T3, 21,7,1) Else %> <% End if '=============================================================== ' Continue with rest of registration If ContinueRegister = "True" OR (NOT r_2stage_form) OR r_use_authorize OR UserUpdate 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 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, x_phone, 21,22,1) End if If (Mid(strShowField, 23, 1) = "1") then Call DoRegInputRow ("x_fax",txtFax, 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, 20, 1) = "1") then Call DoRegInputRow ("x_zip",txtZip, x_zip, 21,20,3) 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 Call DoRegInputRow ("",txtState, Replace(Application.Contents("x_state"),"'"&x_state&"'", "'"&x_state&"' Selected"), 21,19,3) End if If (Mid(strShowField, 21, 1) = "1") then Call DoRegInputRow ("",txtCountry, Replace(Application.Contents("x_country"),"'"&x_country&"'", "'"&x_country&"' Selected"), 21,21,3) End if If (Mid(strShowField, 25, 1) = "1") then Call DoRegInputRow ("",txtFound, Replace(Application.Contents("x_UserFound"),"'"&x_UserFound&"'", "'"&x_UserFound&"' Selected"), 21,25,3) End if If (Mid(strShowField, 26, 1) = "1") then Call DoRegInputRow ("x_spare",txtSpare, x_spare, 21,26,1) End if End If End if %>

<%=txtEntUserName%>
<%=txtUserName%>	<%=Username%>
<%=txtEntConfirm%>
<%=txtAddInfo%>
	value='True'><%=txtEmailPrivate%>
<%If Authenticate then write txtAuth%>
<%=txtMsgReqField%>