<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 0 %> <% Dim objCDONTS 'create an instance of the object Set objCDONTS = Server.CreateObject("CDONTS.NewMail") 'senders email address objCDONTS.From = Request("mailfrom") 'recipients email address if (Request("mailto") = "1") Then objCDONTS.To = "rechdebbeen@idm.net.lb" end if if (Request("mailto") = "2") Then objCDONTS.To = "rechdebbeen@idm.net.lb" end if if (Request("mailto") = "3") Then objCDONTS.To = "rechdebbeen@idm.net.lb" end if 'this is your subject (title of email) objCDONTS.Subject = Request("mailsubject") 'main text body objCDONTS.MailFormat = cdoMailFormatMIME objCDONTS.BodyFormat = cdoBodyFormatHTML body = Request("mailbody") objCDONTS.Body = "Mail from " & Request("mailfrom") & "" & body & "" 'send the email objCDONTS.Send Set objCDONTS = Nothing response.redirect("contact.html") %>