<%
IDPa =request("IDPa")
%>
<%
Function goodemail(em)
goodemail=true
if em="" then goodemail=false:exit function
if len(em)<6 then goodemail=false:exit function
if instr(em,"@")=0 then goodemail=false:exit function
if instr(em,".")=0 then goodemail=false:exit function
if instr(em," ")>0 then goodemail=false:exit function
if trim(left(em,instr(em,"@")-1))="" then goodemail=false:exit function
End function
%>
<% if goodemail(request("EMail_Rep")) then %>
<%
IDPa =request("IDPa")
Email_Des =request("EMail_Des")
Email_Rep =request("EMail_Rep")
Text_Rep =request("Text_Rep")
Date_Ann=request("Date_Ann")
Num_Ann=request("Num_Ann")
Rub_Ann=request("Rub_Ann")
%>
<% '' Envoie du mail %>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName =Email_Rep
Mailer.FromAddress =Email_Rep
strMailHost = "193.75.199.66"
Mailer.RemoteHost = strMailHost'
Mailer.AddRecipient Email_Des,Email_Des
Mailer.Subject = "Réponse à votre annonce"
strBody = "Réponse a votre annonce du :"& Day( Date_Ann)&"/"& Month( Date_Ann)&"/"& Year( Date_Ann)& " , numéro:"& Num_Ann & chr(10) & chr(13)
strBody = strbody & "Postée dans la rubrique : "&Rub_Ann & chr(10) & chr(13)
strBody = strbody & "--------------------------------------------------------" & chr(10) & chr(13)
strbody = strbody & Text_Rep
Mailer.BodyText = strBody
Mailer.ClearAttachments
rem ------------------------------------
rem - Set the encoding type (default is MIME)
rem - 1 = UUEncoded
rem - 2 = MIME
rem - (optional)
rem ------------------------------------
Mailer.Encoding = 2
Mailer.Priority = 1
Mailer.Urgent = false
if Mailer.SendMail then
'SendMail="C'est envoyé"
else
SendMail="Erreur"
end if
set mailer=nothing
%>
<% '' Ajouter dans la table des réponses %>
<%
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.open "PASP","PASP","PASP"
sql = "select * from T_Reponse"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn2, 1, 3
rs2.AddNew
rs2("IDPa")=IDPa
rs2("Email_Rep")=Email_Rep
rs2("Http_Referer")= Request.ServerVariables("HTTP_REFERER")
rs2.update
rs2.close
conn2.close
set rs2=nothing
set conn2=nothing
%>
Votre réponse à l'annonce a bien été envoyée.
Ce pop-up se fermera automatiquement après 3 secondes.
