Paging

du kan lese om paging her:

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

/nute

DET VED JEG GODT OG JEG HAR PRØVET DET:...... DET VIRKER IKKE

caps lock er en liten knapp som ligger på høyre side av ditt keyboard som er god til å konvertere bokstaver til upper og lowercase...bruk den til å skrive store bokstaver til deg selv, men ikke post innlegg i uppercase...det ser ut som du roper, og da får du ingen god respons...

har du husket at lave et recordset i forbindelse med udtræk af data fra din gæstebog... jeg kunne heller ikke få det til at virke til at starte med, men det gik dog tilsidst :)

Dette her virker:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database.mdb\")
sqltemp=\"select * from tabel\"


mypage=request(\"whichpage\")
If  mypage=\"\" then
  mypage=1
end if
mypagesize=request(\"pagesize\")
If  mypagesize=\"\" then
  mypagesize=10  \'Her sættes antal rækker.
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
%>

<%
DO  UNTIL rstemp.eof OR howmanyrecs>=maxrecs

      \'Lav farveskift for hver række
      if Color=\"#FFFFFF\" then
          Color=\"#CCCCCC\"
          Color1=\"#FFFFFF\"
      else
          Color=\"#FFFFFF\"
          Color1=\"#CCCCCC\"
      end if
%>

  <tr>
        <td><a href=\"default.asp?ID=<%=UCase(rstemp(\"ID\"))%>\"><font face=\"Tahoma\" size=\"2\"><%= (rstemp(\"Navn\"))%></font></a></td>
    </tr>
<%
    rstemp.movenext
    howmanyrecs=howmanyrecs+1
LOOP
response.write \"</table><p>\"



rstemp.close
set rstemp=nothing

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

sub PageNavBar()
      pad=\"\"
      scriptname=request.servervariables(\"script_name\")
      response.write \"<table width=\'100%\'><tr>\"
      response.write \"<td>\"
      response.write \"<font size=\'2\' face=\'Tahoma\'>\"
      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 CLASS=\'Link2\' href=\'\" & scriptname
      ref=ref & \"?whichpage=\" & (counterstart - 1)
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>Forrige 10 sider</a>&nbsp;\"
      Response.Write ref
      end if
      for counter=counterstart to counterend
      If counter>=10 then
      pad=\"\"
      end if
      if cstr(counter) <> mypage then
      ref=\"<a CLASS=\'Link2\' href=\'\" & scriptname
      ref=ref & \"?design=3&ID=2\"
      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
      if counterend <> maxpages then
      ref=\"&nbsp;<a CLASS=\'Link2\' href=\'\" & scriptname
      ref=ref & \"&whichpage=\" & (counterend + 1)
      ref=ref & \"&pagesize=\" & mypagesize
      ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
      ref=ref & \"\'>Næste 10 sider</a>\"
      Response.Write ref


      end if
      response.write \"<br></font>\"
      response.write \"</td>\"
end sub
%>

dingkee.....Kan du ikke også lave en DB der passer til og sende den til niels@websoeg.dk?

Det er bare sådan at jeg kan se den i funktion..... Men jeg vil blive endnu mere glad hvis du kunne lave det til den kode jeg har givet jer oppe i toppen!

Er sendt

hmm