Lige/ulige værdi

for i = 1 to x
if i mod 2 <> 0 then
' farve 1
else
' farve 2
end if

next

Den er jeg ikke helt med på! Hvordan skal den flettes ind hér:

<table>

Do Until rs.EOF

if i = 1 then
Response.Write "<tr class='hvid'>"............"
else
Response.Write "<tr class='gul'>"............"
end if

Response.Write "<td>" & rs("url") & "</td></tr>"

rs.MoveNext

Loop

</table>

Do Until rs.EOF

if rs.AbsolutePosition mod 2 <> 0 then
  Response.Write "<tr class='hvid'>"............"
else
  Response.Write "<tr class='gul'>"............"
end if

Response.Write "<td>" & rs("url") & "</td></tr>"

rs.MoveNext

Loop

rs.AbsolutePosition ?

AbsolutePosition er den position man har i det udsøgte recordset.

<table>

Do Until rs.EOF
i = i + 1

if i mod 2 = 0 then
Response.Write "<tr class='hvid'>"............"
else
Response.Write "<tr class='gul'>"............"
end if

Response.Write "<td>" & rs("url") & "</td></tr>"

rs.MoveNext

Loop

</table>

//akj

Tak til dk_akj, hvis kode jeg fik til at virke.

just4fun - jeg kunne desværre ikke få dit til at virke.

tak for pts.

//akj