Sider/Pageing, hvordan?
<!-- #include file="../community/ban/ban.asp" --><!--#include file="../css/style.css" --><center>Nyheder</center>
<hr>
Hvordan laver jeg pageing på mit nyhedsystem, ved ikke hvordan man gør, så er det nogen der kan lave pageing på denne side er i meget velkomne, i skal bare vise mig hvor koden skal være :) ... Jeg vil gerne have det sådan at det en dropdown boks, fx.
Du er på side 1 << Dropdown boks Med alle siderne >>
På pilene skal du kunne skifte fra side til side.
<%
' --------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/nyheder.mdb")
Conn.Open DSN
' --------------------------------------------------
strSQL = "Select * From nyheder Order by dato Desc"
Set rs = Conn.Execute(strSQL)
' --------------------------------------------------
sql = "select * from nyheder order by id desc"
set rs = conn.execute(sql)
sql = "select count(*) as antal from nyheder"
set antal = conn.execute(sql)
antal = antal("antal")
' --------------------------------------------------
response.write "Der er ialt <b>" & antal & "</b> nyheder. <hr>" & hr & ""
if rs.eof then
response.write "<font color=""#FF0000"">*</font> Der er ingen nyheder.<hr>"
' --------------------------------------------------
else
do until rs.eof
' --------------------------------------------------
%>
<table width="100%">
<tr>
<td rowspan="3"><img src="<%=rs("billed")%>" width="75" height="75"></td>
<td width="99%" height="60" valign="top"><b><%=rs("overskrift")%></b>
<br>
<a href="nyhed.asp?id=<%=rs("ID")%>"><%=rs("nyhed")%> <strong>...</strong></a></td>
</tr>
<tr>
<td width="99%">Skrevet af <b><a href="../community/profil/profil.asp?id=<%=rs("ID2")%>"><%=rs("brugernavn")%></a></b> den <i><%=rs("dato")%></i></td></table>
<hr><%
' --------------------------------------------------
rs.movenext
loop
Conn.Close
Set myConn = Nothing
end if
' --------------------------------------------------
%>
Ellers tak :)
