rottura di codice

[giuseppecav]

Ho scelto di visualizzare un elenco di strutture divise per comune in una pag. asp attraverso questo righe di codice:

dopo averfatto la select

Ho scelto di utilizzare la rottura di codice in questo modo:

While NOT Rsstrutture.EOF
comuneprec=Rsstrutture("nomecomune")
comunesucc=Rsstrutture("nomecomune")
stampo comuneprec
while ((strcomp(comunesucc,comuneprec, 1))=0)
stampo struttura
Rsstrutture.moveNext()
comunesucc=Rsstrutture("nomecomune")
wend
Rsstrutture.moveNext()
Wend

potete aiutarmi l'output dovrebbe essere di questo tipo:

comune Alessandria

hotel 1
hotel 2

comune Torino

hotel 3

Grazie

[weppos]

In una variabile salva il valore della città.
Cicla ogni record e controlla la città corrente con quella nella variabile (quindi relativa al ciclo precedente).

Se diversa stampa la città, altrimenti prosegui normalmente.

[giuseppecav]

Grazie weppos
ho provato a utilizzare questo codice:
flag=0
comuneprec=rsstrutture("nomecomune")
While not Rsstrutture.Eof
while flag=0
if ((strComp(comuneprec,rsstrutture("nomecomune"),1)) =0)then

response.write strComp(comuneprec,comunesucc,1)%>
</table>
<table border="0" cellspacing="0" width="100%" bordercolor="#800000" cellpadding="0">
<tr>
<td><%=rsstrutture.Fields.Item("strutture.nomestru ttura").Value%>
<%comuneprec=rsstrutture("nomecomune")
rsstrutture.movenext()
%></td>
</tr>
</table>
<%else
flag=1
end if
wend
wend%>

ma non ottengo risultati.

[weppos]

comuneprec=rsstrutture("nomecomune")

Se lo valorizzi fuori dal ciclo come fa ad aggiornarsi il valore per il confronto?
Devi infilarlo nel ciclo dopo al confronto.

[giuseppecav]

Dopo vari tentativi sono arrivato a questo codice:

comuneattuale=Rsstrutture("comuni.nomecomune")
flag=0
response.write comuneattuale & "
"

While NOT Rsstrutture.EOF
if(comuneattuale=Rsstrutture("comuni.nomecomune")) then%>
stampo struttura in una tabella

else
response.write Rsstrutture("comuni.nomecomune") & "
"%>
stampo struttura in una tabella
comuneattuale=Rsstrutture("comuni.nomecomune")
end if
Rsstrutture.MoveNext()

Wend
Il tutto funziona bene, ma si può ottimizzare questo codice?
Grazie