% if request("submit") > "" then ' send form ConnectDBFile "iwight", cn 'response.Write("!" & request.Form("interest1")) if request.Form("interest1") <> "" then interest1 = 1 else interest1 = 0 end if if request.Form("interest2") <> "" then interest2 = 1 else interest2 = 0 end if if request.Form("interest3") <> "" then interest3 = 1 else interest3 = 0 end if if request.Form("interest4") <> "" then interest4 = 1 else interest4 = 0 end if if request.Form("interest5") <> "" then interest5 = 1 else interest5 = 0 end if if request.Form("interest6") <> "" then interest6 = 1 else interest6 = 0 end if if request.Form("interest7") <> "" then interest7 = 1 else interest7 = 0 end if if request.Form("interest8") <> "" then interest8 = 1 else interest8 = 0 end if if request.Form("interest9") <> "" then interest9 = 1 else interest9 = 0 end if if request.Form("interest10") <> "" then interest10 = 1 else interest10 = 0 end if if request.Form("interest11") <> "" then interest11 = 1 else interest11 = 0 end if if request.Form("interest12") <> "" then interest12 = 1 else interest12 = 0 end if if request.Form("interest13") <> "" then interest13 = 1 else interest13 = 0 end if if request.Form("interest14") <> "" then interest14 = 1 else interest14 = 0 end if if request.Form("interest15") <> "" then interest15 = 1 else interest15 = 0 end if if request.Form("interest16") <> "" then interest16 = 1 else interest16 = 0 end if if request.Form("interest17") <> "" then interest17 = 1 else interest17 = 0 end if if request.Form("interest18") <> "" then interest18 = 1 else interest18 = 0 end if if request.Form("interest19") <> "" then interest19 = 1 else interest19 = 0 end if if request.Form("interest20") <> "" then interest20 = 1 else interest20 = 0 end if if request.Form("interest21") <> "" then interest21 = 1 else interest21 = 0 end if if request.Form("interest22") <> "" then interest22 = 1 else interest22 = 0 end if if request.Form("HappyToEmail") <> "" then toemail = 1 else toemail = 0 end if if request.Form("HappyToPost") <> "" then topost = 1 else topost = 0 end if if request.Form("HappyTo3rdParty") <> "" then thirdparty = 1 else thirdparty = 0 end if if Request.Form("rememberme") <> "" then remember = 1 else remember = 0 end if if request.Form("brochure1") <> "" then brochure1 = 1 else brochure1 = 0 end if if request.Form("brochure2") <> "" then brochure2 = 1 else brochure2 = 0 end if SQLQuery = "INSERT INTO officalguide ([2006], [2007], guide_title, guide_first, guide_last, guide_email, guide_ad1, guide_ad2, guide_ad3, guide_town, guide_county, guide_post, guide_country, guide_arts, guide_cowes, guide_culture, guide_cycle, guide_eating, guide_enviro, guide_equestrian, guide_extreme, [guide-familyact], guide_friends, guide_green, guide_heritage, guide_maritine, guide_music, guide_mfestivals, guide_nightlife, guide_sailing, guide_school, guide_shop, guide_special, guide_sports, guide_walk, guide_specofferemail, guide_specofferpost, guide_selectpartners, guide_rememberme) VALUES ('" & brochure1 & "', '" & brochure2 & "', '" & request.Form("title") & "', '" & request.Form("forename") & "', '" & request.Form("surname") & "', '" & request.Form("email") & "', '" & request.Form("address1") & "', '" & request.Form("address2") & "', '" & request.Form("address3") & "', '" & request.Form("address4") & "', '" & request.Form("address5") & "', '" & request.Form("postcode") & "', '" & request.Form("country") & "', " & interest1 & ", " & interest2 & ", "& interest3 & ", " & interest4 & ", " & interest5 & ", " & interest6 & ", " & interest7 & ", " & interest8 & ", " & interest9 & ", " & interest10 & ", " & interest11 & ", " & interest12 & ", " & interest13 & ", " & interest14 & ", " & interest15 & ", " & interest16 & ", " & interest17 & ", " & interest18 & ", " & interest19 & ", "& interest20 & ", " & interest21 & ", " & interest22 & ", " & toemail & ", " & topost & ", " & thirdparty & ", " & remember & ")" 'response.Write(sqlquery) 'response.End() Set rsInsert = Server.CreateObject("ADODB.Recordset") Set rsInsert = cn.execute(SQLQuery) ' Submit nomination Set objCDOMail = Server.CreateObject("CDO.Message") objCDOMail.From = "info@isleofwight.net" objCDOMail.To = "info@islandbreaks.co.uk" 'objCDOMail.To = "James@InnoCreate.com" objCDOMail.Subject = "Isleofwight.net - brochure request" body = "Name: " & request("forename") & " " & request("surname") & vbcrlf & _ "Email address: " & request("email") & vbcrlf & _ "Address: " & request("address1") & vbcrlf & _ request("address2") & vbcrlf & _ request("address3") & vbcrlf & _ request("address4") & vbcrlf & _ request("address5") & vbcrlf & _ request("postcode") & vbcrlf & _ request("country") & vbcrlf & vbcrlf & _ "Send Brochures: " & request.Form("Brochure1") & "," & request.Form("Brochure2") & _ "Interests: " for i = 1 to 22 if request.Form("interest" & i) <> "" then body = body & " " & request.Form("interest" & i) end if next if toemail = 1 then body = body & vbcrlf & vbcrlf & "Email me special offers" end if if topost = 1 then body = body & vbcrlf & vbcrlf & "Post me special offers" end if if thirdparty = 1 then body = body & vbcrlf & vbcrlf & "Send me 3rd party offers" end if if remember = 1 then body = body & vbcrlf & vbcrlf & "Remember me" end if objCDOMail.TextBody = body objCDOMail.Send SET objCDOMail = nothing msgErr = "Thank you. Your brochure request has been submitted." end if %>
Request brochure
<% if msgErr <> "" then %> <% = response.Write("" & msgErr & "
") %> <% end if %>