Originariamente inviato da Gio&Ste
io faccio così

Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
className = "rigaPari"
Else
className = "rigaDispari"
End if
Response.Write "<div class =""" & className & """>" & objRS("Title") &" </div>"
Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop

Uso DW MX e ho modificato il codice in questo modo ma funziona metà:

codice:
<% Dim Bg, Bgcol
Bg = Repeat1__numRows
Bg = 0						
do While NOT RsNews.EOF
If (Bg MOD 2) = 0 Then Bgcol = "riga1" else Bgcol = "riga2" end if %>
<% Response.Write("<div class=""" + Bgcol + """>")%>
      <ul>
        		[*]"><%=Server.HTMLEncode((RsNews.Fields.Item("Titolo").Value))%>[/list]


<%=Server.HTMLEncode((RsNews.Fields.Item("Sottotitolo").Value))%>
		      <% Response.Write("</p></div>") %>      
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsNews.MoveNext()
Bg = Bg + 1

loop%>

praticamente l'effetto dei colori sulle righe alternate funziona, ma se voglio visualizzare solo cinque record no.
E' probabile che sia un problema legato a quello che mia suggerito:
Do While iRecordsShown < iPageSize And Not objRS.EOF
dove però non so cosa significa iRecordsShown e iPageSize.