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