---

Dette stykke kode udskriver fra en DB i en lang række,
men hvordan får jeg den til at skrive det i to rækker,
sådan at "post 1" og "post 2" er vedsiden af hinanden,
og "post 3" og "post 4" er nedenunder, osv. osv.?


Do until rs.EOF = True

If farve=1 Then
bg="#FCFCFC"
Farve= Farve + 1
Else
bg="#E5E5E5"
farve=1
End If

      Response.Write "<tr><td width='100%' bgcolor=""" & bg & """><font
size=""2""><a href='links.asp?mode=vis&kat=" & rs("id") &
"&orderby=navn'><b>" & rs("kategori") & "</b></a></font></td></tr>"
      
rs.MoveNext      
      
loop

---

tonny wrote:
>
> Dette stykke kode udskriver fra en DB i en lang række,
> men hvordan får jeg den til at skrive det i to rækker,
> sådan at "post 1" og "post 2" er vedsiden af hinanden,
> og "post 3" og "post 4" er nedenunder, osv. osv.?

MaxColumn = 2
Column = 0
OddColor = False
Do until rs.EOF
If (Column = 0) Then
If OddColor Then Bg="#FCFCFC" Else Bg="#E5E5E5"
OddColor = Not OddColor
Response.Write "<tr>"
End If

Response.Write "<td bgcolor=""" & bg & """><font size=""2"">"
Response.Write "<a href='links.asp?mode=vis&kat=" & rs("id") & _
"&orderby=navn'><b>" & rs("kategori") & "</b></a>"
Response.Write "</font></td>"
If (Column + 1 = MaxColumn) Then
Response.Write "</tr>"
End If

Rs.MoveNext
Column = (Column + 1) Mod MaxColumn
Loop

--
Anders