Paging el. lign....

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

Tænkte nok lige netop den ville komme...:o)

De fleste tutorials/artikler vedr. paging ligner hinanden. Hvis du forventede andet end et "standard svar", kunne du passende stille spørgsmålet mere specifikt.

Har du prøvet ovenstående og i så fald, har du problemer med det ?

Prøver det lige....

Jeg kan prøve at uddybe dette eks (http://activedeveloper.dk/aspdigital/kapitel2/paging.asp) lidt:

Du har sikkert din egen SQL-sætning som du bruger til at søge med så den udskrifter du bare den fra eksemplet:
strSQL = "SELECT LinkURL FROM Links"
med dig egen:
strSQL = DIN SSQL SÆTNING


Så angiver du hvor mange du vil havde på hver side i linier, 10->XX:
    rs.PageSize = 10


Ud skrivning af søge resultet skal gøres inde i det loop der er:
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop

Du har sikkert et tilsvarne loop som du udskriver søgeresultatet i idag så du udskirve denne linie:
        Response.Write rs("LinkURL") & "<br>"
Men alle de linier du måtte hvade behov for...



Dette kode laver en liste i bunde med Gå til side 1 2 3 4 osv:
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next


Dette kode lave en links til forrige side via truk på <<:
Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If


Dette kode lave en links til næste side via tryk på >>:
If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If


Jeg håber det giver lidt ekstra hjælp ellers så bare spørg igen.

Havde jeg set tidligere - og lige den jeg ledte efter...:o)

Får denne fejl....

ADODB.Recordset error '800a0bb9'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.


/test_agm/news/nyheder_ny.asp, line 11:

Set rs = Server.CreateObject("ADODB.RecordSet")

bare mig der havde lavet en fejl...

Kan ikke få det til at virke hvis jeg f.eks. kun vil have vist 5 nyheder pr side...samt det kun skal være xx karakterer der er vist af den enkelte nyhed...og efter nyheden skal være et link til hele nyheden...

Har prøvet med...

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From nyheder Order By Dato Desc"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("nyheder.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
      response.write rs("Nyhed")
      if len(trim(rs("Nyhed")))= 15 then response.write "..."
      response.write "<br><a href=""news_main.asp?id=" & rs("NyhedID") & """>Læs mere >></a><br>"
      intRecCount = intRecCount - 1
    rs.MoveNext
   
    Loop
  End If
End if
rs.Close
Set rs = Nothing

Hvis du vil vise 5 pr. side, sætter du pagesize til 5. Mht. x karakterer kan du anvende LEFT kommandoen, enten i dit SQL statement eller i ASP.

øhh... ja
Sådan skulle det se ud...:

...esponse.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
      response.write rs("Nyhed")
      if len(trim(rs("Nyhed")))= 15 then response.write "..."
      response.write "<a href=""../news_main.asp?id=" & rs("NyhedID") & """> >></a><br>"
      intRecCount = intRecCount - 1
    rs.MoveNext   
    Loop
End If.....

Men tak for hjælpen....

Det var så lidt :-)

Ups.... min len virker ikke hele nyheden bliver skrevet..???

Hvis det er nyhed som du kun vil havde 15 karakter så ret linien hvor nyheden bliver udskrevt til:

Do While Not rs.EOF And intRecCount > 0
      response.write Left(rs("Nyhed"),15)

Nåhh ja den havde jeg lige glemt....

Heii... eagleeye
Det kan være du kan klare denne...
http://www.eksperten.dk/spm/231286

Har problemer med at få vist side 2 -3 - 4 osv...
Når jeg bruger min paging side som include fil!!!