Errore di compilazione di Microsoft VBScript errore "800a0400' 

Prevista istruzione 

/cartella/prova.asp, riga 236 

end if
^

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Conn/conn.asp" -->
<%

'paginazione

RecordsPerPage = 2
Page = Request.QueryString("page")
If Len(page) > 0 And IsNumeric(page) Then
page = CLng(page)
Else
Page = 1
End If


%>

<%

if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then
Dim Prodo
Dim Prodo_numRows

Set Prodo = Server.CreateObject("ADODB.Recordset")
Prodo.ActiveConnection = MM_ecommerce_STRING
Prodo.Source = "SELECT * FROM Prodotti WHERE "&Request.QueryString("fcampo")&"='"&Request.QueryString("fcosa")&"'"
Prodo.CursorType = 0
Prodo.CursorLocation = 2
Prodo.LockType = 1
Prodo.Open()

Prodo_numRows = 0
totProdo=Prodo.recordcount

if totrs>0 THEN

'ciclo principale con paginazione
Prodo.PageSize = RecordsPerPage
Prodo.AbsolutePage = Page
For x = 1 To RecordsPerPage
If Not Prodo.EOF Then


end if
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
Prodo_numRows = Prodo_numRows + Repeat3__numRows
%>


... omissis parte html ......
                                            <div align="left">
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then%>
    <% 
While ((Repeat3__numRows <> 0) AND (NOT Prodo.EOF)) 
%>
<%
ci=(Prodo.Fields.Item("Foto").Value)
if ci <> "" then
fotina="ImagesProd/"&(Prodo.Fields.Item("Foto").Value)
else 
fotina="ImagesProd/nd.jpg"
end if
CODpro=mid((Prodo.Fields.Item("Cod").Value),1,300)
%><%
If (Repeat3__numRows Mod 2) Then
  col="#f0f0f0"
  col2="#c0c0c0"
Else
  col="#e5e5e5"
  col2="#c0c0c0"
End IF
%>
    <table width="90" height="90" border="0" class="Stile3" cellspacing="0" cellpadding="0">
      <tr>
        <td width="90"><div align="center"><br>
              <!--<a href="lista.asp?IDpr=<=(Prodo.Fields.Item("ID").Value)%>&fcampo=<=Request.QueryString("fcampo")%>&fcosa=<=Request.QueryString("fcosa")%>"><img src="<=fotina%>" alt="" width="90" height="90" border="0"></a>--><br>
              <a href="java-script:esempio('dettaglio.asp?id=<%=(Prodo.Fields.Item("ID").Value)%>');"><img src="<%=fotina%>" alt="" width="90" height="90" border="0"></a>
        <br>
        </div></td>
    <tr>
        <td align="center" valign="bottom">
    <%=CODpro%> <a href="java-script:esempio('lista.asp?IDpr=<%=(Prodo.Fields.Item("ID").Value)%>&fcampo=<%=Request.QueryString("fcampo")%>&fcosa=<%=Request.QueryString("fcosa")%>');"><img src="img/add.gif"></a></p></td>
        <td colspan="2"> </td>
      </tr>
    </table>
    <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Prodo.MoveNext()
Wend
%>
<%
else
%>

<br>

    <img src="images/euro.jpg" width="201" height="228">
    <%end if%></td>

</div>
                  .........omissis......

<%
Prodo.MoveNext
end if
Next
%>                              
                  ...omissis....

PAGINA: <%
'barra di navigazione
For i = 1 To Rs.PageCount
If i = page Then
Response.Write "(" & i & ") "
Else

Response.Write "<a href="&pagina&"?ini="&ini&"&page=" & i eccetera"</a> "
End If
Next
%>
                  ...omissis html...
</html>
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then
Prodo.Close()
Set Prodo = Nothing
end if%>

Errore di compilazione di Microsoft VBScript errore "800a03f4' 

Previsto 'If' 

/orie2/pagi.asp, riga 301 

end