<% Set conn = Server.CreateObject("ADODB.Connection") 'hypothese dsn less dbPath = Server.MapPath("../cgi-bin/contact.mdb") 'dbPath = Server.MapPath("PRODUITS.mdb") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _ & " DBQ=" & dbPath dim nom,prenom,testok,code,postalmarq,errmess,adresse,ville,pays,tel,email,demande,requete1 dim nommarq,Prenommarq,adressemarq,villemarq,telmarq,emailmarq testok=1 Set objRE = New RegExp objRE.Pattern = "@" '------------------------------------------------------------------------------------------------ public function envoi_mail(boite) on error resume next dim retour retour = VBCrLf Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.wanadoo.fr" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic '.Item(cdoSendUserName) = "d" '.Item(cdoSendPassword) = "d" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "tourisme.handicaps@club-internet.fr" .From = "tourisme.handicaps@club-internet.fr" .Subject = "Contact Tourisme & Handicap" .TextBody = Now()&retour& retour &nom & " " &prenom & retour &adresse& " " &retour& " " &code& " " & " " &ville& retour&retour& "Tel:" &tel& retour&retour& "Votre Demande:"&retour &demande& retour&retour& "Email:"&boite .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing end function '------------------------------------------------------------------------------------------------ if Len(request.form("envoyer")) then nom=request.form("nom") prenom= request.form("prenom") code= request.form("code") adresse=request.form("adresse") ville=request.form("Ville") tel=request.form("tel") email=request.form("email") demande=request.form("demande") if request.form("nom")="" then testok=0 nommarq="Merci d'indiquer votre nom" end if if request.form("adresse")="" then testok=0 adressemarq=" Merci d'indiquer votre adresse" end if if not isnumeric(request.form("code")) and request.form("code") <> "" then testok=0 postalmarq="Code Postal incorrect" end if if request.form("Ville")="" then testok=0 villemarq=" Merci d'indiquer votre Ville" end if if request.form("demande")="" then testok=0 askmarq="Merci d'indiquer votre message" end if if not isnumeric(request.form("tel")) and request.form("tel") <> "" then testok=0 telmarq="Indiquez uniquement des chiffres dans le champ téléphone" end if If objRE.Test(request.form("email")) = false Then testok=0 emailmarq="E-mail incorrect" end if if testok=0 then errmess="Merci de vérifier les champs marqués en rouge" end if if testok=1 then requete1 = "insert into pastel (Nom_contact,Prenom_contact,Adresse_contact,Code_contact,Ville_contact,Email_contact,Tel_contact) values('" & nom & "','" & prenom & "','" & adresse & "','" & code & "','" & ville & "','" & email & "','" & tel & "')" set recordset1=Server.CreateObject("ADODB.Recordset") recordset1.Open requete1,conn envoi_mail(email) response.write ("") end if end if if Len(request.form("annuler")) then response.redirect("contact.asp") end if %>
     
 
TOURISME ET HANDICAPS
  
43 Rue MARX DORMOY
75 018 PARIS
Tél: 01 44 11 10 41
Fax : 01 45 55 99 60
(cliquer sur l'adresse pour envoyer un mail)
  
Merci d'indiquer vos coordonnées complétes dans votre message, afin de pouvoir vous répondre de manière adaptée