pb formulaire Select multiple

**kamalkam** · 13/06/2006, 16h32

J'ai un pb avec ma liste déroulante à choix multiple.Je peux en choisir 1 ou 2 valeurs, mais pas 3. J'ai une erreur interne du serveur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<select name=specificite size=5 multiple>
			<%if request("specificite") =0 then%>
				<option selected name=specificite value=0>------------</option>
			<%else%>
				<option name=specificite value=0>------------</option>
			<%end if%>
			<option name=specificite value=1>CATI1</option>
			<option name=specificite value=2>CATI2</option>
			<option name=specificite value=3>CATI3</option>
			<option name=specificite value=4>Quali1</option>
 
		</select>

**Immobilis** · 13/06/2006, 17h57

Salut,
A mon avis, le pb ne se trouve pas là mais dans le traitement des données reçues par le serveur.
A+

**kamalkam** · 14/06/2006, 09h44

Voila à quoi ressemble mon code. J'ai fait qq tests... Mon code est simplifié...

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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
 
<html>
 
<head>
<title>Enqueteur</title>
</head>
 
<body>
 
<%
 
'-------------------------Connexion à la BD
 
'--------------------------Liste des enqueteurs 
 
SQL="Select * FROM Enqueteur"
Set RSlist = server.createobject("ADODB.Recordset")
RSlist.Open SQL,conn
 
'--------------------------Liste des spécificités 
 
SQL="Select * FROM [Specificites type] ORDER BY position_affichage"
Set RSspe = server.createobject("ADODB.Recordset")
RSspe.Open SQL,conn
 
 
SQL="Select  * FROM enqueteur"
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,conn
 
 
 
%>
 
 
<%'----------------outil de recherche------------%>
<table class=rech_enqueteur>
	<form name="rechercher" Method="GET" action="enqueteur.asp">
 	<tr>
 		<td>Enquêteur</td>
 		<td>
 			<%if request("nouveau")="on" then%> 
 				<input name="nouveau" type="checkbox" checked >*
 			<%else%>
 				<input name="nouveau" type="checkbox">*
			<%end if%>
 		</td>
 	</tr>
 	<tr>
 		<td>
		<select name="enqueteur" size="1">
			<%if request("enqueteur") =0 then%>
				<option selected name="enqueteur" value=0>------------</option>
			<%else%>
				<option name="enqueteur" value=0>------------</option>
			<%end if%>
			<% DO until RSlist.eof %>
			<% if CInt(request("enqueteur")) = RSlist("numero_enqueteur") then%>
				<option selected name="enqueteur" value=<%=RSlist("numero_enqueteur")%>><%=RSlist("nom_enqueteur")%>&nbsp;<%=RSlist("prenom_enqueteur")%></option>
			<%else%>
				<option name="enqueteur" value=<%=RSlist("numero_enqueteur")%>><%=RSlist("nom_enqueteur")%>&nbsp;<%=RSlist("prenom_enqueteur")%></option>
			<%end if%>
 
			<%
			RSlist.movenext
			LOOP
			RSlist.close
 
			%>
		</select>
		</td>
	</tr>
	<tr>
 		<td>Spécificité</td>
 	</tr>
 	<tr>
 		<td>
		<select name="specificite" size="5" multiple>
			<%if request("specificite") =0 then%>
				<option selected name="specificite" value=0>------------</option>
			<%else%>
				<option name="specificite" value=0>------------</option>
			<%end if%>
			<%
				Listspe=request("specificite")
				myArr=split(Listspe,", ")
			%>
			<% DO until RSspe.eof %>
			<% value=CStr(RSspe("numero_spe_type"))
 
			%>
			<% if InArray(myArr,value)  then
				‘----function qui permet de savoir si value est dans le tableau myArr%>
				<option selected name="specificite" value=<%=RSspe("numero_spe_type")%>><%=RSspe("libelle")%></option>
			<% else%>
				<option name="specificite" value=<%=RSspe("numero_spe_type")%>><%=RSspe("libelle")%></option>
			<% end if%>
 
			<%
			RSspe.movenext
			LOOP
			RSspe.close
			%>
		</select>
		</td>
	</tr>
 
	<tr>
		<td><input type="submit" value="Rechercher"></td>
	</tr>
	<tr>
		<td><hr></td>
	</tr>
 
	</form>
	<tr height=100>
		<td>&nbsp;</td>
	</tr>
	<tr>
		<td><hr></td>
	</tr>
	<tr>
		<td>*Exclure les nouveaux enquêteurs de votre recherche</td>
	</tr>
 </table>
 
 <table border=1 class=tab_enqueteur>
 	<form>
 	<tr>
 		<td>Enquêteur</td>
 		<td>Téléphones</td>
 		<td>Spécificités</td>
 	</tr>
 	<%Do until RS.eof %>
 	<tr>
 		<td><%=RS("nom_enqueteur")%>&nbsp;<%=RS("prenom_enqueteur")%></td>
 		<td><%=RS("phone1")%> / <%=RS("phone2")%></td>
 		<%
 		  SQl="Select * FROM [Specificites type] WHERE numero_spe_type IN(Select numero_spe_type FROM [Specificite enqueteur]"
 		  SQL=SQL&" WHERE numero_enqueteur="&RS("numero_enqueteur")&") ORDER BY position_affichage;"
 		  Set RSspe = server.createobject("ADODB.Recordset")
		  RSspe.Open SQL,conn
		  specificites=""
         DO until RSspe.eof
         	if specificites="" then
 				specificites=RSspe("libelle")
 			else
 			 	specificites=specificites&";"&RSspe("libelle")
 			end if
 		  RSspe.movenext
 		  LOOP
 		  RSspe.close
 		%>
 		<td><%=specificites%></td>
 		</tr>
 	<%
 	  RS.movenext
 	  LOOP
 	  RS.close
 	%>
 	</form>
 </table>
 
</body>
 
</html>

Impossible de voir d'où vient mon erreur. Qqun peut m'aider svp... Thanks

**DavidDeTroyes** · 14/06/2006, 12h08

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SQL="Select * FROM Enqueteur"
Set RSlist = server.createobject("ADODB.Recordset")
RSlist.Open SQL,conn
 
'--------------------------Liste des spécificités 
 
SQL="Select * FROM [Specificites type] ORDER BY position_affichage"
Set RSspe = server.createobject("ADODB.Recordset")
RSspe.Open SQL,conn
 
 
SQL="Select  * FROM enqueteur"
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,conn

deja tu as deux fois la meme chose RS et RSlist est identique mais bon c'est pas la ou ca cloche !

**kamalkam** · 14/06/2006, 16h08

Javais pas fait gaffe, jai raccourci un peu mon code. dans mon RS, la requête n'est pas exactement ça. Elle est différente....Mais là n'est pas la question...

**Immobilis** · 14/06/2006, 21h32

Quelle est l'erreur exactement (n° de ligne) ?
Pour faire apparaitre les erreurs: Internet explorer > Outils > Internet Options > onglet Option Avancées > Décocher "Show friendly http error message" (en anglais dslé).

A+

**kamalkam** · 15/06/2006, 09h41

Merci pour l'info! J'ai trouvé mon erreur... C'était au niveau de ma requête...

pb formulaire Select multiple

ASP

Vue hybride

Discussions similaires

Partager

Partager