% 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 + "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" 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 mailres = 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 mailres = 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 mailres = 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 mailres = 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 mailres = objMail.SendMail() set objMail = nothing %>
|