<%
Dim bodystring
bodystring = bodystring + "TS2 ABEX HOSPITALITY SUITE" + vbCrLf
bodystring = bodystring + " " + Chr(13) + Chr(10)
bodystring = bodystring + "-------------------------------------------------" + vbCrLf
bodystring = bodystring + " " + Chr(13) + Chr(10)
bodystring = bodystring + "The following person has submitted RSVP info..." + vbCrLf
bodystring = bodystring + " " + Chr(13) + Chr(10)
bodystring = bodystring + "Company: " + Request.Form ("company") + vbCrLf
bodystring = bodystring + " " + Chr(13) + Chr(10)
bodystring = bodystring + "Name 1: " + Request.Form ("name1") + vbCrLf
bodystring = bodystring + "Name 2: " + Request.Form ("name2") + vbCrLf
bodystring = bodystring + "Name 3: " + Request.Form ("name3") + vbCrLf
bodystring = bodystring + "Name 4: " + Request.Form ("name4") + vbCrLf
bodystring = bodystring + " " + Chr(13) + Chr(10)
bodystring = bodystring + "Attend Yes?: " + Request.Form ("attend_yes") + vbCrLf
bodystring = bodystring + "Attend No?: " + Request.Form ("attend_no") + vbCrLf
bodystring = bodystring + "Attend Yes?: " + Request.Form ("attend_hospitality_yes") + vbCrLf
bodystring = bodystring + "Attend No?: " + Request.Form ("attend_hospitality_no") + vbCrLf
bodystring = bodystring + " " + Chr(13) + Chr(10)
bodystring = bodystring + " " + Chr(13) + Chr(10)
' Set objMail = CreateObject("CDONTS.NewMail")
' objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">"
' objMail.From = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">"
' objMail.To = "ts@abex.com"
' objMail.cc = "mbgieser@abex.com"
' objMail.bcc = "cmolina@abex.com"
Set objMail = Server.CreateObject("Dundas.Mailer")
'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">"
objMail.FromAddress = "virtual_sender@abex.com"
objMail.TOs.Add("ts@abex.com")
objMail.Subject = "Powered by Abex - 2005 RSVP"
objMail.Body = bodystring
mailres = objMail.SendMail()
set objMail = nothing
%>
Send E-mail
Thank you for
your RSVP!
We look forward
to seeing to in Washington D.C.!
