Frem og tilbage knap

Hej jeg har denne kode som sætter tal ind fra 1 til x:

'Dette finder den aktuelle side
pageitems = 20 'Angiver antal pr side.. 10 i dit tilfælde
page = request("page") 'hendter hvilekn side den skal vise.
if page = "" then page = 0 'Hvis page er tom sættes default til page 0(1)


'Hendter de records som skal udskrives
mySQLLIMIT = " LIMIT " & page*pageitems & ", " & pageitems
strSQL = "SELECT * FROM messages ORDER BY IDman DESC" & mySQLLIMIT & ";"
Set rs = myConn.Execute(strSQL)

'Udsrkiv..med rs("FELTER")



strSQL = "SELECT Count(ID) as maxID FROM messages;" 'Find antal records
Set rs = myConn.Execute(strSQL)
maxRecords = rs("maxID")
rs.Close
'Disse linier laver 1 2 3 4 5 6 osv.

'Udskriv "forrige "
if page > 0 then
  Response.write "<a href=""guestbook.asp?page=" & page-1 &""">forrige " & "</a> " 
end if

  pageCounter = 0
  do while (maxRecords > 0)
    if CInt(page) = CInt(pageCounter) then
      Response.write "" & pageCounter + 1 & " "
    else
      Response.write "<a href=""guestbook.asp?page=" & pageCounter &""">" & pageCounter + 1 & "</a> "
    end if
    pageCounter = pageCounter + 1
    maxRecords = maxRecords - pageitems
  loop

'Udskriv " næste"
if page < pageCounter then
  Response.write "<a href=""guestbook.asp?page=" & page+1 &"""> næste" & "</a> " 
end if



Det skal rettes til så det passer med din database samt filnavn.

Det virker næsten men jeg har lige to spørgsmål jeg håber du kan svare på.

Første, hvordan kan det være at når man kommer ind på siden og det antal poster der er i tabellen passer med dem der skal vise så skriver den næste.

Andet, når man går tilbage side et så skriver den ikke næste længer.

til Første:
Det skal vist være:

'Udskriv " næste"
if page < (pageCounter-1) then
  Response.write "<a href=""guestbook.asp?page=" & page+1 &"""> næste" & "</a> " 
end if

Der skal Cint omkring lige som de andre steder...


'Udskriv " næste"
if Cint(page) < CInt((pageCounter-1)) then
  Response.write "<a href=""guestbook.asp?page=" & page+1 &"""> næste" & "</a> " 
end if

Der skal vist også CInt på forrige

'Udskriv "forrige "
if CInt(page) > 0 then
  Response.write "<a href=""guestbook.asp?page=" & page-1 &""">forrige " & "</a> " 
end if



Hvis du vil havde forrige og næste til at stå der selvom der ikke er en forrige/næste side men unden link sætter du bare en Else på:

if CInt(page) > 0 then
  Response.write "<a href=""guestbook.asp?page=" & page-1 &""">forrige " & "</a> " 
else
  Response.write "forrige "
end if

Nu virker det med næste har du evt. også et forslag mit første spørgsmål da jeg ikke kan forstå hvorfor der skal stå næste når der ikke er flere poster men det er ikke noget når man klikker på næste og så tilbage igen så står der ikke næste mere kan det var noget med hvordan den læser ’page’

Ja det er fordi den læser den som streng og man tester som tal, derfor skal der CInt omkring :

'Udskriv " næste"
if Cint(page) < CInt((pageCounter-1)) then
  Response.write "<a href=""guestbook.asp?page=" & page+1 &"""> næste" & "</a> " 
end if

Du skal ha mange tak du drømmer ikke om hvor mange timer jeg har brugt på søge efter sådan en kode her og nu virker den bare som den skal mange tak.

Kan den også bruges hvis jeg har en tabel hvor der ex. også er billeder?

Det skulle jeg mene..Det eneste som er en forudsætning er at der er en kolonne som er autonummer/autoincrement ID.

Du han rette denne SQL til så den tæller antallet af record i billede tabellen:

strSQL = "SELECT Count(ID) as maxID FROM billedetabel;" 'Find antal records


Ligeledes skal du rette oppe i staren som udskriver på siden:

'Hendter de records som skal udskrives
mySQLLIMIT = " LIMIT " & page*pageitems & ", " & pageitems
strSQL = "SELECT * FROM billedetabel ORDER BY ID DESC" & mySQLLIMIT & ";"
Set rs = myConn.Execute(strSQL)

'Udsrkiv..med rs("FELTER")