<% Dim bodystring bodystring = bodystring + " " + vbCrLf bodystring = bodystring + "Company Name: " + Request.Form ("txtCompanyName") + vbCrLf bodystring = bodystring + "Contact Name: " + Request.Form ("txtContactName") + vbCrLf bodystring = bodystring + "Address: " + Request.Form ("Address") + vbCrLf bodystring = bodystring + "Phone/Fax" + Request.Form ("txtPhoneFax") + vbCrLf bodystring = bodystring + "Email Address: " + Request.Form ("txtEmailAddress") + vbCrLf bodystring = bodystring + "Web Site: " + Request.Form ("txtWebsite") + vbCrLf ' bodystring = bodystring + "Telephone: " + Request.Form ("phone") + vbCrLf ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Type Of Display: " + Request.Form ("typeofdisplay") + vbCrLf ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Pop Up Size: " + Request.Form ("popupsize") + vbCrLf ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Aluminate Size: " + Request.Form ("aluminatesize") + vbCrLf ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Banner Stand Width: " + Request.Form ("bannerstandwidth") + vbCrLf bodystring = bodystring + "Date Of Purchase: " + Request.Form ("txtdateofpurchase") + vbCrLf bodystring = bodystring + "Comments: " + Request.Form ("Comments") + vbCrLf ' 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 = "marketing@abex.com" ' objMail.cc = "dlee@abex.com" ' objMail.bcc = "asawyer@abex.com" If (Request.Form ("txtCompanyName") <> "")Then Set objMail = Server.CreateObject("CDONTS.NewMail") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" objMail.From = "kevin@earthboundentertainment.com" 'objMail.TOs.Add("kevin@earthboundentertainment.com") objMail.To="kevinkotzin@gmail.com" objMail.Subject = "Abex WARRANTY REGISTRATION" objMail.Body = bodystring mailres = objMail.Send() set objMail = nothing End If %> Abex


Thanks for Registering!

-The Abex Team