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
%>

[Santino83_02]

vabbeh va...

dim lst,act,tot

lst = "": tot = 0

'inizio a scorrere il recordset (ordinato per la colonna assegno ovviamente)
while not objrs.eof

act = objrs("assegno")

if act <> lst and lst <>"" then
'stampo la riga dell'assegno, il totale sarà TOT

'aggiorno tot
tot = 0
end if

'stampo una riga normale

'aggiorno tot
tot = tot + objrs("importo") ' o come si chiama che non ricordo ora

lst = act
objrs.movenext
wend

if tot > 0 then 'stampo l'ultimo riepilogo dell'assegno
'stampo la riga dell'assegno, il totale sarà TOT
end if

[oucharri]

grazie Santino83_02 sei stato molto gentile

[oucharri]

ciao a tutti sapete dirmi dove ho sbagliato per cortesia, ho scritto sto codice e mi da l'errore in allegato

<%
strSQL = "SELECT * FROM prima_nota WHERE (((assegno) Is Not Null)) ORDER BY assegno"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strSQL, Conn, 3, 3
%>

<table width="100%" border="1">
<%
dim lst,act,tot
lst = ""
tot = 0
while not objrs.eof
act = objrs("assegno")
if act <> lst and lst <>"" then
%>
<tr bgcolor="#0099CC">
<td><%=objrs("assegno")%></td>
<td></td>
<td></td>
<td><%=tot%></td>
</tr>
<%
tot = 0
end if
%>
<tr>
<td><%=objrs("data")%></td>
<td><%=objrs("n_biglietto")%></td>
<td><%=objrs("soggetto")%></td>
<td><%=objrs("importo")%></td>
</tr>
<%
tot = tot + objrs("importo") ' o come si chiama che non ricordo ora
lst = act
objrs.movenext
wend

if tot > 0 then 'stampo l'ultimo riepilogo dell'assegno
'stampo la riga dell'assegno, il totale sarà TOT
%>
<tr bgcolor="#0099CC">
<td><%=lst%></td>
<td></td>
<td></td>
<td><%=tot%></td>
</tr>

<%end if%>
</table>

[Santino83_02]

al posto di questo:

if act <> lst and lst <>"" then
%>
<tr bgcolor="#0099CC">
<td><%=objrs("assegno")%></td>
<td> </td>
<td> </td>
<td><%=tot%></td>
</tr>
<%
tot = 0
end if
%>

questo

if act <> lst and lst <>"" then
%>
<tr bgcolor="#0099CC">
<td><%= lst %></td>
<td> </td>
<td> </td>
<td><%=tot%></td>
</tr>
<%
tot = 0
end if
%>

[oucharri]

sei un grande Santino ti ringrazio molto