Side counter ?
Hej... vil meget gerne vide hvordan jeg til denne side laver en counter så den kun tæller f.eks. 10 billeder pr side ? har prøvet forgæves.... jeg har en paging site nederst.<!--#include file="conn.asp"-->
<%
set img = server.CreateObject("ADODB.Recordset")
img.Open "Select * from tbl_img", conn
%>
<table width="530" border="0" cellspacing="10" cellpadding="0">
<%
t = 1
while Not img.EOF
if t = 1 then
response.Write "<tr>"
end if
response.Write "<td><img src='image/players/" & img("billede") & "' width=130 border=1 /></td>"
if t = 3 then
t = 0
response.Write "</tr>"
end if
t = t + 1
img.movenext
wend
%>
</table>
<---------------------paging.asp------------------>
<!--#include file="forbindelse.asp" -->
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT * FROM sider", database ,1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 2
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 "<b>" & rs("overskrift") & "</b><br>"
Response.Write rs("tekst") & "<br><br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
