Hej!

Jag försöker att göra så att raderna får olika färger, två olika färger, varannan rad, men det går inget vidare. ;-(

Så här såg det ut innan jag började spilla med färgbrurkarna i koden...

Tack på förhand.

Klas

<code>
<%
Do While Not RecSet.EOF And Count < RecSet.Pagesize

SQL = "SELECT COUNT(*) AS antalsvar FROM inlagg WHERE SvarsID = " & RecSet("ID")
RecSet2.Open SQL, Databas, adOpenStatic, adLockOptimistic

%>

<center>

<table border="0" cellpadding="0" cellspacing="0" bgcolor="#66CCFF">
<tr>
<td width="110"><h5><% =RecSet("Datum")%></td> </h5>
<td width="200"><h5><% =RecSet("Namn")%></td> </h5>
<td width="200">">

<% =RecSet("Rubrik") %>
</td> </h5>
<td width="42"><h5><center><% =RecSet2("antalsvar")%></td> </center>

</tr> </h5>

<p>
</table>

<% RecSet2.Close %>

<%
Count = Count + 1
RecSet.MoveNext

loop

%>
</code>

Så här brukar jag göra:
Dim j
CurrentRecord = 0
j = 0


j = j + 1
if j mod 2 then
rowColor = "DCEBFA"
else
rowColor = "FBFDFE"
end if

Response.Write "<TR bgcolor ="& rowColor &">"

osv
Jag hoppas att du kan fixa det nu :-)

Japp. ;-)

Kommer nog att behålla färgerna du skrev också, ser jätebra ut.

Tackar!!!

Klas

KAn man inte skriva:
<code>
Dim Row
Dim Colors(-1 to 0)
Colors(-1) = "DCEBFA"
Colors(0) = "FBFDFE"

Do Until rs.eof
Row = Not Row
Response.Write "<TR bgcolor =" & Colors(Row) & ">"
rs.MoveNext
Loop
</code>
För att slippa ifsats och incremetering av värde?

annars skulle man väl kunna skriva ut två rader åt gången.. kanske..

>annars skulle man väl kunna skriva ut två rader åt gången.. kanske..

Klart man kan, men det blir lite bökigt eftersom det kan vara ett ojämt antal poster, du får ju även dubblera utskriften vilket är jobbigt när man ska ändra formateringen.

/Johan