Paging.

Använder mig av koden nedan till min paging och det fungerar fint. Det ända jag saknar är en länk för nästa sida istället för att behövaklicka på numret. Änen en till föregående. Hur skall jag åstakomma det?

         <%
namn=request.querystring("namn")
'Create the MyConnection Object and Open the connection to the database using your DSN

MyQuery = "SELECT * FROM album where namn='"& namn & "'order by id"
perpage = 1
		
const adOpenForwardOnly = 0
const adOpenKeyset = 1
const adOpenDynamic = 2
const adOpenStatic = 3
const adLockReadOnly = 1
const adLockPessimistic = 2
const adLockOptimistic = 3
const adLockBatchOptimistic = 4
set myrs = server.createobject("adodb.recordset")
myrs.cursorlocation = 3
myrs.open myquery, conn, adopenkeyset, adlockoptimistic
if myrs.eof then
response.write "<table cellspacing=0 border=0 cellpadding=0 border=0><tr><td><table cellspacing=1 border=0 cellpadding=2 border=0 width=100% ><tr><td align=center><font face="""" size=1>Sorry, no records were found.</font></td></tr></table></td></tr></table>"
elseif	request("start") = "" then
        start = 1
      else
        start = cint(request("start"))
      end if
	  
	  torecs = ((start+perpage)-1)
	  
	  if torecs > myrs.recordcount then
		torecs = myrs.recordcount
	  end if
	  
	  i = 1
	  mypagenavigationbar = ""
	  for n = 1 to myrs.recordcount step perpage
         if n <> 1 then mypagenavigationbar = mypagenavigationbar &  " | "
			 if n = cint(start) then
				mypagenavigationbar = mypagenavigationbar &  "<b>"&i&"</b>"
			else
				mypagenavigationbar = mypagenavigationbar &   "<a href="""
				mypagenavigationbar = mypagenavigationbar &   request.servervariables("url") & "?namn=" & namn & "&start=" & n
				mypagenavigationbar = mypagenavigationbar &   """>"
				mypagenavigationbar = mypagenavigationbar &   i & "</a>" 
      		end if
		i = i + 1
	  next
 	  i  = 1
	myrs.move start - 1
Response.write "<br>"
Response.Write "<table align=center cellspacing=0 border=0 cellpadding=0 border=0><tr><td><table cellspacing=1 border=0 cellpadding=2 border=0 width=100% >"
Response.Write "<tr><td align=center><font face="""" size=1>&nbsp;<b>Bilder</b> : "&mypagenavigationbar&"</font></td></tr>"
Response.Write "</table></td></tr><tr><td><table cellspacing=1 border=0 cellpadding=2 border=0 width=><tr>"
response.write "<td align=Center></td>"

Response.Write "</tr>"

iscolor = true
for row = start to start + (perpage - 1)
if myrs.eof then exit for
if iscolor then
response.write "<tr>"
iscolor=false
else
response.write "<tr>"
iscolor=true
end if
%>

Här har du två funktioner jag använder:

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?pageid=" & intPageId - 1 & "'>&lt;&lt; Föregående</a> "
  end if
end function

function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a href='?pageid=" & intPageId + 1 & "'>Nästa &gt;&gt;</a> "
  end if
end function

Källa: http://www.webeye.nu/getArticle.asp?aid=asp_17.asp

Tack får kika på det imorgon när jag vaknat lite mera.