ASP i 3 kolonner

prøv med noget i denne stil:

<%
' definer antallet af kolonner i tabellen
numcols = 3

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/db_database.mdb")
Conn.Open DSN

strSQL = "select * From tb_image order by id"

Set rs = Conn.Execute(strSQL)

response.write("<table width=""100%"">")

idx = 0
do while not rs.eof
  ' start en ny række af celler
  if idx mod numcols = 0 then
    response.Write("<tr>")
  end if
 
  ' undskriv indholdet af en celle
  response.Write("<td><img src='" & rs("billede") & "'><br>" & rs("tekst") & "</td>")
 
  ' afslut rækken og gør klar til at starte en ny
  if idx mod numcols = numcols-1 then
    response.Write("</tr>")
  end if
  rs.movenext
loop       

' fyld resten af linie ud med tomme tabelceller
if idx mod numcols <> 0 then
  for idy = idx mod numcols to numcols-1
    response.Write("<td>&nbsp;</td>")
  next
  response.Write("</tr>")
end if
response.Write("</table>")

conn.close
set conn = nothing
%>

Ups! Mangler lige at optælle idx inde i loopet:

<%
' definer antallet af kolonner i tabellen
numcols = 3

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/db_database.mdb")
Conn.Open DSN

strSQL = "select * From tb_image order by id"

Set rs = Conn.Execute(strSQL)

response.write("<table width=""100%"">")

idx = 0
do while not rs.eof
  ' start en ny række af celler
  if idx mod numcols = 0 then
    response.Write("<tr>")
  end if
 
  ' undskriv indholdet af en celle
  response.Write("<td><img src='" & rs("billede") & "'><br>" & rs("tekst") & "</td>")
 
  ' afslut rækken og gør klar til at starte en ny
  if idx mod numcols = numcols-1 then
    response.Write("</tr>")
  end if
  rs.movenext
  idx = idx + 1
loop       

' fyld resten af linie ud med tomme tabelceller
if idx mod numcols <> 0 and idx > 0 then
  for idy = idx mod numcols to numcols-1
    response.Write("<td>&nbsp;</td>")
  next
  response.Write("</tr>")
end if
response.Write("</table>")

conn.close
set conn = nothing
%>

Hej

Det funker ikke - Der er ingen fejæmeddelelse, men viser bare siden uden billederne på..

Fibs

Viser den teksterne som du ville forvente?
Er det felt der hedder billede en virtuel sti til billedet på serveren?

Har du evt. et eller andet sted hvor jeg kan se siden?

Jeg forstår heller ikke helt hvorfor det ikke fungerer hvis dit eget fungerer. Jeg mener ikke jeg har lavet noget væsentlig om på feltnavne eller det faktum at den looper igennem alle rækker i resultatet... kan evt. selv pege på et eller andet du synes er suspekt ved min kode?

Viser kun det HTML der er på siden - Siden ligger pt. på min egen lokale iis6 server

Fibs

Kan du ikke prøve at poste koden der bliver genereret, så jeg kan se hvad der kommer ud af det og hvad det evt. kan være galt...?