Discussion :

[vever88]

Je souhaiterais afficher mes recordsets(RS) dans un tableau sur deux ou trois colonnes de plusieurs lignes selon le nombre de RS.
Je veux un tableau dans cette configuration-ci:

Code :

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

1
2
3
4
5
6
---------------------
RS(1) / RS(2) / RS(3)
---------------------
RS(4) / RS(5) / RS(6)
---------------------
...

j'ai fais qlq chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 <TABLE Width="80%" Align="center" bgColor="#CCCCFF">
 
            <% DO UNTIL RS.EOF %>
                <TR>
 
                    <TD Align="center"><IMG SRC=<%=RS("0")%>> </TD>
                    <TD Align="center"><IMG SRC=<%=RS("1")%>> </TD>
                    <TD Align="center"><IMG SRC=<%=RS("2")%>> </TD>
 
                </TR>
            <%     RS.MoveNext 
	       LOOP 
            %>
        </TABLE>

Bien entendu le problème c'est la boucle... mais je ne vois pas comment faire
Sauriez-vous comment faire ?

[vever88]

j'ai pensé à mettre un RecordSet.MoveNext entre chaque balises <TD>

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
<TABLE Width="80%" Align="center" bgColor="#CCCCFF">
 
            <% DO UNTIL RS.EOF %>
                <TR>
 
                    <TD Align="center"><IMG SRC=<%=RS("0")%>> </TD>
                    <% RS.MoveNext %>
                    <TD Align="center"><IMG SRC=<%=RS("0")%>> </TD>
                    <% RS.MoveNext %>
                    <TD Align="center"><IMG SRC=<%=RS("0")%>> </TD>
 
                </TR>
            <%     RS.MoveNext 
	       LOOP 
            %>
        </TABLE>

Mais ça ne marche pas non-plus

[pc75]

Bonjour,

Tu veux essayer ça et nous donner le résultat ?

Code :

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

1
2
3
4
5
6
7
8
9
 
<% 
DO UNTIL RS.EOF
response.write "RS(0) = " & RS("0") & "<br>"
response.write "RS(1) = " & RS("1") & "<br>"
response.write "RS(2) = " & RS("2") & "<br>"
RS.MoveNext
LOOP 
%>

[vever88]

Non ça ne marche pas,
on m'anonce une erreur à la ligne

Code :

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

response.write "RS(0) = " & RS("0") & "<br>"

Error ADO distant : impossible de trouver l'objet dans la collection correspondant au nom demandé ou la référence ordinale.

[Immobilis]

Salut,

Tu peux peut-être essayer de t'inspirer de ceci (deux boucles imbriquées)

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
<table border="1" cellspacing="0" cellpadding="3">
<%
i=1
FOR k = 1 to 17
	response.Write("<tr>" + Chr(13) + Chr(10))
	FOR j = 1 to 15
		response.Write("<td align=center valign=top nowrap>")
		response.Write("Chr(" & i &")<br>Ascii: " & Chr(i) & "<br>")
		response.Write("HTML: " & replace(server.HTMLEncode(Chr(i)),"&","&amp;") & "<br>")
		response.Write("URL: " & server.URLEncode(Chr(i)) & "</td>" + Chr(13) + Chr(10))
		i=i+1
	NEXT
	response.Write("</tr>" + Chr(13) + Chr(10))
NEXT
%>
</table>

A+

[vever88]

Bonjour et merci encore de votre aide

Alors j'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<table Width="80%" Align="center">
		<%
		i=0
		FOR k = 1 to 2
			response.Write("<tr>")
			FOR j = 0 to 2
				response.Write("<TD Align=center>")
				response.Write("<IMG SRC="&RS(i)&"Width=60><BR></TD>")
				i=i+1
			NEXT
			response.Write("</tr>")
		NEXT
		%>
		</table>

Mais apparemment ce qui pose problème c'est le

Code :

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

response.Write("<IMG SRC="&RS(i)&"Width=60><BR></TD>")

En effet un simple

Code :

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

1
2
3
FOR i=0 to 2
   Response.Write(RS(i))
NEXT

est source d'erreur

Sauriez-vous ce qui pose problème