<% Dim bodystring bodystring = bodystring + " " + vbCrLf bodystring = bodystring + "Alumalite Classic: " + Request.Form ("classic") + vbCrLf bodystring = bodystring + "Alumalite Sophie: " + Request.Form ("sophie") + vbCrLf bodystring = bodystring + "Alumalite Zero: " + Request.Form ("zero") + vbCrLf bodystring = bodystring + "Alumalite Liineare 10: " + Request.Form ("lineare10") + vbCrLf bodystring = bodystring + "Alumalite Liineare 20: " + Request.Form ("lineare20") + vbCrLf bodystring = bodystring + "Alumalite Kiosks: " + Request.Form ("kiosks") + vbCrLf bodystring = bodystring + "All 6 Products: " + Request.Form ("bonus") + vbCrLf bodystring = bodystring + "All 6 Products On Home Page: " + Request.Form ("bonus2") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "URL 1: " + Request.Form ("url") + vbCrLf bodystring = bodystring + "URL 2: " + Request.Form ("url2") + vbCrLf bodystring = bodystring + "URL 3: " + Request.Form ("url3") + vbCrLf bodystring = bodystring + "URL 4: " + Request.Form ("url4") + vbCrLf bodystring = bodystring + "URL 5: " + Request.Form ("url5") + vbCrLf bodystring = bodystring + "URL 6: " + Request.Form ("url6") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------------------" bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " Name: " + Request.Form ("name") + vbCrLf bodystring = bodystring + "Contact Name: " + Request.Form ("contact") + vbCrLf bodystring = bodystring + "Phone: " + Request.Form ("phone") + vbCrLf bodystring = bodystring + "Email: " + Request.Form ("email") + 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 = "mguillen@abex.com" ' objMail.cc = "mguillen@abex.com" ' objMail.bcc = "mguillen@abex.com" If (Request.Form ("name") <> "" AND Request.Form("phone") <> "2233442" AND Request.Form("phone") <> "Unknown" AND Request.Form("phone") <> "5001020" AND Request.Form("phone") <> "Information" AND Request.Form("phone") <> "About" AND Request.Form("phone") <> "") Then Set objMail = Server.CreateObject("Dundas.Mailer") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" objMail.FromAddress = "youdeserveit@abex.com" objMail.TOs.Add("sfinken@abex.comm") objMail.Subject = "Feedback from Abex Web Listing" objMail.Body = bodystring mailres = objMail.SendMail() set objMail = nothing End If %> Alumalite Web Site Listing
     
     
 

 

  
 

Thank you!

You have just started earning your Privatelabel credits.

Click Here: Privatelabelonline.com