paging af recordset

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

ja... men kan ikke lige se hvordan jeg kan kode det sammen!!!

Nemlig! Det er svært. Du kan prøve det her:

<!-- #include file="../forbindelse.asp" -->
<%
soeg = Request.QueryString("soeg")
if soeg = "" Then
    soegestreng = "'%'"
Else
    soegestreng = "'%" & soeg & "%'"
End if

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set nyheder = Server.CreateObject("ADODB.Recordset")
nyheder.Open "SELECT * FROM nyheder WHERE overskrift LIKE " & soegestreng & " OR indlaeg LIKE " & soegestreng  & " ORDER BY dato desc " & tid, database, 1

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"

%>

<h1 align="left">Nyheder</h1>
<table width="350" border="0" align="left" cellpadding="0" cellspacing="0">
<%
    While NOT nyheder.EOF And intRecCount > 0

%>
  <tr>
    <td width="400" height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="boks">
        <tr>
          <td width="80" height="20" class="newsoverskrift"><div align="center">
              <% Response.Write "" & FormatDateTime(nyheder.Fields("dato"), vbLongDate) %>
            </div></td><td width="10" class="newsoverskrift">| </td>
          <td height="20" class="newsoverskrift"><b><% = nyheder.Fields("overskrift") %></b></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td width="400"style="padding:5px;" class="underboks"><% = nyheder.Fields("indlaeg") %></td>
  </tr>
  <tr><td>&nbsp;</td></tr>
 
<%

      nyheder.MoveNext
    Wend
End If

rs.Close
Set rs = Nothing


Response.Write "</table>"
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Det virker ikke... www.test.nielsenmand.dk/webdimension/default.asp?page=news

Det virkede ikke.. og der var intet svar.. derfor lukker jeg..

så kunne jo spørge lidt mere om hvad der gik galt og hvad du kunne gøre ved det...

Ja... men det endte med jeg måtte finde nogle sources og så lave det selv.. Det gik heller ikke godt.. så derfor droppede jeg ideen

jah - hvad kan man sige... er man ikke interesseret i at modtage hjælp og måske bare yde en lille smule selv - ja, så er det sgu svært at få en løsning på ens problemer

Helt sikkert... men har ligesom indset jeg må tage tyren ved hornene og lære nu :)

og det burde du kunne ud fra mit link - at der kommer én fejl på en side burde ikke forhindre et helt projekt... så kan man jo bare spørge hvad fejlen betyder i stedet for at give op

Jeps... Men jeg allierede mig med en gut der hjalp mig igang.. og det sjove var at da det kom til stykket.. så skulle jeg ikke bruge det alligvel :)

derfor har folk alligevel brugt tid på at hjælpe her - at du så ikke kommer med tilbagemeldinger så vi kan hjælpe dig videre eller at du helt dropper idéen kan vi jo ikke gøre for