Buona serata a tutti.

su un carrello spesa sto cercando di innestare il codice per la paginazione ma non ci riesco. qualche nozione mi sarà saltata.

ecco il codice che mi restituisce questo errore
codice:
Errore di compilazione di Microsoft VBScript errore "800a0400' 

Prevista istruzione 

/cartella/prova.asp, riga 236 

end if
^
la pagina ha questo codice, la riga 236 è quella finale.

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

'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">

              

              ');">[img]<%=fotina%>[/img]
			  

        </div></td>
		<tr>
        <td align="center" valign="bottom">
		<%=CODpro%> &fcampo=<%=Request.QueryString("fcampo")%>&fcosa=<%=Request.QueryString("fcosa")%>');">[img]img/add.gif[/img]</p></td>
        <td colspan="2"></td>
      </tr>
    </table>
    <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Prodo.MoveNext()
Wend
%>
<%
else
%>




    [img]images/euro.jpg[/img]
    <%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%>
che succede?