Paging, hjælp!
Jeg har store problemer med og lære og page ? Hvis der var en skill'd asp programmør derude, som kunne hjælpe mig, ville det være alletiders, du skal bare sætte Paging koden ind i min kode, jeg vil gerne have det sådan her:Antal Nyheder (Bemærk her skal paging koden starte) << Dropdown >> Du er på side "Bla Bla"
På pilene skal du kunne skifte fra side til side, og inde i dropdownboksen skal du kunne se side 1,2,3 osv.
Her kommer min kode så :).
<!-- #include file="../community/ban/ban.asp" --><!--#include file="../css/style.css" -->
<center>Nyheder</center>
<hr>
<%
' --------------------------------------------------
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>"
' -------------------------------------------------- Her vil jeg gerne have det overstående jeg har skrevet ind :)
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")%>"><%=Replace(Left(rs("nyhed"), 275),"<br>", " ")%> <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 :)