<% w_s = request.querystring("w_s") border=0 strRegForm="" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"

" if w_s = 2 then strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &" " end if if w_s = 7 then strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &" " end if strRegForm = strRegForm &"

" strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"Personal Details" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"Salutation" strRegForm = strRegForm &" " sql = "" sql = sql &" SELECT * FROM tblSalutation " & " " set rst = adodbConn.Execute(sql) strRegForm = strRegForm & "" strRegForm = strRegForm & "Please Select..." while not rst.EOF rst_SalutationName=rst("SalutationName") strRegForm = strRegForm & " " & rst_SalutationName & "" rst.MoveNext wend strRegForm = strRegForm & "" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"Telephone No." strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"First Name" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"Mobile No." strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"Surname" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"Email" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"D.O.B." strRegForm = strRegForm &" " strRegForm = strRegForm &createCalendar strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &"Address Details" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"Address 1" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"Address 2" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"Address 3" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"Town" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"County" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"* " strRegForm = strRegForm &"Postcode" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &"   " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &"Miscellaneous Details" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"Gender" strRegForm = strRegForm &" " strRegForm = strRegForm & "" strRegForm = strRegForm & "Please Select..." strRegForm = strRegForm & "Male" strRegForm = strRegForm & "Female" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &"Marital Status" strRegForm = strRegForm &" " strRegForm = strRegForm & "" strRegForm = strRegForm & "Please Select..." strRegForm = strRegForm & "Single" strRegForm = strRegForm & "Married" strRegForm = strRegForm & "Rather not say" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"Please click here to read our privacy policy" strRegForm = strRegForm &" " strRegForm = strRegForm &"Household Income" strRegForm = strRegForm &" " sql = "" sql = sql &" SELECT * FROM tblIncome " & " " sql = sql &" ORDER BY IncomeValue " & " " set rst = adodbConn.Execute(sql) strRegForm = strRegForm & "" strRegForm = strRegForm & "Please Select..." while not rst.EOF rst_IncomeAmount=rst("IncomeAmount") rst_IncomeID=rst("IncomeID") rst_IncomeValue=rst("IncomeValue") strRegForm = strRegForm & " " & rst_IncomeAmount & "" rst.MoveNext wend strRegForm = strRegForm &" " strRegForm = strRegForm &"Please click here to read our terms and conditions." strRegForm = strRegForm &" " strRegForm = strRegForm &"No. of children in household" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &" " strRegForm = strRegForm &"I accept the terms and conditions." strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &" " strRegForm = strRegForm &"" strRegForm = strRegForm &"" strRegForm = strRegForm & "" strRegForm = strRegForm & "" strRegForm = strRegForm &" " strRegForm = strRegForm & "" strRegForm = strRegForm & "" strRegForm = strRegForm & " " strRegForm = strRegForm &" " strRegForm = strRegForm &"*" strRegForm = strRegForm &" = Mandatory field" strRegForm = strRegForm &" " strRegForm = strRegForm &"

" response.write strRegForm %>