<% FOR EACH i in Request.Form() session(i) = request.form(i) NEXT emails = TRIM(Session("emaillist")) IF emails <> "" THEN subject = Session("first_name") & " " & Session("last_name") & " has forwarded you information on food allergen legislation." sender = Session("email") body = "

I thought you might find this petition for Canadian food allergen legislation interesting. You can read more about it here: Allergic Living Food Allergen Petition.

Sincerely, " & Session("first_name") & " " & Session("last_name") & "

" 'has forwarded you information on airlines and food allergies. 'I thought you might find this write-in campaign about Canadian airlines and food allergies of interest. arrEmails = SPLIT(emails,",") FOR EACH item IN arrEmails IF EmailValidation(TRIM(item)) THEN 'CALL HtmlEmail(subject,TRIM(item),sender,body,"") END IF NEXT END IF %> Allergic Living :: Campaign for a Food Label Law

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

Your letter has been sent to has been sent to the following list of recipients.

<% response.write REPLACE(Session("emaillist"),",",",
") %>

close