Trovare l'errore... "Wend"

[webdesigning]

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03FA)
Previsto 'Wend'

Non capisco proprio l'errore.
Credo siano sbagliate le query con il LIKE..nn saprei altrimenti..l'errore è nelle ultime righe segnalato in grassetto rosso

<%SQL="SELECT * FROM Bianca WHERE Sigla LIKE 'I%' ORDER BY ID "
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%> 
                      <tr onmouseover="this.className='hover';" onmouseout="this.className='';">
                        <td style="border: 1 solid #99CDFF">
                        ">
                          </td>
                    </center>
                        <td width="180" style="border: 1 solid #99CDFF" valign="middle" align="center">
                        <p align="right">
                        Mezza pensione: <%=rec("MezzaPensione")%>  €
Pensione completa: <%=rec("FullPensione")%> 
                        €</p>
                          </td>
                      </tr>
                      <tr>
                        <td class="header" bgcolor="#F0F8FF" style="border: 1 solid #99CDFF" width="604" colspan="2">
                          <p align="right">proposte di soggiorno estate «</p>
                        </td>
                      </tr>
  <center> 
<%SQL="SELECT * FROM Bianca WHERE Sigla LIKE 'E%' ORDER BY ID "
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%> 
                      <tr onmouseover="this.className='hover';" onmouseout="this.className='';">
                        <td style="border: 1 solid #99CDFF">
                        "><%=rec("Periodo")%>
                          </td>
                    </center>
                        <td width="180" style="border: 1 solid #99CDFF" valign="middle" align="center">
                        <p align="right">
                        Mezza pensione: <%=rec("MezzaPensione")%>  €
Pensione completa: <%=rec("FullPensione")%> 
                        €</p>
                          </td>
                      </tr>
  <center> 
<%rec.MoveNext
Wend
rec.close%>
                    </table>
                    </center>
				</TD> 
                </tr>
                <TR vAlign=top> 
                  <TD> </TD> 
                </TR> 
<%SQL="SELECT * FROM Quota ORDER BY ID"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%> 
                <TR vAlign=top> 
                  <TD><%=rec("Descrizione")%> <%=rec("Prezzo")%> €</TD> 
                </TR> 
<%rec.MoveNext
Wend
rec.close%>
                  <tr>
                        <td class="header" bgcolor="#F0F8FF" style="border: 1 solid #99CDFF" width="604">
                          <p align="right">offerte speciali per gruppi da 40 a 
                          100 persone «</p>
                        </td>
                  </tr>
                <tr onmouseover="this.className='hover';" onmouseout="this.className='';">
                  <TD>
                  <p align="center">
                  <a href="mailto:mail@tin.it">Richiedi un preventivo specificando il periodo di soggiorno e 
                  il numero di persone </a></p>
                  

</TD> 
                </tr>
                  <tr>
                        <td class="header" bgcolor="#F0F8FF" style="border: 1 solid #99CDFF" width="604">
                          <p align="right">riduzioni «</p>
                        </td>
                  </tr>
<%SQL="SELECT * FROM Riduzione ORDER BY ID"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%> 
                <TR vAlign=top> 
                  <TD><%=rec("Descrizione")%></TD> 
                </TR> 
<%rec.MoveNext
Wend
rec.close%>
                  <tr>
                        <td class="header" bgcolor="#F0F8FF" style="border: 1 solid #99CDFF" width="604">
                          <p align="right">come prenotare «</p>
                        </td>
                  </tr>
<%SQL="SELECT * FROM ComePrenotare ORDER BY ID"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%> 
                  <tr>
                  <TD><%=rec("Descrizione")%></TD> 
                  </tr>
<%rec.MoveNext
Wend 
rec.close%>
                <TR vAlign=top> 
                  <TD></TD> 
                </TR>

[Mems]

Ad ogni WHILE corrisponde un WEND.
Se sono corretti verifica se al loro interno ci sta qualche IF ed END IF messo in modo tale che possa precludere il WEND.

[nippotricco]

controlla che da qualche parte ti manca un "wend" (hai 5 while e 4 wend) forse nel primo ciclo.

[webdesigning]

o mamma che errore...
trovato
grazie mille dell'aiuto tempestivo!!
ciao!