Salut,

Lorsque je lance ma page, il me renvois sur le message d'erreur que j'ai mis (probléme d'envoi ...) voir code ci-dessous.

Voici pour mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
<html>
 
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" media="screen" type="text/css" title="Exemple" href="style/index.css" />
<title>Recontrer un conseiller</title>
</head>
 
<body>
<div id="global">
 
 
<!-- Main -->
 
<!-- Main -->
<div id="main">
 
<% A = Request.Querystring("nom") %>
<% B = Request.Querystring("prenom") %>
<% C = Request.Querystring("email") %>
<% D = Request.Querystring("tel") %>
<% E = Request.Querystring("why") %>
<% F = date %>
 
 
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("visiteurs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")%>
 
 
<%'-------fermeture de la connection et du recordset----------
Set RS = Nothing
Conn.Close
Set Conn = Nothing%>
 
 
<% On Error Resume Next %>
 
<%'-------dans le cas où on n'est pas redirigé ailleurs on ajoute les données----------------------
DSN_BASE = "DBQ=" & Server.Mappath("visiteurs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset") %>
 
<%'-------définition et exécution de la requête--------------
RequeteSQL = "INSERT INTO clients(nom, prenom, email, telephone, objet, date) VALUES ('"& A &"','"& B &"','"& C &"','"& D &"','"& E &"','"& F &"')"
RS.Open RequeteSQL, Conn %>
 
<% if Err.Number=0 Then %>
 
<div align="center">
Vos coordonnées ont bien été envoyées ! <br><br>
</div>
 
<% else %>
<br><br><br>
Problème d'envoi du message ! Veuillez réessayer en cliquant sur précédent, et en vérifiant les données saisies !
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
<% End if %>
 
<% Set RS = Nothing
Conn.Close
Set Conn = Nothing%>
 
 
 
<br><br>
<br><br><br>
<hr = 526>
&nbsp;&nbsp;&nbsp;&nbsp;<font size="2" color="gray"><a href="mention.htm">Informations légales</a> | <br>
</div> <!-- Fin div du main -->
 
</div> <!-- Fin div du global -->
 
 
</body>
</html>
J'ai donc testé ma requete seul pour voir si elle fonctionnait ça me donne ça en ajoutant seulement <% = RequeteSQL %>

Code : Sélectionner tout - Visualiser dans une fenêtre à part
INSERT INTO clients(nom, prenom, email, telephone, objet, date) VALUES  ('toto','gwen','dgtr','0328666377','devuis','5/7/2006')
Je ne sais plus ce que dois afficher la requete si elle est correct, juste les coordonnée nan ? pas tout ça ? Donc j'ai un prob avec ma requete ...