Avatar billede 0ffline Nybegynder
12. juni 2003 - 17:08 Der er 3 kommentarer og
1 løsning

Paging, hvis antal overstiger 15 opskrifter

Jeg har nu gennemlæst en hulens masse spørgsmål her på E, og slået mine folder forbi activedeveloper.dk.
Men endnu er det ikke lykkes mig at indsættte noget brugbart paging på nedenstående kildekode...
Håber at den endnu engang sidder en haj bag pcén som kunne
trænge til 200 points for at indsætte noget paging i nedenstående
...............................................
<ul>"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\glad4mad.mdb")

strSQL = "Select * From opskrift Where opskrift.Kategori='4' Order by brugernavn Desc"
Set rs = Conn.Execute(strSQL)

If Not rs.EOF Then
  Do
    strNavn = rs("overskrift")

    strForf = rs("Brugernavn")

    strLink = "<a href='opskrift.asp?id=" & rs("Id") & "' class='white'>" & strNavn & " &nbsp; &nbsp; &nbsp; &nbsp; <I><font color='#CCCCCC'></B> "& strForf & "</I></font></a>"

    Response.Write "<li>" & strLink & "</li>"

    rs.MoveNext
  Loop While Not rs.EOF
Else
  Response.Write "V&aelig;r den f&oslash;rste der indsender opskrift i denne kategori &nbsp;  &nbsp;  &nbsp;  &nbsp; &nbsp;  &nbsp;<a href='opskriftscript.asp' target='_parent' class='black'>| Indsend Her |</a>"
End If

Conn.Close
Set Conn = Nothing
RESPONSE.WRITE"</ul></TD>"

/0ffline
Avatar billede eagleeye Praktikant
12. juni 2003 - 17:15 #1
Avatar billede 0ffline Nybegynder
12. juni 2003 - 17:18 #2
Lige netop det link har jeg kigget igennem, og håbløst prøvet at indsætte i min kode, desværre
Avatar billede eagleeye Praktikant
12. juni 2003 - 17:18 #3
Din kode kommer til at se sådan her ud:


<ul>"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\glad4mad.mdb")

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

strSQL = "Select * From opskrift Where opskrift.Kategori='4' Order by brugernavn Desc"
'Set rs = Conn.Execute(strSQL)
rs.Open strSQL, Conn, 1

If Not rs.EOF Then
    rs.PageSize = 15
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

'  Do
  Do While Not rs.EOF And intRecCount > 0

    strNavn = rs("overskrift")

    strForf = rs("Brugernavn")

    strLink = "<a href='opskrift.asp?id=" & rs("Id") & "' class='white'>" & strNavn & " &nbsp; &nbsp; &nbsp; &nbsp; <I><font color='#CCCCCC'></B> "& strForf & "</I></font></a>"

    Response.Write "<li>" & strLink & "</li>"
    intRecCount = intRecCount - 1
    rs.MoveNext
  Loop

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

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

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=?page=" & intPage + 1 & ">Næste</a> "
Else
    Response.Write "Næste"
End If



Else
  Response.Write "V&aelig;r den f&oslash;rste der indsender opskrift i denne kategori &nbsp;  &nbsp;  &nbsp;  &nbsp; &nbsp;  &nbsp;<a href='opskriftscript.asp' target='_parent' class='black'>| Indsend Her |</a>"
End If

Conn.Close
Set Conn = Nothing
RESPONSE.WRITE"</ul></TD>"
Avatar billede 0ffline Nybegynder
12. juni 2003 - 17:23 #4
Det er simpelhen for fornemt...
Tusinde tak for hjælpen endnu engang eagleeye
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester