bonjour,
voila je cherche une solution un truc tout bête mais impossible de le trouver.
j'ai un formulaire. Je rentre des données dans certains champs (du
style nom, adresse) et je recupère ces infos sur un deuxieme formulaire
(qui me sert de résumé avant validation definitive par l'utilisateur en
fait). Mais la, j'aimerai afficher dans une colonne, des données
récuperé sur le formulaire numero 1, mais les une sous les autres dans
le tableau. bon je m'éxprime pas très bien.
Un code vaut mieu qu'un long discour: ma premiere page (
saisie.asp)
<%@ language="vbscript"%>
<html>
<head>
<title>formulaire de saisie</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#66CCCC">
<p align="right"><FONT FACE="Verdana" SIZE="2">
<B><% Response.Write(DATE) %></B>
</FONT></p>
<p align="center"><font size="6">Formulaire de saisie</font></p><br>
<%
set Conn =Server.CreateObject("ADODB.Connection")
ConnString="driver={Microsoft Access driver
(*.mdb)};" & "DBQ="& server.mappath("basedd.mdb")
Conn.open Connstring
set TSQL=server.createObject("adodb.recordset")
sql="select * from depot"
sql="select * from dechet"
TSQL.open sql, Conn%>
<form method="post" name="saisie" action="resume.asp">
<p align="center"></p>
<div align="center"><strong>Nom de l'opérateur : </strong>
<input type="text" name="nom" value="veuillez entrer ici votre nom" size="23" method="get">
</div>
<p align="center">
<table width="50%" height="70%" border="1">
<%'--------définition de la ligne des titres de colonnes----------------------%>
<tr>
<td><p align="center"><b>Type de déchet</b></p></td>
<td><p align="center"><b>Nombre de bidons</b></p></td>
</tr>
</p>
<%'--------affichage des résultats, une ligne par enregistrement--------%>
<%tsql.MoveFirst
'----------démarrage de la boucle----------
DO WHILE not tsql.eof%>
<%'----------remplissage des champs du tableau selon les données trouvées dans la base----------%>
<p align="center">
<tr>
<td><p
align="left"><font
color="#0000CC"><strong><%=tsql("nom_dechet")%></strong></font></p></td>
<td><form name="form1" method="get">
<div align="center">
<select name="form1">
<option>0</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
<option>11</option>
<option>12</option>
<option>13</option>
<option>14</option>
<option>15</option>
</select>
</div>
</td>
</tr>
</p>
<%tsql.MoveNext
'---------------------Fin de la boucle, et de la ligne-------------------
loop%>
</table>
<p align="center"><strong>vous pouvez entrer ici un commentaires (facultatif)</strong></p>
<div align="center"><textarea name="balise_area" cols="50" rows="4" ></textarea></div><br>
<div align="center"><input name="bouton_imprimer" type="submit" value="imprimer">
<input name="bouton_envoyer" type="submit" value="envoyer"><br><br><br>
<input name="bouton_historique" type="submit" value="afficher l'historique des saisies du labo">
<input name="bouton_quotas" type="submit" value="afficher le quotas actuel du laboratoire"></div>
</form>
</body>
</html>
(on peut noter qu'il y a une liste deroulante de 0 à 15 qui se
"reproduit" sur chaque ligne du tableau en face du "type de dechet",
grace a do while not EOF et loop.
Ensuite voila la page sur laquelle je recupère mes données: (
resume.asp).
<%@ language="vbscript"%>
<html>
<head>
<title>résumé de la saisie</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<body bgcolor="#709AE3">
<p align="right"><FONT FACE="Verdana" SIZE="2">
<B><% Response.Write(DATE) %></B>
</FONT></p>
<p align="center"><font size="5"><font size="7">Validation</font></font></p>
<%
set Conn =Server.CreateObject("ADODB.Connection")
ConnString="driver={Microsoft Access driver
(*.mdb)};" & "DBQ="& server.mappath("basedd.mdb")
Conn.open Connstring
set TSQL=server.createObject("adodb.recordset")
sql="select * from depot"
sql="select * from dechet"
TSQL.open sql, Conn%>
<%nom=request.form("nom")%>
<%balise_area=request.form("balise_area")%>
<%form1=request.form("form1")%>
<div align="center"><strong>Nom de l'operateur:</strong><%=nom%></div>
<p align="center">
<table width="50%" height="70%" border="1">
<%'--------définition de la ligne des titres de colonnes----------------------%>
<tr>
<td><p
align="center"><font size="4">Type de
déchets</font></p></td>
<td><p align="center"><font size="4">Nombre de bidons</font></p></td>
</tr>
</p>
<%'--------affichage des résultats, une ligne par enregistrement--------%>
<%tsql.MoveFirst
'----------démarrage de la boucle----------
DO WHILE not tsql.eof
'----------remplissage des champs du tableau selon les données trouvées dans la base----------%>
<p align="center">
<tr>
<td><p
align="left"><font
color="#000000"><strong><%=tsql("nom_dechet")%></strong></font></p></td>
<td><div align="center"><%=form1%></div></td>
</tr>
<%tsql.MoveNext
loop%>
</table>
<p align="center"><strong>vos commentaires:</strong></p>
<p align="center"><%=balise_area%></p>
<p> </p>
<p><br></div>
</p>
</body>
</html>
En fait voila, j'aimerai recuperer les infos des menu deroulant (les
numero koi) et les mettre en face de chaque type de dechet
correspondant. seulement, bien evidement, avec ma facon de proceder (do
while not et loop), a la place d'avoir un numero par ligne, j'ai
carrement tous les numeros, separé par des virgule sur la meme ligne,
et sur chaque ligne du tableau.
ca koi:
type de dechet nombre de bidons
dechet1
6,2,6,0,0,0,2,15,4
dechet2
6,2,6,0,0,0,2,15,4
dechet3
6,2,6,0,0,0,2,15,4
dechet4
6,2,6,0,0,0,2,15,4
etc ...
6,2,6,0,0,0,2,15,4
au lieu de:
type de dechet nombre de bidons
dechet1
6
dechet2
2
dechet3
6
dechet4
0
etc...
0
si quelqu'un pouvait m'aider, merci d'avance en tout cas d'avoir lu ce post
micka