<% if request("aj")=1 then
set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Letter", dbConn,1,3,2
rs.addnew
RS.AddNew
if Request.Form("Email")<>"" then RS("Email") = Request.Form("Email")
if Request.Form("nom")<>"" then RS("Surname") = Request.Form("nom")
if Request.Form("prenom")<>"" then RS("Firstname") = Request.Form("prenom")
if Request.Form("Profession")<>"" then RS("Profession") = Request.Form("Profession")
if Request.Form("tel")<>"" then RS("tel") = Request.Form("tel")
RS.Update
if Request.Form("Email") <> "" then
Set Mail2= Server.CreateObject("JMail.SMTPMail")
Mail2.ContentType = "text/html"
Mail2.ServerAddress = "smtp.mtds.com"
Mail2.Sender = "contact@imprimat.ma"
Mail2.Subject = "Lettre d'information Imprimat"
Mail2.AddRecipient request("email")
Mail2.Body = "Votre demande est prise en considération ! Vous recevrez bientôt notre lettre d'information. Merci de votre confiance"
Mail2.Priority = 3
' Envoi...
on error resume next
Mail2.execute
if err <> 0 then
%>
Désolé, mais votre message n'est pas parti !<%
end if
end if
end if %>
