Vis post 1-10

Paging ?
du kan læse om det her:
http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Ved det godt, men kan ikke få det til at virke

Her er en \"testside\", Der skal bruges en database, f.eks. sql. Mangler du ADOVBS.INC må du sige til.

<%
response.buffer = true
response.expires = -1
%>
<html><head>
    <TITLE></TITLE>
</head><body>
<!--#INCLUDE FILE=\"ADOVBS.INC\" -->

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DSN\", \"User\", \"Password\"

sqltemp=\"select * from DATABASE\"

mypage=request(\"whichpage\")
If  mypage=\"\" then
  mypage=1
end if
mypagesize=request(\"pagesize\")
If  mypagesize=\"\" then
  mypagesize=25
end if
mySQL=request(\"SQLquery\")
IF  mySQL=\"\" THEN
  mySQL=SQLtemp
END IF

set rstemp=Server.CreateObject(\"ADODB.Recordset\")
rstemp.cursorlocation=aduseclient
rstemp.cachesize=5
rstemp.open mySQL,Conn
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
howmanyrecs=0
howmanyfields=rstemp.fields.count -1
%>
<table>
    <tr>
        <td>FORNAVN</td>
        <td>EFTERNAVN</td>
    </tr>
<%
DO  UNTIL rstemp.eof OR howmanyrecs>=maxrecs

      \'Lav farveskift for hver række
      if Color=\"#8e9dbc\" then
          Color=\"#ffefd0\"
      else
          Color=\"#8e9dbc\"
      end if
%>
  <tr>
        <td bgcolor=\"<%= Color %>\"><%=UCase(rstemp(\"fornavn\"))%></td>
        <td bgcolor=\"<%= Color %>\"><%=UCase(rstemp(\"efternavn\"))%></td>       
    </tr>
<%
    rstemp.movenext
    howmanyrecs=howmanyrecs+1
LOOP
response.write \"</table><p>\"

response.write \"<table align=left border=\'0\'><tr><td align=left width=\'200\'>\"
response.write \"Side \" & mypage & \" af \" & maxpages & \"</td></tr></table>\"


rstemp.close
set rstemp=nothing

\' Now make the page _ of _ hyperlinks
Call PageNavBar

sub PageNavBar()
      pad=\"\"
      scriptname=request.servervariables(\"script_name\")
      response.write \"<table rows=\'1\' cols=\'1\' width=\'97%\'><tr>\"
      response.write \"<td>\"
      response.write \"<font size=\'2\' color=\'black\' face=\'Verdana, Arial,Helvetica, sans-serif\'>\"
      if (mypage mod 10) = 0 then
      counterstart = mypage - 9
      else
      counterstart = mypage - (mypage mod 10) + 1
      end if
      counterend = counterstart + 9
      if counterend > maxpages then counterend = maxpages
      if counterstart <> 1 then
      ref=\"<a href=\'\" & scriptname
      ref=ref & \"?whichpage=\" & 1
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>Første</a>&nbsp;:&nbsp;\"
      Response.Write ref


      ref=\"<a href=\'\" & scriptname
      ref=ref & \"?whichpage=\" & (counterstart - 1)
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>Forrige</a>&nbsp;\"
      Response.Write ref
      end if
      Response.Write \"[\"
      for counter=counterstart to counterend
      If counter>=10 then
      pad=\"\"
      end if
      if cstr(counter) <> mypage then
      ref=\"<a href=\'\" & scriptname
      ref=ref & \"?whichpage=\" & counter
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>\" & pad & counter & \"</a>\"
      else
      ref=\"<b>\" & pad & counter & \"</b>\"
      end if
      response.write ref
      if counter <> counterend then response.write \" \"
      next
      Response.Write \"]\"
      if counterend <> maxpages then
      ref=\"&nbsp;<a href=\'\" & scriptname
      ref=ref & \"?whichpage=\" & (counterend + 1)
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>Næste</a>\"
      Response.Write ref


      ref=\"&nbsp;:&nbsp;<a href=\'\" & scriptname
      ref=ref & \"?whichpage=\" & maxpages
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>Sidste</a>\"
      Response.Write ref
      end if
      response.write \"<br></font>\"
      response.write \"</td>\"
      response.write \"</table>\"
end sub
%>
</body></html>

Mine asp sider starter sådan, kan du laver det til dem??
<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../database/test.mdb\")
   
    ID = CLng(Request.QueryString(\"ID\"))
    Session(\"LastCategory\") = ID

SQLstmt = \"SELECT * FROM test\"
Set RS = Conn.Execute(SQLstmt)
%>

Hvis du indsætter dette, istadet for Conn.Open \"DSN\", \"User\", \"Password\".

Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"paging.mdb\")
sqltemp=\"select * from t_paging\"

Hvor databasen ligger kender kun du, samt hvad tabellen hedder.

Læg mærke til at mypagesize=25 bestemmer hvor mange rækker du vil have, i dette tilfælde får du 25.

Hej js17dk, hvis du giver mig en mail adr. så sender jeg, adovbs.inc, paging.mdb samt page.asp.
Med disse 3 filer kan du køre dette. Du kan jo selv arbejde vidre med dem.

ok sweetboy1@ofir.dk

Fint det virkede, kan man lave det om til at i stedet for at der står side 1 2 3 4 så der i stedet står 1-10 11-20??
sbarnney du har fået point

Det vil jeg kigge på.

ok, du skal selvfølgelig nok få nogle point får det