<%
Destinataire="voisin@voilab.com"
str=Request("str")
On error resume next
' envois mail de confirmation
Set JMail1= Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail1.ServerAddress = "smtp.fr.uu.net"
JMail1.Sender = "WEBMASTER@VOILAB.COM"
JMail1.Subject = Request("str")
JMail1.AddRecipient Destinataire
JMail1.ContentType = "text/html"
Dim Ct
Ct=""
ct=ct&""
ct=ct&""
ct=ct&"Service Contact WWW.VOILAB.COM
"
ct=ct&"Titre : "&request("Titre")&"
"
ct=ct&"Nom : "&request("Nom")&"
"
ct=ct&"Prénom : "&request("Prénom")&"
"
ct=ct&"Société : "&request("Société")&"
"
ct=ct&"Fonction : "&request("Fonction")&"
"
ct=ct&"adresse : "&request("Adresse")&"
"
ct=ct&"CP : "&request("CP")&"
"
ct=ct&"Ville : "&request("Ville")&"
"
ct=ct&"Pays : "&request("Pays")&"
"
ct=ct&"Téléphone : "&request("Tél")&"
"
ct=ct&"Fax : "&request("Fax")&"
"
ct=ct&"E-Mail : "&request("Email")&"
"
ct=ct&"Activité : "&request("Activité")&"
"
ct=ct&"MATERIEL : "&request("materiel")&"
"
ct=ct&"MARQUE : "&request("marque")&"
"
ct=ct&"DESIGNATION : "&request("designation")&"
"
ct=ct&"CARACTERISTIQUE : "&request("caracteristique")&"
"
ct=ct&"Message : "&request("Message")&"
"
Ct=ct&""
ct=ct&""
JMail1.Body = ct
JMail1.Priority = 3
JMail1.Execute
set JMail1=nothing
email.close
direc="form.asp?type=congratul"
'redirection vers page de confirmation
response.redirect direc
%>
ERREUR Business.ansf.net --Retour--