Afficher requête asp

Bonjour, je suis débutant dans le language ASP
Je voudrais savoir comment afficher une requête ASP dans trois colonne de tableau et change de ligne automatique. Pour l'instant j'ai réussi à afficher la requête sur un colonne et sur plusieurs lignes.

un exemple de ce que j'essaie d'avoir: [ Lien ]

ce que j'ai réussi à faire pour l'instant: [ Lien ]

Merci

Quand tu dis 3 colonnes tu parles de données en provenance d'une base de données ?

AC1
Databases on the Web & on the LAN

Ouais venant d'une base ACCESS

En général je formatte à la volée du style (rs est le recordset)
Je pars du principe que tu as ton recordset formé et que tu as les 3 premiers champs à afficher.
i va de rs(0) à rs(2) dans le cas ci - dessous

<Table border=0 width=950>
<%do while not rs.eof%>
<TR>
<% for i=0 to 2%>
<TD>
<%rs(i)%>
</TD>
<%next%>
</TR>
<%
rs.movenext
loop
%>
Tu peux implémenter toutes les options du html.

AC1
Databases on the Web & on the LAN

Bonjour
Cas général :

<table border=1>
<%cpCell=0 %>
<% while not rs.eof %>
<% if cpCell mod 3=0 then %><tr><% end if %>
<td><%=(rs.Fields.Item("adNom").Value)%></td>
<%cpCell=cpCell+1 %>
<% if cpCell mod 3=0 then %></tr><% end if %>
<% rs.movenext %>
<% wend %>
</table>

Cordialement
Roro webDev

En faite ça ne vient pas d'une base Acces mais d'un fichier Excel. Ca doit être la même méthode. Je vais essayer. MErci pour vos réponses

Bon ba ça se vois que je suis débutant en ASP. Pourtant y a en qui m'ont dit que ça ressemblait au PHP

Voici le code en question      <%
     '----- définition des variables
     dim id, nom, desc, prix, i
     
     ' Parcours de la liste des articles
     ' ----------------------------------
     for i=0 to UBound(aArticleList)
     
      '----- récupération des informations sur l'article courant
      id  = aArticleList(i)(0)
      nom  = aArticleList(i)(1)
      desc = aArticleList(i)(2)
      prix = aArticleList(i)(3)
      photo = aArticleList(i)(4)
     %>
                               

 

 

<table border="0" cellpadding="0" cellspacing="0" width="150">
                                <tr>
                                    <td width="33%" style="border-top-width:1; border-left-width:1; border-top-color:rgb(255,153,0); border-right-color:rgb(255,153,0); border-bottom-color:rgb(255,153,0); border-left-color:rgb(212,208,200); border-top-style:dashed; border-left-style:none;" colspan="2">

                                        <p align="center"><font color="#846F59"><%= nom %></p><table border=1>

                                    </td>
                                </tr>
                                <tr>
                                    <td width="33%" style="border-style:none;" colspan="2">

                                        <p align="center"><font color="#846F59"><img src="<%= photo%>" border="0"></font></p>
                                    </td>
                                </tr>
                                <tr>
                                    <td width="311" style="border-left-width:1; border-left-color:rgb(212,208,200); border-left-style:none;">

                                        <p align="center"><font color="#846F59"><%= formatNumber(prix, 2) %></font> €</p>
                                    </td>
                                    <td width="311" style="border-left-width:1; border-left-color:rgb(212,208,200); border-left-style:none;">
                                        <table cellpadding="0" cellspacing="0" border="1" width="100%">
                                            <tr>
                                                <td width="100" style="border-width:1; border-style:none;">

                                                    <table border="0" cellpadding="0" cellspacing="0" align="center">
                                                        <tr>
                                                            <td rowspan="2"><input type="text" name="num<%= id %>" disabled size="3" style="FONT-SIZE=13px;TEXT-ALIGN:center;FONT-WEIGHT=bold" value="1"></td>
                                                            <td class="normal1"><a href="javascript://" onClick="changeQuantity(document.thisForm.num<%= id %>, 1);"><img src="images/arwSquaredUp.jpg" border="0" WIDTH="11" HEIGHT="10"></a></td>
                                                            <td rowspan="2" width="10"></td>
                                                            <td rowspan="2" class="normal2"><a href="javascript://" onclick="addProduct(<%= id %>, document.thisForm.num<%= id %>.value);"><img src="images/btnOk25x15.png" border="0"></a></td>
                                                        </tr>
                                                        <tr>
                                                            <td><a href="javascript://" onClick="changeQuantity(document.thisForm.num<%= id %>, -1);"><img src="images/arwSquaredDown.jpg" border="0" WIDTH="11" HEIGHT="10"></a></td>
                                                        </tr>
                                                    </table>

                                                </td>
                                            </tr>
                                        </table>
                                    </td>
                                </tr>
                            </table>
     <% next %>

Je précise aussi que ce script vient de ce magnifique site
Panier marchant avec les Cookies

Le code posté par roro est en vbscript.
Celui que j'ai utilisé est en ASP/ADO.
Il y a une erreur dans ce que j'ai écrit la ligne <%rs(i)%> est en fait <%=rs(i)%>

L'avantage de garder l'html comme je l'ai fait est que tu peux prévisualiser le design via un editeur tel que frontpage ou visual studio

J'espère que tu as pu résoudre ton cas
A+

AC1
Databases on the Web & on the LAN

Bonjour
Petite réponse à AC1 :
1/ Mon code est effectivement en vbscript, tout comme le tien.
2/ ni ASP, ni ADO ne sont des langages de programmation. ASP est un modèle objet utilé par IIS (entre autres) et accessible par une multitude de langages (jscript, C, java, etc ... et vbscript en fait partie). Regarde bien mon code : les balises <% %> t'indiquent que je l'utilise. 
ADO est un modéle d'accés aux données en provanance d'une BdD (pour simplifier). Regarde encore mon code : je l'utilise aussi.
3/ Regarde encore mieux mon code : tu t'apercevras que l'HTML, qui n'est pas non plus un langage de programmation, mais un langage de description de pages, est bien présent.

Mon code est un cas général qui permet de ne pas "partir du principe que". Pour utiliser ce genre de moulinettes très régulièrement, je ne peux que conseiller à Lorientais d'utiliser plutôt ce code.

Petite réponse à Lorientais :

Honnêtement, j'oublierais bien vite excel : "c'est pas fait pour". ACCESS est un vrai serveur de bdd aux performances très satisfaisantes et beaucoup plus adapté à ton projet. Excel est un tableur (très puissant, certes, je l'utilise assez souvent), ce n'est en aucun cas et ne sera jamais un serveur de bdd.
Si tu connaît PHP, tu peux utiliser jscript (ou javascript) au lieu de vbscript dans tes pages ASP. Je connais très peu PHP, mais il me semble que les syntaxes sont plus proches.

Voici en dessert un bout de code (en vbscript, voir la premiere directive) qui répondra à ce que tu veux faire, à adapter, bien-sûr. Les habitués de Dreamweaver reconnaîtront.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim MM_dbClub_STRING
'En local
MM_dbClub_STRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=<chemin>/db.mdb"
%>
<%
Dim rsProduits
Dim rsProduits_numRows

Set rsProduits = Server.CreateObject("ADODB.Recordset")
rsProduits.ActiveConnection = MM_dbClub_STRING
rsProduits.Source = "SELECT *  FROM t_equipe"
rsProduits.CursorType = 0
rsProduits.CursorLocation = 2
rsProduits.LockType = 1
rsProduits.Open()

rsProduits_numRows = 0
%>
<html>
<head>
<title>Liste des produits</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table border=1>
<%cpCell=0 %>
<% while not rsProduits.eof %>
<% if cpCell mod 3=0 then %><tr><% end if %>
    <td><%=(rsProduits.Fields.Item("ProduitNom").Value)%></td>
<%cpCell=cpCell+1 %>
<% if cpCell mod 3=0 then %></tr><% end if %>
<% rsProduits.movenext %>
<% wend %>
</table>

</body>
</html>
<%
rsProduits.Close()
Set rsProduits = Nothing
%>

Cordialement
Roro webDev

--> Roro
Oui j'ai bien regardé (maintenant) mea maxima culpa
-->Lorientais
Je partage lepoint de vue de Roro sur la BDD access.

Je pense qu'avec le code fourni ça devrait tourner ok.
A+

AC1
Databases on the Web & on the LAN