<% Dim MailBody Err.Clear Set objEMail = Server.CreateObject ("CDONTS.NewMail") If (Err.number <> 0) then Response.Write(Err.Description) else MailBody = "Name : " & Request("name") & vbcrlf MailBody = MailBody & "Country : " & Request("Country") & vbcrlf MailBody = MailBody & "City : " & Request("City") & vbcrlf MailBody = MailBody & "E-Mail : " & Request("email") & vbcrlf MailBody = MailBody & "Cell : " & Request("cell") & vbcrlf MailBody = MailBody & "Message : " & vbcrlf & Request("message") & vbcrlf objEMail.To = Request("to") objEMail.From = Request("email") objEMail.Subject = Request("subject") objEMail.Body = MailBody '----- Send the message using the mailer object ----------- objEMail.Send() '----- Destroy the mailer object ---------- Set objEMail = Nothing Response.Write("Your message has been Sent! Thank you.") End If %>

 

Home Page