Annidare un If Else dentro ad un Do While

[oucharri]

ciao a tutti vorrei un info per cortesia: vorrei stampare da un db access dati in questo modo in allegato quello che sono riuscito a scrivere e questo:

<%
dim i, colore, ok, no
ok=objrs("assegno")
do while not objrs.eof
if objrs("assegno")=ok then
ok=objrs("assegno")
%>
--------
<%
else
objrs("assegno")=no
end if
objrs.movenext
loop
%>