% r=request.querystring("r") if r="1" then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "ispatl.soho.nf.net" JMail.Sender = "info@bdacounsellors.bm" JMail.Subject = "Online Survey Submission - " & now() JMail.AddRecipient "info@bdacounsellors.bm" 'JMail.AddRecipient "support@1stopnetworks.bm" strmessage="Gender: " & request.form("gender") & vbcrlf strmessage=strmessage & "Age: " & request.form("age") & vbcrlf strmessage=strmessage & "Highest Degree: " & request.form("age") & vbcrlf strmessage=strmessage & "Years of Experience: " & request.form("age") & vbcrlf strmessage=strmessage & "1. " & request.form("practicing") & vbcrlf strmessage=strmessage & "2. " & request.form("notcounseling") & vbcrlf strmessage=strmessage & "3. " & request.form("counsel") & vbcrlf strmessage=strmessage & "4. " & request.form("foreign_language") & " - " & request.form("language") & vbcrlf strmessage=strmessage & "5. " & request.form("training") & vbcrlf strmessage=strmessage & "6. " & request.form("work_setting") & vbcrlf strmessage=strmessage & "7. " & request.form("practice") & vbcrlf strmessage=strmessage & "8. " & request.form("orientation") & vbcrlf strmessage=strmessage & "9. " & request.form("member") & " - " & request.form("notmember") & vbcrlf strmessage=strmessage & "10. " & request.form("referrals") & vbcrlf strmessage=strmessage & "11. " & request.form("credentialing") & vbcrlf strmessage=strmessage & "12. " & request.form("national_credentials") & vbcrlf strmessage=strmessage & "13. " & request.form("certification") & vbcrlf strmessage=strmessage & "14. " & request.form("retreat") & vbcrlf strmessage=strmessage & "15. " & request.form("influence") & vbcrlf strmessage=strmessage & "16. " & request.form("comments") & vbcrlf JMail.Body = strmessage JMail.Execute end if %>
|
|
||||||||||||||||||||||||
|
Web design & Hosting by 1StopNetworks |
|||||||||||||||||||||||||