Voila mon problème j'ai fait des rechercher par rapport à "option explicite" (même si y'en à qui dise que je fait pas RTFM, ce que je sais pas ce que ça veut dire soit dit en passant) et je l'ai donc intégré dans mon code. Le poblème c'est que quand je le met sa ne fonctionne plus et quand je l'enlève sa refonctionne.
Voici mon code
Si vous saviez d'où sa peu venir!!!
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 <%option explicit%> <html> <head> <title>Enquete</title> </head> <body> <% '-----------------Déclaration de variable--------------------------- dim date_now dim DSN_BASE dim conn dim RS dim mysql dim nb dim inti '------connexion à la base de "donnée enquete.mdb" ----------------- DSN_BASE = "DBQ="& Server.Mappath("enquete.mdb") &";Driver={Microsoft Access Driver (*.mdb)};Driverld=25" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset") if request.form("okay")="ok"then mysql = "select count(nom_utilisateur) as nb from T_utilisateur where nom_utilisateur='"&request.form ("nom")&"'" RS.open mysql, conn if RS("nb")=0 then mysql = "insert into T_utilisateur (nom_utilisateur) values ('"&request.form("nom")&"')" conn.execute mysql mysql = "select code_utilisateur as nb from T_utilisateur where nom_utilisateur='"&request.form ("nom")&"'" RS.close RS.open mysql, conn for i=1 to 2 mysql = "insert into T_reponse (num_quest,code_utilisateur,reponse) values ('"&i&"','"&RS("nb")&"','"&request.form(""&i&"")&"')" conn.execute mysql next response.write "Client bien enregistré" %> <form action="enquete.asp" method="post"> <input type="submit" name="retour" value="retour"> </form> <% else response.write "client deja existant" %> <form action="enquete.asp" method="post"> <input type="submit" name="retour" value="retour"> </form> <% end if else %> <form action="enquete.asp" method="post"> <input type="hidden" name="okay" value="ok"> Nom de l'utilisateur<input type="text" name="nom"><br/> <% mysql="select intituler_quest as inti from T_question where num_quest=1" RS.open mysql, conn response.Write RS("inti") %> <select size="1" name="1"> <option value="beau">Beau</option> <option value="pas beau">Pas beau</option> </select><br/> <% mysql="select intituler_quest as inti from T_question where num_quest=2" RS.close RS.open mysql, conn response.Write RS("inti") %> <input type="text" name="2"><br/> <input type="submit" name="envoyer" value="Envoyer"> </form> <% end if RS.close conn.close set RS = nothing set conn = nothing %> </body> </html>
Merci d'avance!!
P.S. :Si ya d'autre erreur ou truc à améliorer vos conseils seront les biens venus
Partager