Hur skriver man koden för att vartannat inlägg i ett forum/gästbok skall ha färg..?
D.v.s olika färger i varannan cell och borttagna inlägg skall göra att cellerna uppdateras så att vartannat inlägg ändå har en annan färg..

Får det att fungera ända tills man tar bort inlägg då får man flera "sammafärgade" rader..

Nått i den här stilen kanske

<code>
do until rs.EOF

Response.Write("<TR>")
Response.Write("<TD BGCOLOR="#000000">"& rs("rubrik") &"</TD>")
Response.Write("</TR>")

rs.MoveNext

if not rs.EOF Then

Response.Write("<TR>")
Response.Write("<TD BGCOLOR="#FFFFFF">"& =rs("rubrik") &"</TD>")
Response.Write("</TR>")

rs.MoveNext

end if

loop
</code>

Tack..
okey..ska testa..
:)

<code>
Dim Flag
Dim Color


Do Until rs.EOF
If Flag Then
Flag = False
Color = "#000000"
Else
Flag = True
Color = "#FFFFFF"
End If

Response.Write "<TR>"
Response.Write "<TD BGCOLOR=""" & Color """>" & rs("rubrik") &"</TD>"
Response.Write "</TR>"
rs.MoveNext
Loop
</code>

Åh..tack Andreas..
:o)

Eller genom att använda mod-tekniken. x mod 2 blir 0 varannan gång. skriver du x mod 3 så blir det så var 3:e gång.

<code>
Do Until rs.EOF

a = a + 1
if a mod 2 = 0 then Color = "#000000" Else Color = "#FFFFFF"

Response.Write "<TR>"
Response.Write "<TD BGCOLOR=""" & Color """>" & rs("rubrik") &"</TD>"
Response.Write "</TR>"
rs.MoveNext
Loop
</code>

Tackar, tackar..

Då är det bättre att skriva:
<code>
Dim A
Dim Color
Dim Colors
Colors = Array("#000000", "#FFFFFF")
Do Until rs.EOF
A = (A + 1) Mod 2
Color = Colors(A)
Response.Write "<TR>"
Response.Write "<TD BGCOLOR=""" & Color """>" & rs("rubrik") &"</TD>"
Response.Write "</TR>"
rs.MoveNext
Loop
</code>

Då kan man även använd fler än två färger, t.ex tre färger:
<code>
Dim A
Dim Color
Dim Colors
Colors = Array("#000000", "#C0C0C0", "#FFFFFF")
Do Until rs.EOF
A = (A + 1) Mod 3
Color = Colors(A)
Response.Write "<TR>"
Response.Write "<TD BGCOLOR=""" & Color """>" & rs("rubrik") &"</TD>"
Response.Write "</TR>"
rs.MoveNext
Loop
</code>