<% on error resume next FOR EACH i in Request.Form() session(i) = request.form(i) NEXT first_name = Session("first_name") last_name = Session("last_name") address = TRIM(Session("address1") & " " & Session("address2")) city = Session("city") province = Session("province") postal_code = Session("postal_code") email = Session("email") comments = Session("comments") signup = Session("signup") petitioner_type = Session("petitioner_type") IF signup = "" THEN signup = 0 %> Allergic Living :: Campaign for a Food Label Law

<% = first_name & " " & last_name %>, thank you.

Your letter has been sent to Prime Minister Harper in support of the food allergen labelling legislation. You will receive an e-mail confirming this.

The more signatures we get,
the more likely we'll succeed.

Can you help to get more signatures?
Let friends and relatives know about the campaign.

Enter e-mail addresses here, separated by commas
e.g. (email@website.com,email2@anothersite.com)

next   close

<% comments = REPLACE(comments,CHR(13),"

") formvalues = "first_name=" & first_name formvalues = formvalues & "&last_name=" & last_name formvalues = formvalues & "&address=" & address formvalues = formvalues & "&city=" & city formvalues = formvalues & "&province=" & province formvalues = formvalues & "&postal_code=" & postal_code formvalues = formvalues & "&comments=" & comments formvalues = formvalues & "&petitioner_type=" & petitioner_type url = "https://" & request.ServerVariables("HTTP_HOST") & "/allergiclivingcom/petition/remote.letter.template.asp?" & formvalues 'url = "http://" & request.ServerVariables("HTTP_HOST") & "/petition/remote.letter.template.asp?" & formvalues 'response.write XMLHTTP(url,formvalues) 'response.write formvalues 'CALL HtmlEmail("Food Allergen Legislation","Harper.S@parl.gc.ca",email,XMLHTTP(url,""),"Ritz.G@parl.gc.ca;" & email) 'CALL InsertPetitioner(first_name, last_name, address, city, province, postal_code, email, comments, signup) %>