%@LANGUAGE="VBSCRIPT"%>
<%
Dim ConfirmMsg
Dim myCDONTSMail
Dim strFrom, strTo, strSubject, strBody, strList, strToList
If (Request.Form("submitted") = "yes") Then
strFrom = Request.Form("pm_mail")
strTo = "feedback@racetothetop.org"
strSubject = "Feedback form"
strList = request.form("list")
strToList = "news-subscribe@lists.racetothetop.org"
strBody = "Last:" & vbTab & request.form("pm_sn") & vbCrLf
strBody = strBody & "First:" & vbTab & request.form("pm_givenName") & vbCrLf
strBody = strBody & "Company:" & vbTab & request.form("pm_companyName") & vbCrLf
strBody = strBody & "OrgType:" & vbTab & request.form("orgType") & vbCrLf
strBody = strBody & "Relevant:" & vbTab & request.form("Caters") & vbCrLf
strBody = strBody & "Navigate:" & vbTab & request.form("Navigate") & vbCrLf
strBody = strBody & "About:" & vbTab & request.form("About") & vbCrLf
strBody = strBody & "Issues:" & vbTab & request.form("Issues") & vbCrLf
strBody = strBody & "Results:" & vbTab & request.form("Results") & vbCrLf
strBody = strBody & "Case:" & vbTab & request.form("Case") & vbCrLf
strBody = strBody & "News:" & vbTab & request.form("News") & vbCrLf
strBody = strBody & "Resources:" & vbTab & request.form("Resources") & vbCrLf
strBody = strBody & "Features:" & vbTab & request.form("Features") & vbCrLf
strBody = strBody & "Comments:" & vbTab & request.form("Comments") & vbCrLf
strBody = strBody & "Heard:" & vbTab & request.form("hear") & vbCrLf
strBody = strBody & "Detail:" & vbTab & request.form("hearDetail") & vbCrLf
strBody = strBody & "Often:" & vbTab & request.form("howOften") & vbCrLf
strBody = strBody & "Email:" & vbTab & strFrom & vbCrLf
strBody = strBody & "Subscribed:" & vbTab & strList & vbCrLf
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom, strTo, strSubject, strBody
Set myCDONTSMail = Nothing
ConfirmMsg = "Thank you for submitting your feedback."
If strList = "yes" Then
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom, strToList
Set myCDONTSMail = Nothing
ConfirmMsg = ConfirmMsg & "
You will shortly receive an email asking for confirmation that you wish to be added to our mailing list."
End If
End If
%>