Registration Form

" strReg08=strReg08 & "

" if campaign <> "" then sql="" sql=sql &"select * from tblRegCampaign" & " " sql=sql &"where RegCampaignPsum='"&campaign_id&"' " & " " set rst = adodbConn.Execute(sql) rs_RegCampaignBanner=rst("RegCampaignBanner") rs_RegCampaignUpperText=rst("RegCampaignUpperText") rs_RegCampaignSource=rst("RegCampaignSource") rs_RegCampaignSourceFile=rst("RegCampaignSourceFile") rs_RegCampaignAction=rst("RegCampaignAction") strReg08=strReg08 & "" else strReg08=strReg08&"" strReg08=strReg08&"" sql="" sql=sql &"select * from tblRegImage" & " " sql=sql &"where RegImageClub="&club&" " & " " set rst = adodbConn.Execute(sql) strReg08=strReg08&"

" strReg08=strReg08&"" i=1 Do until rst.EOF rs_RegImageClub=rst("RegImageClub") rs_RegImagePath=rst("RegImagePath") rs_RegImageDesc=rst("RegImageDesc") cellstring="" cellString=cellString&"" if not i mod 2=0 then strReg08=strReg08&""&cellString&"" else strReg08=strReg08&""&cellString&"" strReg08=strReg08&"" end if i=i+1 rst.movenext loop strReg08=strReg08&"

" cellString=cellString&"" cellString=cellString&"" cellString=cellString&"" cellString=cellString&"" cellString=cellString&"

" cellString=cellString&"

" end if if benefits = "yes" then strReg08=strReg08 & "

" if club = 2 then strReg08=strReg08 & strBenefits2 end if if club = 3 then strReg08=strReg08 & strBenefits3 end if if club = 7 then strReg08=strReg08 & strBenefits7 end if if club = 8 then strReg08=strReg08 & strBenefits8 end if strReg08=strReg08 & "

" end if strReg08=strReg08 & "

" strReg08=strReg08 & "

" if ea <> "taken" then if campaign <> "" then strReg08=strReg08 & ""&rs_RegCampaignUpperText&"" else strReg08=strReg08 & ""&rs_RegClubUpperText&"" end if else strReg08=strReg08 & ""&rs_RegClubTakenText&"" end if strReg08=strReg08 & "

" strReg08=strReg08 & "

" strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " if tc<>"rq" then strReg08=strReg08 & " " else strReg08=strReg08 & " " end if strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " if tc<>"rq" then strReg08=strReg08 & " " else strReg08=strReg08 & " " end if strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & "

" strReg08=strReg08 & "Title:" strReg08=strReg08 & "	" sql = "" sql = sql &" SELECT * FROM tblSalutation " & " " set rst = adodbConn.Execute(sql) strReg08 = strReg08 & "" strReg08=strReg08 & "	" sql = "" sql = sql &" SELECT * FROM tblSalutation " & " " set rst = adodbConn.Execute(sql) strReg08 = strReg08 & "" strReg08=strReg08 & "
" strReg08=strReg08 & "First Name:" strReg08=strReg08 & "	" strReg08=strReg08 &"" strReg08=strReg08 & "" strReg08=strReg08 & "
" strReg08=strReg08 & "Surname:" strReg08=strReg08 & "	" strReg08=strReg08 & "" strReg08=strReg08 & "" strReg08=strReg08 & "
" strReg08=strReg08 & "Email address:" strReg08=strReg08 & "	" strReg08=strReg08 & " " & vbCrLf strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & "
" strReg08=strReg08 & "Confirm email:" strReg08=strReg08 & "	" strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & "
" strReg08=strReg08 & "Date of Birth:" strReg08=strReg08 & "	" strReg08=strReg08 & createCalendar strReg08=strReg08 & "	" strReg08=strReg08 & " /" strReg08=strReg08 & " /" strReg08=strReg08 & " " strReg08=strReg08 & "
" strReg08=strReg08 & "Postcode:" strReg08=strReg08 & "	" strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & " " strReg08=strReg08 & "
" strReg08=strReg08 & " Click here to read terms & conditions." strReg08=strReg08 & "	" if tc<>"rq" then if ea<>"taken" then strReg08=strReg08 & "I accept the Terms and conditions: " else strReg08=strReg08 & "I accept the Terms and conditions: " end if else if ea="taken" then strReg08=strReg08 & "I accept the Terms and conditions: " else strReg08=strReg08 & "I accept the Terms and conditions: " end if end if strReg08=strReg08 & "" strReg08=strReg08 & "
" strReg08=strReg08 & "" strReg08=strReg08 & "

" strReg08=strReg08 & "

" strReg08=strReg08 & ""&rs_RegClubLowerText&"" strReg08=strReg08 & "

" strReg08=strReg08 & "