Udtræk fra AccesDB vandret?

Prøv sådan her:



    <%
                      set rs=server.CreateObject("ADODB.Recordset")
                      rs.open "SELECT * FROM hovedetabel ORDER by Titel ASC ",conn
                      %> <%
                      f = 0
                      farve = "#6d87a0"
                      maxPrRow = 3
                      noPrRow=0
                      do while not rs.eof %>
<table width="600" border="0" cellspacing="0" cellpadding="0">
  <% if noPrRow=0 then %>
  <tr align="center">
  <% end if %>
    <td><table><tr align="center"><td><%=rs("Cover - Thumbnail")%></td></tr>       
              <tr align="center"><td><%=rs("Titel") %></td></tr></table>
    </td>
  <%
  noPrRow=noPrRow+1
  if noPrRow=maxPrRow then
    noPrRow=0
    response.write "</tr>"
  end if
                    rs.movenext
                    loop
  if noPrRow>0 then response.write "</tr>"
%>
</table>

Jeg får et lidt underligt resultat - prøv lige at se på:

http://www.a-vision.dk/test/ks/list/

Måske <table> skulle sættes udenfor løkken? Nu oprettes der en tabel for hver gang løkken køres igennem :) Og måske <td align="left" valign="top"> inde i løkken?

Jeg har selv løst den med flg. kode:

<%
                      set rs=server.CreateObject("ADODB.Recordset")
                      rs.open "SELECT * FROM hovedetabel ORDER by Titel ASC ",conn
                      %>   
<table width="600" border="0" cellspacing="0" cellpadding="0">
  <tr align="center"> <%
counter = 0
Do while not rs.eof
%>
    <td align="left"><%=rs("Cover - Thumbnail")%> <br>
      <% =rs("Titel") %></td>      <%
counter = counter + 1
if counter = 3 then
response.write("</TR><TR>")
counter = 0
end if
rs.MoveNext()
loop
%>

  </tr>

</table>

måske kan det gøres lidt smartere med dette:

runs = 16
cols = 3
for i=0 to 16
    if (i mod (cols+0) = 0) then Response.Write("<tr>")
    Response.Write("<td>" & i mod (cols+0) & "</td>") ' write your stuff here
    if (i mod (cols+0) = 3) then Response.Write("</tr>")
next

det er bare prencippet i det. Forløkken er din do while, gad bare ikke lige til at smide en DB sammen osv.

hov, et par overflødige testting, det her ser lidt bedre ud:

runs = 16
cols = 3
for i=0 to 16
    if (i mod cols = 0) then Response.Write("<tr>")
    Response.Write("<td>" & i & "</td>") ' write your stuff here
    if (i mod cols = cols) then Response.Write("</tr>")
next