Ciclo

[nicolal]

Come posso fare in 1 ciclo a stampare una volta sola qualcosa?
esempio:

$ VOCE DI MENU
&/& SOTTOVOCE 1
&& SOTTOVOCE 2
&& SOTTOVOCE 3
&& SOTTOVOCE 4
&& SOTTOVOCE 5

....per cui stampo la voce di primo livello poi comincio il ciclo nel secondo livello e per ogni voce metto un simbolino tipo &/& oppure && ...io vorrei che il simbolino &/& fosse stampato solo alla prima voce di sottomenu e che poi le altre voci fossero con il simbolino &&

coem faccio a drgli di stampare una sola volta il simbolino &/& ?

[optime]

un esempio

Dim bStampato
bStampato=False

For i=1 To 10
   If Not bStampato Then
      Response.Write "a"
      bStampato=True
   Else
      Response.Write "b"
   End If
   Response.Write "---c"
Next

[nicolal]

Per cui se faccio un ciclo con il do while sarà uguale?

[nicolal]

Ok oh capito :P
grazie optime

[nicolal]

OPTIME

sto usando il ciclo IF che mi hai passato e ho fatto:

<%
Dim sottovoce, bstampato
set Sottomenu = Server.CreateObject("ADODB.Recordset")
sql = "select * from Sottomenu where IDMenu =" &IDMenu
Sottomenu.ActiveConnection = cn
Sottomenu.Open sql, cn


Do while not Sottomenu.EOF
sottovoce = Sottomenu("voce")

bstampato = false
For i=1 To quantisottomenu
If Not bStampato Then
tit = ("&sub")
bStampato=true
Else

tit = ("$")
End If
next
%>

<%=response.Write(tit)%>
<%=response.Write(sottovoce)%>


<%
sottomenu.movenext
loop
%>



ma stampa sempre $

[nicolal]

dove sbaglio :-(