Newsgroup: it.lavoro.professioni.webmaster
Titolo: [?] Non piace l' EXIT LOOP ?

Invalid 'exit' statement
/pp.asp, line 56
if rs.eof then exit loop
--------------------^
Qualcuno ha un'idea del perchè non gli piace ?
Se puo' servire...Il ciclo è questo:
<%
do while not rs.EOF
 old_Categoria=rs.fields("categoria")
 do while rs.fields("categoria") = old_Categoria
   URL=rs.fields("URL")
   DESCRIZIONE=rs.fields("Descrizione")
   IMMAGINE="images/ico_" & old_categoria & ".gif"
   Response.write("<tr bgcolor=yellow><td height='64' width='100%'>") &
vbCrLf
   Response.write("<table width='100%' border='0' cellspacing='2'
cellpadding='2'>") & vbCrLf
   Response.write("<tr><td height='61'>") & vbCrLf
   Response.write("<div align='left'><img height=54 src='" & immagine & "'
width=37></div>") & vbCrLf
   Response.write("</td>") & vbCrLf
   Response.write("<td height='61'><font color='red' face='Verdana, Arial,
Helvetica, sans-serif' size='3'><b>" & old_Categoria & "</b></font></td>") &
vbCrLf
   Response.write("</tr></table></TD></TR><tr bgcolor=white>") & vbCrLf
   Response.write("<td height='19' width='100%'><font face='Verdana, Arial,
Helvetica, sans-serif' size='-2'><b><A href='"  & URL & "' target='_blank'>"
& Descrizione & "</A></td></b></font><br>") & vbCrLf
   Response.write("<br>") & vbCrLf
   rs.MoveNext
   if rs.eof then exit loop
 loop
loop
 rs.Close
 set rs = Nothing
%>

 %>
--
Francesco Morelli

 ha scritto nel messaggio
news:9skd90$1429vi$1...@ID-83001.news.dfncis.de...


Ciao Francesco,
si che l'ho fatto a mano ! ma a parte la condizione che dici perchè mi dà
quel messaggio ?, forse l'errore è da un'altra parte ?
Riguarda bene il codice ora non ci sono ridondanze di controlli, in pratica
ho due cicli perchè devo spezzare i record in base alla categoria.
Il fatto è che continua a darmi :
Invalid 'exit' statement
/pp.asp, line 59
exit loop
-----^
NON capisco !!!
<table width="20%" border="1" cellspacing="0" cellpadding="0" >
<%
dim old_categoria
do until rs.EOF
 old_Categoria=rs.fields("categoria")
 IMMAGINE="images/ico_" & old_categoria & ".gif"
 Response.write("<tr bgcolor=yellow><td height='64' width='100%'>") & vbCrLf
 Response.write("<table width='100%' border='0' cellspacing='2'
cellpadding='2'>") & vbCrLf
 Response.write("<tr><td height='61'>") & vbCrLf
 Response.write("<div align='left'><img height=54 src='" & immagine & "'
width=37></div>") & vbCrLf
 Response.write("</td>") & vbCrLf
 Response.write("<td height='61'><font color='red' face='Verdana, Arial,
Helvetica, sans-serif' size='3'><b>" & old_Categoria & "</b></font></td>") &
vbCrLf
 Response.write("</tr></table></TD></TR>") & vbCrLf
 do while rs.fields("categoria") = old_Categoria
   URL=rs.fields("URL")
   DESCRIZIONE=rs.fields("Descrizione")
   Response.write("<tr bgcolor=white>") & vbCrLf
   Response.write("<td height='19' width='100%'><font face='Verdana, Arial,
Helvetica, sans-serif' size='-2'><b><A href='"  & URL & "' target='_blank'>"
& Descrizione & "</A></td></b></font><br>") & vbCrLf
   Response.write("<br>") & vbCrLf
   rs.MoveNext
   if rs.eof then
    exit loop         ' QUESTA E' LA LINEA 59
   end if
 loop
loop
 rs.Close
 set rs = Nothing
%>
</table>

>if rs.eof then exit loop
exit do, non exit loop.

 ho due cicli perchè devo spezzare i record in base alla categoria.
Si ma continuo a non capire perche' usare cicli annidati, se ti servono solo
i records di una categoria ti conviene fare direttamente all'inizio un
"SELECT * from nometabella WHERE categoria like nomecategoria" cosi' estrai
solo cio' che ti serve senza sprecare risorse di sistema, mentre se vuoi
raggruppare i records per categoria basterebbe "SELECT * from nometabella
order by categoria desc". Nell'unico ciclo successivo potrai comunque
recuperare i records dei campi che ti occorrono, non serve un ciclo annidato
per questo...
A presto
Francesco Morelli

 wrote in message
3bede5dd...@news.tiscali.it...
