->>hossein
Den kan jeg ikke greje, men jeg har fundet et eksempel på activedeveloper.dk, som er rettet til. Det minder en del om dit eksempel, og om det Keysersoze prøvede at spore mig ind på tror jeg.
Her er problemet bare, at koden kun henter 24 poster ud af min DB, og der ligger ca. 150, så hvis der er nogen der kan se fejlen.
---
<% ' Her henter vi alle indlæg
'paging
'Dim Conn
'Conn =
'Først skal vi have antallet af poster
Set objRs = adoDataConn.Execute("SELECT AutoNr AS records FROM forum;")
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(10)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1
'ekstra indsat
intValue = (intRecords - intStart)
If intPageSize > intValue Then
intPageSize = intValue
end if
'ekstra indsat slut
Set objRs = adoDataConn.Execute("SELECT * FROM forum Order By AutoNr DESC _ LIMIT " & intStart & ", " & intPageSize & ";")
if objRs.EOF or objRs.BOF then
Response.Write "Ingen poster"
else
'Response.Write "<table border=""1"" cellpadding=""3"">"
'Response.Write "<tr>"
'Response.Write "<td><b>id</b></td>"
'Response.Write "<td><b>Site</b></td>"
'Response.Write "</tr>"
Do until objRs.EOF
'Response.Write "<tr>"
'Response.Write "<td>" & objRs("id") & "</td>"
response.write("<TR><TD><font size='1'><A HREF='indlaeg_vis.asp?Id=" & objRs("AutoNr") & "'>" & objRs("Emne") & "</A></font></TD><TD><font size='1'>" & objRs("Navn") & "</TD><TD><font size='1'>" & objRs("OpretDato") & "</TD></TR>")
'Response.Write "<td><a href="indlaeg_vis.asp"" & objRs("AutoNr") & """>" & objRs("Emne") & "</a></td>"
'Response.Write "</tr>"
objRs.MoveNext
Loop
'Response.Write "</table>"
end if
objRs.Close
Set objRs = Nothing
%>
</TABLE>
<%
Response.Write "<HR>"
Response.Write("<TABLE align='right'>")
Response.Write("<tr>")
Response.Write("<td>")
'Udskriver en "sideliste"
For i = 1 to intPages
if i = intPage then
Response.Write "<b>" & i & "</b> "
'Response.Write("</td>")
'Response.Write("</tr>")
'Response.Write("</table>")
else
Response.Write "<a href=""indlaeg_alle1.asp?page=" & i & """>"
'Response.Write "<a href=""paging.asp?page=" & i & """>"
Response.Write i
Response.Write "</a> "
'Response.Write("</td>")
'Response.Write("</tr>")
'Response.Write("</table>")
End if
next
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
adoDataConn.Close
Set adoDataConn = Nothing
'paging slut
%>
----
