|
<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Volunteer Application Submission"
Mailer.FromAddress= "nikki@teenlifeline.org"
Mailer.RemoteHost = "mail.teenlifeline.org"
Mailer.AddRecipient "Nikki Kontz", "nikki@teenlifeline.org"
Mailer.AddRecipient Request.QueryString("FIRSTNAME"), Request.QueryString("EMAIL")
Mailer.Subject = "Peer Counseling Form"
strMsgHeader = "Volunteer Application Service Message" & vbCrLf & "---------------------------------" & vbCrLf
for each qryItem in Request.QueryString
strMsgInfo = strMsgInfo & qryItem & " - " & request.querystring(qryItem) & vbCrLf
next
strMsgFooter = "---------------------------------" & vbCrLf & "This is what you submitted to Teen Lifeline." & vbCrLf & vbCrLf & "A representative will contact you as quickly as possible."
Mailer.BodyText = strMsgHeader
Mailer.BodyText = "First Name:" & " " & Request.QueryString("FIRSTNAME") & vbCrLF
Mailer.BodyText = "Last Name:" & " " & Request.QueryString("LASTNAME") & vbCrLF
Mailer.BodyText = "Address:" & " " & Request.QueryString("ADDRESS") & vbCrLF
Mailer.BodyText = "City:" & " " & Request.QueryString("CITY") & vbCrLF
Mailer.BodyText = "Zip:" & " " & Request.QueryString("ZIP") & vbCrLF
Mailer.BodyText = "Phone:" & " " & Request.QueryString("PHONE") & vbCrLF
Mailer.BodyText = "E-mail Address:" & " " & Request.QueryString("EMAIL") & vbCrLF
Mailer.BodyText = "Birthday:" & " " & Request.QueryString("BIRTHDAY") & vbCrLF
Mailer.BodyText = "Age:" & " " & Request.QueryString("AGE") & vbCrLF
Mailer.BodyText = "School:" & " " & Request.QueryString("SCHOOL") & vbCrLF
Mailer.BodyText = "Freshman:" & " " & Request.QueryString("FRESHMAN") & vbCrLF
Mailer.BodyText = "Sophmore:" & " " & Request.QueryString("SOPHMORE") & vbCrLF
Mailer.BodyText = "Junior:" & " " & Request.QueryString("JUNIOR") & vbCrLF
Mailer.BodyText = "Senior:" & " " & Request.QueryString("SENIOR") & vbCrLF
Mailer.BodyText = "College:" & " " & Request.QueryString("COLLEGE") & vbCrLF
Mailer.BodyText = "********Emergency Contact Info**********" & vbCrLF
Mailer.BodyText = "E First Name:" & " " & Request.QueryString("EFIRSTNAME") & vbCrLF
Mailer.BodyText = "E Last Name:" & " " & Request.QueryString("ELASTNAME") & vbCrLF
Mailer.BodyText = "E Address:" & " " & Request.QueryString("EADDRESS") & vbCrLF
Mailer.BodyText = "E City:" & " " & Request.QueryString("ECITY") & vbCrLF
Mailer.BodyText = "E State:" & " " & Request.QueryString("ESTATE") & vbCrLF
Mailer.BodyText = "E Zip:" & " " & Request.QueryString("EZIP") & vbCrLF
Mailer.BodyText = "E Home Phone:" & " " & Request.QueryString("EPHONEHOME") & vbCrLF
Mailer.BodyText = "E Work Phone:" & " " & Request.QueryString("EPHONEWORK") & vbCrLF
Mailer.BodyText = "E Relationship:" & " " & Request.QueryString("ERELATIONSHIP") & vbCrLF
Mailer.BodyText = "Parent 1:" & " " & Request.QueryString("PARENT1") & vbCrLF
Mailer.BodyText = "Parent 2:" & " " & Request.QueryString("PARENT2") & vbCrLF
Mailer.BodyText = "*********Other Information*********" & vbCrLF
Mailer.BodyText = "Time to be a Peer Counselor Yes:" & " " & Request.QueryString("TIMEPCYES") & vbCrLF
Mailer.BodyText = "Time to be a Peer Counselor No:" & " " & Request.QueryString("TIMEPCNO") & vbCrLF
Mailer.BodyText = "Briefly list your hobbies or interests:" & " " & Request.QueryString("HOBBIES") & vbCrLF
Mailer.BodyText = "List any after school commitments or responsibilities you have:" & " " & Request.QueryString("COMMITMENTS") & vbCrLF
Mailer.BodyText = "Briefly explain your interest or motivation in becoming a Peer Counselor:" & " " & Request.QueryString("MOTIVATION") & vbCrLF
Mailer.BodyText = "What problems are teens facing today? How can Teen Lifeline help?:" & " " & Request.QueryString("TEENPROBLEMS") & vbCrLF
Mailer.BodyText = "Can you ralistically make a commitment to Teen Lifeline:" & " " & Request.QueryString("TLLCOMMITMENT") & vbCrLF
Mailer.BodyText = "Have you had an experience with counseling before:" & " " & Request.QueryString("COUNSELING") & vbCrLF
Mailer.BodyText = "How would you respond to a 15 year old girl who was having a problem with her boyfriend. Lately he doesn't seem to be interested in her, she feels shut out, alone and confused. She doesn't know what to do?:" & " " & Request.QueryString("SCENARIO") & vbCrLF
Mailer.BodyText = "What is the role of a Peer Counselor?:" & " " & Request.QueryString("PCROLE") & vbCrLF
Mailer.BodyText = strMsgFooter
if Mailer.SendMail then
Response.Write "Thank you for contacting |
|