Discussion :

[joulive]

Bonjour,
j'ai travaille en asp avec une base access.
j'ai un formulaire qui contient une liste du produits avec checkbox qui prend en valeur l'id de chaque produit.
Lorsque je selecte deux ou troix produits avec checkbox les valeurs de ces checkbox seront sauvegardé dans une variable de session. Et aprés je voulais revenir dans ce formulaire une autre fois et reselectionné une autre fois deux autres produits qui seront rajouté à la liste des produits choisi dans la premiére fois.

Mon code est le suivant :
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
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
 
<% if(Request("Submit") <> "") then 
 
	sql = "SELECT * FROM produits as P, categorie as C where C.id_pcat = "&request.Form("ref_categorie")&" AND C.id_cat = "&request.Form("categorie")&" AND P.id_cat = C.id_cat"
 
	Set prod = Server.CreateObject("ADODB.Recordset")
    prod.Open sql, conn, 3, 3
	nhist = prod.recordcount
 
	%>
	<form action="check_kit.asp" method="post">
<table width="850px" border="0" cellpadding="0" cellspacing="0" class="display" id="example">
	<thead>
		<tr>		   
		    <th width="65" rowspan="2" class="sorting">Image</th>
			<th width="86" rowspan="2" class="sorting_asc">R&eacute;f&eacute;rence</th>
			<th rowspan="2" class="sorting">D&eacute;signation</th>
			<th width="41" rowspan="2" class="sorting">PR</th>
			<th rowspan="2" class="sorting">PV</th>
			<th colspan="2" class="sorting">Marge</th>
			<th width="87" rowspan="2" class="sorting">Prix <br>revendeur</th>
			<th colspan="2" class="sorting">Marge</th>
            <th width="48" rowspan="2">&nbsp;</th>
		</tr>
		<tr>
		  <th width="45">&ne; % PV</th>
		  <th width="45">%</th>
		  <th width="45">&ne; % PR</th>
		  <th width="40">%</th>
		</tr>
	</thead>
	<tbody>
<% if (nhist = 0) then
  else
  prod.movefirst 
  do while not prod.eof
%>
	<tr class="gradeA odd">
 
			<td align="center"><img src="../../image_picto/<%=prod.fields("Image_vignette")%>" hspace="1" vspace="1" border="0" title="<%=prod.fields("Titre_Prod")%>"></td>
			<td><%=prod.fields("Ref_prod")%></td>
			<td width="250"><%=prod.fields("Titre_Prod")%></td>
			<td align="center"><%
			PR=formatnumber( prod.fields.item("prix_achat")+ prod.fields.item("Prix_revient") , 2 )
			response.write(PR)
			%></td>
			<td width="100" align="center"><% PrixHTprom=prod.fields("PrixHTprom_Prod")
					 PrixHT_Prod=prod.fields("PrixHT_Prod")
					 if prod.fields("Prom_Prod")=1 then
					 prix = formatnumber(PrixHTprom)
					 end if 
					 if prod.fields("Prom_Prod")=0 then
					 prix =formatnumber(PrixHT_Prod)	
					 end if 
					 response.write(prix)
					 %>	</td>
			<td width="50"  align="center"><%  
					 marge=formatnumber((prix-PR), 2)
					 response.write(marge)
					 %></td>
			<td width="45"  align="center"><% percent=formatnumber((((prix/PR)-1)*100),2)
			response.write(percent)
			%></td>
			<td align="center"><%=prod.fields("PrixHTrev_Prod")%></td>
			<td width="50"  align="center"><% marge2=formatnumber(prod.fields("PrixHTrev_Prod")-PR,2)
			response.write(marge2) %></td>
			<td width="45"  align="center"><% percent2=formatnumber((((prod.fields("PrixHTrev_Prod")/PR)-1)*100),2)
			response.write(percent2) %></td>
			<td class="center"><input name="choix[]" type="checkbox" id="choix[]" value="<%=prod.fields("Id_Prod")%>"></td>
	  </tr>
		<%
prod.movenext
loop
end if%>	
	</tbody>
</table><br>
<br>
<div>
  <div align="right">
    <input name="ok" type="submit" value="Valider et continuer">
  </div>
</div>
	</form>
	<% end if %>

page check_kit.asp

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<%
My_Array=split(request.form("choix"),", ") 
For Each item In My_Array
Session("choix") = item
response.write(Session("choix")&"<br>")
Next
 
response.redirect("nouveau_kit.asp")
%>

Avez vous une idée???

Merci d'avance

[joulive]

Bonjour,
J'ai rectifié un peu mon code et j'ai mis ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim myArray(20)
Dim I
arrMyArray=split(request.form("choix"),", ") 
 
Session("MyArray") = arrMyArray  
 
For Each item In arrMyArray
Myarray(I)= item
response.write(Session("MyArray")(I)&"<br>")
I=I+1
Next
response.redirect("nouveau_kit.asp")

ca marche il peut lire tous les checkbox selectionnés par contre je voulais lire ces variables dans l'autre page nouveau_kit.asp

j'ai tapé ce code :
LocalArray = Session("MyArray")
Response.Write(LocalArray(0))
il m'affiche une erreur comme la suite :

Code :

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

1
2
3
4
5
6
 
Erreur d'exécution Microsoft VBScript erreur '800a0009'
 
Indice en dehors de la plage: '[number: 0]'
 
/admin/gest_kit/nouveau_kit.asp, ligne 17

quelqu'un peut m'aider

merci d'avance