ciao 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"%>
<!--#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%>
che succede?
![](/forum/skins/default/images/emo/png-blue/icon_smile_question.png)