Problème avec "option explicit"

**tribaleur** · 01/06/2006, 08h57

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

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>

Si vous saviez d'où sa peu venir!!!
Merci d'avance!!
P.S. :Si ya d'autre erreur ou truc à améliorer vos conseils seront les biens venus

**Immobilis** · 01/06/2006, 09h39

Salut,

"Option explicit" t'oblige à déclarer TOUTES tes variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ma_variable

Si tu en oublies une il bloque.

Y'a plus qu'à.

A+

**tribaleur** · 01/06/2006, 09h45

Faut aussi déclarer les variable des formulaires???

**tribaleur** · 01/06/2006, 10h46

Bon bin je vais me répondre tout seul!!!

Nan en fait j'avais pas déclaré ma variable "i"

...chui C...
Pour ce qui est des variable de formulaire ou les as... dans les requêtes SQl c'est pas la peine normalement...m'enfin moi sa marche sans...

Problème avec "option explicit"

ASP

Vue hybride

Discussions similaires

Partager

Partager