difficoltà con la paginazione

[danielix05]

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

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.

<%@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?

[danielix05]

possibile nessuna idea?

[Mems]

Manca un end if
Verifica la giusta sequenza degli If e degli end if