<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Request.Form("Name")
Mailer.FromAddress = Request.Form("Email")
Mailer.RemoteHost = "localhost"
Mailer.AddRecipient "Jason Roscoe", "jroscoe10@comcast.net"
'Mailer.AddBCC "Jason Roscoe", "jroscoe10@comcast.net"
Mailer.Subject = "Christian Education Committee Survey"
Mailer.BodyText = "Donna," & Chr(13) & Chr(13) & "1. Do you and/or your family members currently participate in programs and activities in addition to Sunday worship services?: " & Request.Form("q1") & Chr(13) & "2. Do the current programs meet your needs?: " & Request.Form("q2") & Chr(13) & "3. The Christian Education Committee coordinates the following areas of ministry. Please rate them according to how well they are serving your needs and expectations." & Chr(13) & "3a. Sunday Church School: " & Request.Form("q3a") & Chr(13) & "3b. Adult Sunday School: " & Request.Form("q3b") & Chr(13) & "3c. Confirmation Studies: " & Request.Form("q3c") & Chr(13) & "3d. Zion Youth Groups: " & Request.Form("q3d") & Chr(13) & "3e. Vacation Bible School: " & Request.Form("q3e") & Chr(13) & "3f. Church Nursery: " & Request.Form("q3f") & Chr(13) & "3g. Bible Studies: " & Request.Form("q3g") & Chr(13) & "4. As our congregation grows so does our vision. In what areas would you like to see development? (Please check one or more): " & Request.Form("q4") & Chr(13) & "5. If more programs were offered, what would you be interested in attending?: " & Request.Form("q5")
if Request.Form("q5other") <> 0 then
Mailer.BodyText = Mailer.BodyText & "Other: " & Request.Form("q5other")
End if Mailer.BodyText = Mailer.BodyText & "6. What time would you like to see these programs offered?: " & Request.Form("q6") & Chr(13) & "7. Would you be willing to help plan/execute these programs?: " & Request.Form("q7") & Chr(13) & "8. The Library will soon be up and running…what times and days would you see yourself using the Library here at church?: " & Request.Form("q8") & Chr(13) & "9. Are there any books that have been a spiritual help in your life that you feel the library should have?: " & Request.Form("q9") & Chr(13) & "10. The committee welcomes all members who would like to be involved in this ministry.: " & Request.Form("q10") & Chr(13) & Chr(13) & "Name: " & Request.Form("Name") & Chr(13) & "Telephone: " & Request.Form("Phone") & Chr(13) & "Best time to contact you: " & Request.Form("Contact") & Chr(13) & "E-mail" & Request.Form("Email")
if Mailer.SendMail then
Response.Write (" <p>" & Mailer.FromName & ",</p><p> Your survey has been processed.</p>Thank you,<br>Donna Ebright")
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>
</td>
</tr>
</table>
Reply With Quote
Bookmarks