formulaire choix multiple

**vanou** · 07/06/2006, 11h21

Bonjour à tous!

Il me dis erreur de syntaxe quand je veux recupérer la valeur de mon choix multiple avc un if ! pq?

Voici mon formulaire

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
<body><br>
	<form action=http://frintranet2.fr.york.com/Web005/YFR-IN2-0253.asp method=post>
<table>	
	<tr>
	<td>
	Le logiciel &nbsp;
	</td>
	<td>
 <select name="choix" multiple>
  <option value="1">commence par</option>
  <option value="2">contient</option>
  <option value="3">est égal à</option>
	</select>
	</td>
	<td>
	<input type=text name="mot">
	</td>
	<td><input type=submit value=Envoyer>
	</td>
	</tr>
	</form>	
 
 
</table>
</body>
</html>

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
<%
dim mot,choix
choix=Request.Form("choix") 
mot=Request.Form("mot") 
 
set rs=Server.CreateObject("ADODB.Recordset")
varSQL = "SELECT computers.computer_name" & _ 	
	",software_name" & _
	" FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name" & _
 
 
if choix=1 then
varSQL= varSQL & "WHERE software.software_name like '"&mot&"%'"&_
	";"
 
 
rs.open varSQL, "Provider=SQLOLEDB.1;Password=sqlinfo;Persist Security Info=True;User ID=info;Initial Catalog=york_tn;Data Source=FRCARFS13"
 
	response.write "<table border bordercolor=#000000 cellpadding=2>"
	response.write"<tr>"
	response.write"<th>Logiciel</th>"
	response.write"</tr>"
 
do while not rs.eof
	response.write "<tr align=center>"
	response.write "<td>"
	response.write rs("software_name")
	response.write"</td>"
	response.write "</tr>"
	rs.MoveNext	
loop
response.write "</table>"
rs.close
 
 
end if
(...)

merci de votre aide

**malbaladejo** · 07/06/2006, 11h32

Quand tu fais :

Code :

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

choix=Request.Form("choix")

choix est de type string et tu ne peux donc pas le comparer avec un entier.
C'est pour ca que "if choix=1 then" plante.

Il y a 2 solutions pour corriger.
1) Comparaison de chaine de caractères

Code :

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

1
2
3
choix=Request.Form("choix") 
If choix = "1" Then
...

2) Le cast en Cint

Code :

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

1
2
3
choix=CInt(Request.Form("choix") )
If choix = 1 Then
...

**vanou** · 07/06/2006, 11h38

J'ai essayé les deux solutions et aucune ne marche

**ryan** · 07/06/2006, 11h42

Yop!

Code :

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

1
2
3
4
 
varSQL = "SELECT computers.computer_name" & _ 	
	",software_name" & _
	" FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name" & _

Il ne devrait pas y avoir de "&_" à la fin de ta chaine. Donc:

Code :

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

1
2
3
4
 
varSQL = "SELECT computers.computer_name" & _ 	
	",software_name" & _
	" FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name "

Note que j'ai ajouté un espace juste avant le dernier ".

Et ici:

Code :

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

1
2
3
 
varSQL= varSQL & "WHERE software.software_name like '"&mot&"%'"&_
";"

Ca me semble assez spécial d'ajouter un ";" à la fin.
Ce devrait plutôt être

Code :

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

1
2
 
varSQL= varSQL & "WHERE software.software_name like '"&mot&"%'"

Sans préjuger du fait que si ta variable "mot" est nulle, ça risque de couiner sec...

Ryan

**vanou** · 07/06/2006, 11h57

Merci bcp pour ton aide ca a l'air de fonctionner

et en ce qui concerne la variable mot si elle est nul je vais mettre une alerte

Merci

**vanou** · 07/06/2006, 14h30

J'ai encore un petit problème

J'ai ca

je n'arrive pas a obtenir la valeur qui est dans une liste!

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
dim mot,choix
choix=Request.Form("choix") 
mot=Request.Form("mot") 
 
set rs=Server.CreateObject("ADODB.Recordset")
varSQL = "SELECT DISTINCT software_name" & _ 	
	" FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name "
 
if choix=1 then	
 
varSQL= varSQL & " WHERE software.software_name like '"&mot&"%'" & "AND computers.operating_system_name not like '%Server'" & "group by software_name,computers.computer_name"	
 
rs.open varSQL, "Provider=SQLOLEDB.1;Password=sqlinfo;Persist Security Info=True;User ID=info;Initial Catalog=york_tn;Data Source=FRCARFS13"
	response.write "<select name=logi>"
 
do while not rs.eof
 
	response.write "<option>"
	response.write rs("software_name")
	response.write "</option>"
 
	rs.MoveNext	
loop
response.write "</select>"
rs.close
end if
 
response.write "<form method=post action=http://frintranet2.fr.york.com/Web005/YFR-IN2-0254.asp>"
response.write "<input type=submit value=Envoyer>"
response.write "</form>"

(...)

et sur la page YFR-IN2-0254.asp j'ai ecrit ca mais ca me donne aucun resultat

Code :

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

1
2
3
4
5
6
7
dim logi
 
logi=Request.Form("logi") 
 
response.write choix_logi
 
%>

**Phiss** · 07/06/2006, 14h50

dim logi

logi=Request.Form("logi")

response.write choix_logi

Que cela ne t'affiche rien parait logique.

Tu devrais déjà avoir plus de résultat avec

Code :

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

1
2
3
4
5
dim logi
 
logi=Request.Form("logi") 
 
response.write logi

**vanou** · 07/06/2006, 14h58

oups dsl

faute de frappe mais j'avais mis ca av qd mm

mais ca ne fonctionne pas

**Phiss** · 07/06/2006, 15h17

Il faut que pour chaque option que tu as tu lui mette une valeur différente.

Code :

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

1
2
3
4
5
6
7
8
do while not rs.eof
	 
	response.write "<option value='unevaleurunique'>"
	response.write rs("software_name")
	response.write "</option>"

	rs.MoveNext	
loop

**vanou** · 07/06/2006, 15h41

Merci bcp mais en fait c'est que je n'avais pas mis la balise form

merci bcp a toi

formulaire choix multiple

ASP

Discussions similaires

Partager

Partager