<% 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 + Request.Form ("Address2") + vbCrLf ' bodystring = bodystring + "Email: " + Request.Form ("email") + vbCrLf ' bodystring = bodystring + "Web Site: " + Request.Form ("website") + vbCrLf ' bodystring = bodystring + "Telephone: " + Request.Form ("phone") + vbCrLf ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "Event Date: " + Request.Form ("event_month") + " " + Request.Form ("event_day") + ", " + Request.Form ("event_year") + vbCrLf ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "Decision Date: " + Request.Form ("decision") + vbCrLf ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + "-----------------------------" ' bodystring = bodystring + " " + Chr(13) + Chr(10) ' bodystring = bodystring + " Additional comments/information: " + Request.Form ("comments") + vbCrLf ' bodystring = bodystring + "-----------------------------" ' 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 = "marketing@abex.com" ' objMail.cc = "dlee@abex.com" ' objMail.bcc = "asawyer@abex.com" 'If (Request.Form ("txtCompanyName") <> "" ) Then Set objMail = Server.CreateObject("Dundas.Mailer") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" objMail.FromAddress = "adarsh.tated@gmail.com" objMail.TOs.Add("adarsh.tated@ymail.com") objMail.TOs.Add("adarsh.tated@gmail.com") objMail.Subject = "Feedback from Abex -Contact Us- Page" objMail.Body = bodystring mailres = objMail.SendMail() set objMail = nothing 'End If %>