Paging - link til næste side vises ikke
Hej, har en side med paging, som virker fint, men man kan ikke klikke på næste (hverken som tekst eller billede), forrige virker perfekt... Hvad gør jeg galt???Kode:
<!--#include file="connection.inc"-->
<%
'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM Moder;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing
'Variabler til query´et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
intPage = int(1)
else
intPage = int(intPage)
end if
intPageSize = int(1)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1
Set objRs = Conn.Execute("SELECT * FROM Moder LIMIT " & intStart & ", " & intPageSize & ";")
if objRs.EOF or objRs.BOF then
Response.Write "<br>" & "<h4 align='center'>Der er ingen møder planlagt på nuværende tidspunkt</h4>"
else
Do until objRs.EOF
Response.Write "<b>" & "Tilføjet af:" & "</b> " & objRs("Submit_by") & "<br><br>"
Response.Write "<b>" & "Dato:" & "</b> " & objRs("Dag") & ". " & objRs("Maaned") & " " & objRs("Aar") & "<br><br>"
Response.Write "<b>" & "Tid:" & "</b> " & objRs("Klokken") & "<br><br>"
Response.Write "<b>" & "Sted:" & "</b> " & objRs("Sted") & "<br><br>"
Response.Write "<b>" & "Dresscode:" & "</b> " & objRs("Dresscode") & "<br><br>"
Response.Write "<b>" & "Beskrivelse:" & "</b>" & ("<div class='logemoder'>") & objRs("Tekst") & "</div>"
objRs.MoveNext
Loop
Response.Write "</table>"
end if
objRs.Close
Set objRs = Nothing
'Forrige
IF intPage > 1 THEN
Response.Write "<a href=""logemoder.asp?page=" & intpage - 1 & """>" & "<img border='0' src='images/prev.gif'>" & "</a> "
ELSE
Response.Write "<img border='0' src='images/prev_1.gif'> "
END IF
'Udskriver en "sideliste"
For i = 1 to intPages -1
if i = intPage then
Response.Write "<b>" & i & "</b> "
else
Response.Write "<a href=""logemoder.asp?page=" & i & """>"
Response.Write i
Response.Write "</a> "
end if
next
'Frem
If intPage < intPageCount Then
Response.Write " <a href=""logemoder.asp?page=" & intpage + 1 & """>" & "<img border='0' src='images/next.gif'>" & "</a>"
ELSE
Response.Write " <img border='0' src='images/next_1.gif'>"
END IF
Conn.Close
Set Conn = Nothing
%>
