Salve a tutti,
sto facendo una paginazione di news estratte da un database facendo affidamento su una variabile session per capire a quale punto delle pagine sono...
Il codice è questo:
select case request.querystring("dir")
case ""
session("curpage")=1
case "Next"
session("curpage")=session("curpage")+1
case "Prev"
session("curpage")=session("curpage")-1
end select
sqlNews="Select * from myNews order by BlogDate Desc;"
set rsNews=server.createobject("ADODB.recordset")
rsNews.pagesize=2
rsNews.CursorLocation = 3
rsNews.LockType = 3
rsNews.open sqlNews,cnNews,adopenkeyset
RsNews.absolutepage=clng(session("curpage"))
Response.write "<p align=center>Page"& clng(session("curpage")) &" of "& rsNews.pagecount & " </p>"
g=0
do while (not g=RsNews.pagesize) and (not rsNews.eof)
g=g+1
%>
poi stampo i dati cioè le prime 2 news
e funziona tutto fino a quando deve stampare i pulsanti prev o next in base al posizionamento del recordset ed esattamente qui:
'Response.write session("curpage")
'Response.end
if clng(session("curpage")) > 1 then
%>
<form action="news.asp?dir=Prev" method="post">
<input type="hidden" name="sq" value="<%=sqlNews%>">
<input type="submit" value="Previous Page">
</form>
<% end if %> </td>
<td></td>
<td>
<% if clng(session("curpage")) < rs.pagecount then %>
<form action="news.asp?dir=Next" method="post">
<input type="hidden" name="sq" value="<%=sqlNews%>">
<input type="submit" value="Next Page">
</form>
<% end if %>
l'errore è:
Errore di run-time di Microsoft VBScript error '800a01a8'
Necessario oggetto: 'clng(...)'
Ora è da un bel pò che non faccio ASP ma da quanto ho capito non trova la variabile di sessione, però se la stampo a video c'è!
ho provato a levare il clng ma è lo stesso...brancolo nel buio...
Mi date una mano?
Rispondi quotando
