När denna kod nedan körs så vid kanpptryckning bakåt så går den tillbaka till första posten i databasen och inte den senaste. Varför det? <code><!--#include file="adovbs.inc"--> Fungerar länken framåt? Föregående post...
Någon lösning?
Tacksam för svar!
<!--#include file="adovbs.inc"-->
<%Dim rs, conn, strSQL, count, TotalPages%>
<%
Response.Buffer="false"
Const NumPerPage = 1
Dim CurPage
If Request.QueryString("CurPage") = "" then
CurPage = 1 'We're on the first page
Else
CurPage = Request.QueryString("CurPage")
End If
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("ring.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation = adUseClient
RS.CacheSize = NumPerPage
strSQL = "SELECT bild,text FROM tblring"
RS.Open strSQL, Conn
RS.MoveFirst
RS.PageSize = NumPerPage
TotalPages = rs.PageCount
RS.AbsolutePage = CurPage
%>
<HTML>
<HEAD>
<TITLE>Ringmärkning steg för steg</TITLE>
<LINK REL=STYLESHEET HREF="styles.css" TYPE="text/css">
</HEAD>
<BODY>
<H4>Ringmärkningen steg för steg<IMG SRC="steg.gif" ALIGN="right">
<HR SIZE="1" Color="Black" NOSHADE>
<TABLE WIDTH="120" BORDER="0" ALIGN="center">
<TR>
<TD ALIGN="center" COLSPAN="3">
<IMG SRC="<%=rs("bild")%>">
</TD>
</TR>
<TR>
<TD><% If CurPage > 1 then Response.Write("<INPUT TYPE=image VALUE=Bakåt src=pilback.gif border=0 ONCLICK=""document.location.href='ring.asp?&curpage=" & curpage - 1 & "';"">") End If %></TD>
<TD ALIGN="left">
<%=rs("text")%>
</TD>
<TD><%if CInt(CurPage) <> CInt(TotalPages) then Response.Write("<INPUT TYPE=image src=pilnext.gif border=0 VALUE=Framåt ONCLICK=""document.location.href='ring.asp?curpage=" & curpage + 1 & "';"">") End If%></A></TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
Conn.Close
%> Sv: Föregående post...
<%Dim rs, conn, strSQL, count, TotalPages%>
<%
<b>Response.Expires = -1500</b>
Response.Buffer="false"
Const NumPerPage = 1
Dim CurPage
If Request.QueryString("CurPage") = "" then
CurPage = 1 'We're on the first page
Else
CurPage = Request.QueryString("CurPage")
End If
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("ring.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation = adUseClient
RS.CacheSize = NumPerPage
strSQL = "SELECT bild,text FROM tblring"
RS.Open strSQL, Conn
RS.MoveFirst
RS.PageSize = NumPerPage
TotalPages = rs.PageCount
RS.AbsolutePage = CurPage
%></code>
mvh AndréSv: Föregående post...
Jag skulle gissa att problemet ligger i att hela sidan laddas om. I början av koden sätter du nämligen variabeln CurPage=1 och går till första posten i Recordsetet.
Hoppas du löser det!
/Å