Hvordan laver jeg dette smartest ?

Mener du hvordan du laver løkken?

Tjaa, måske........

Noget i denne retning:

i = 0

print = "<tr>"

while not rs.eof or rs.bof
  if i = 1 then
    print = print & "<tr></tr>"
    i = 0
  else
    i = 1
  end if
  print = print & "<td>"& rs.dinedata"</td>"
  rs.movenext
wend

print = print & "</tr>"

response.write print

på samme måde som du har på http://www.cyber-kox.subnet.dk/Download/index.htm, vel.

Jo, på samme måde som på http://www.cyber-kox.subnet.dk/Download/index.htm

Jeg tror lige jeg fik en hjerneblødning eller noget lignende. Prøv dette i stedet:

i = 0

print = "<tr>"

while not rs.eof
  print = print & "<td>"& rs.dinedata"</td>"
  if i = 1 then
    print = print & "</tr><tr>"
    i = 0
  else
    i = 1
  end if
  rs.movenext
wend

print = print & "</tr>"

Hmmm, kan ikk helt få det til at virke...

Prøv at smide noget af din kode her.

Koden, der udskriver kategorierne, ser således ud:
------------------------------------
index.asp
------------------------------------
<%
' Database connection
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kategorier ORDER BY kategori"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("download.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
        Response.Write "<CENTER><TABLE><tr><td width='400' bgcolor='#206090' HEIGHT='20'><font size='1'><b>Kategorier</b></font></td></tr><tr><td width='400'>"
  Do until rs.EOF = True
        Response.Write "<font size='2'><IMG SRC='mappe.gif' BORDER='0' WIDTH='16' HEIGHT='16'> <a href='index.asp?mode=vis&kat=" & rs("id") & "'><b>" & rs("kategori") & "</b></a></font><BR>"
%>
<%
      rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
%>
<IMG SRC="mappe.gif" BORDER="0" WIDTH="16" HEIGHT="16"> <A HREF="index.asp?mode=alle"><B>Vis alle</B></A>
</TD></TR><tr><td width='400' bgcolor='#206090' HEIGHT='20'><font size='1'><b>Kategorier</b></font></td></tr></TABLE></CENTER><BR>
------------------------------------
index.asp
------------------------------------

Prøv dette:

<%
' Database connection
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kategorier ORDER BY kategori"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("download.mdb")
rs.Open strSQL, strDSN, 1

i = 0

If Not (rs.BOF Or rs.EOF) Then
  Response.Write "<CENTER><TABLE><tr><td width='400' colspan=""2"" bgcolor='#206090' HEIGHT='20'><font size='1'><b>Kategorier</b></font></td></tr><tr>"
  Do until rs.EOF = True
      Response.Write "<td width='200'><font size='2'><IMG SRC='mappe.gif' BORDER='0' WIDTH='16' HEIGHT='16'>"
      Response.Write "<a href='index.asp?mode=vis&kat=" & rs("id") & "'><b>" & rs("kategori") & "</b></a></font></td>"
      If i = 1 Then
        Response.Write "</tr><tr>"
        i = 0
      Else
        i = 1
      End If
      rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
%>
</tr><tr><td>
<IMG SRC="mappe.gif" BORDER="0" WIDTH="16" HEIGHT="16"><A HREF="index.asp?mode=alle"><B>Vis alle</B></A>
</TD></TR><tr><td width='400' bgcolor='#206090' HEIGHT='20'><font size='1'><b>Kategorier</b></font></td></tr></TABLE></CENTER><BR>


Det er ikke testet.

Okai, whatever ->

Nun virker det. Jeg takker mange gange for hjælpen...