<% dim objMail dim strEmailFrom dim strNameFrom dim strOrganization dim strCountryOfFirstDegree dim intYearsOfProfessionalExperience dim strEmploymentStatus dim strBody dim strOpinion dim strEmailTo dim strSubject dim strStatementOfInterest 'collect info for 'Your Opinion' email to Vitesse strNameFrom = Session("SubscriberName") strEmailFrom = Session("SubscriberEmail") strOrganization = Session("SubscriberOrganization") strCountryOfFirstDegree = Session("CountryOfFirstDegree") intYearsOfProfessionalExperience = Session("YearsOfProfessionalExperience") strEmploymentStatus = Session("EmploymentStatus") strStatementOfInterest = Session("StatementOfInterest") strOpinion = "Opinion:" & vbCRLF & Session("YourOpinion") strSubject = "Your Opinion (" & strNameFrom & ")" strEmailTo = "info@vitesse.ca" 'strEmailTo = "shaun@greenbutton.ca" 'get user information into the strBody variable strBody = strNameFrom & vbCRLF & strEmailFrom 'if the organization was submitted then... If strOrganization <> "" Then strBody = strBody & vbCRLF & strOrganization & vbCRLF End If 'if the country of first degree was submitted then... If strCountryOfFirstDegree <> "" Then strBody = strBody & vbCRLF & "Country of First Degree: " & strCountryOfFirstDegree End If 'if the Years Of Professional Experience was submitted then... If intYearsOfProfessionalExperience <> "" Then strBody = strBody & vbCRLF & "Years Of Professional Experience: " & intYearsOfProfessionalExperience End If 'if the Employment Status was submitted then... If strEmploymentStatus <> "" Then strBody = strBody & vbCRLF & "Employment Status: " & strEmploymentStatus End If 'if the Statement Of Interest was submitted then... If strStatementOfInterest <> "" Then strBody = strBody & vbCRLF & "Statement Of Interest: " & vbCRLF & strStatementOfInterest End If 'get the opinion into the email body strBody = strBody & vbCRLF & vbCRLF & strOpinion 'set session variable to an empty string Session("SubscriberName") = "" Session("SubscriberEmail") = "" Session("SubscriberOrganization") = "" Session("CountryOfFirstDegree") = "" Session("YearsOfProfessionalExperience") = "" Session("EmploymentStatus") = "" Session("YourOpinion") = "" Session("StatementOfInterest") = "" Set objMail = server.CreateObject("CDONTS.NewMail") objMail.BodyFormat = 1 'plain text objMail.MailFormat = 0 objMail.From = strEmailFrom objMail.To = strEmailTo objMail.subject = strSubject objMail.Body = strBody objMail.Send Set objMail = nothing %>