<% Dim bodystring bodystring = bodystring + "Portable Modular Odyssey" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-------------------------------------------------" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "The following person has Registered online:" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Source: " + Request.Form ("source") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Name: " + Request.Form ("name") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Title: " + Request.Form ("title") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Company Name: " + Request.Form ("name") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Address: " + Request.Form ("address") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "City: " + Request.Form ("city") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "State: " + Request.Form ("state") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Zip: " + Request.Form ("zip") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Phone: " + Request.Form ("phone") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Fax: " + Request.Form ("fax") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Email: " + Request.Form ("email") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Web Site: " + Request.Form ("website") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Web Site: " + Request.Form ("acknowledge") + vbCrLf 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 = "steve@rk9.com" ' objMail.To = "reception@abex.com" ' objMail.To = "dlee@abex.com" ' objMail.To = "rblumenfeld@abex.com" ' objMail.To = "garry@abex.com" Dim objMail 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("steve@rk9.com") objMail.Subject = "Abex Sales Meeting 2006 RSVP" objMail.Body = bodystring objMail.SendMail set objMail = nothing 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("reception@abex.com") objMail.Subject = "Abex Sales Meeting - 2006 RSVP" objMail.Body = bodystring objMail.SendMail set objMail = nothing 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("dlee@abex.com") objMail.Subject = "Abex Sales Meeting - 2006 RSVP" objMail.Body = bodystring objMail.SendMail set objMail = nothing 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("rblumenfeld@abex.com") objMail.Subject = "Abex Sales Meeting - 2006 RSVP" objMail.Body = bodystring objMail.SendMail set objMail = nothing 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("garry@abex.com") objMail.Subject = "Abex Sales Meeting - 2006 RSVP" objMail.Body = bodystring objMail.SendMail set objMail = nothing %> Send E-mail Abex Invitation
 
 

 

Thank you for your RSVP!
Please click below to pay online for your admittance to the Portable ModularConference and Expo at the elegant Four Seasons Hotel Las Vegas
March 6, 2006 from 3:30pm to 7:00pm.

PayPal account is NOT required for purchase.