Avatar billede nicho Nybegynder
01. oktober 2005 - 16:02 Der er 1 kommentar

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 :)
Avatar billede softspot Forsker
01. oktober 2005 - 17:55 #1
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester