Jeg har en sql-sætning, som henter poster efter nogle kriterer.
Hvis jeg nu ønkser at få vist 10 ad gangen og mulighed for at
bladre videre til de næste 10 resultater??? Jeg har forsøgt på
HTML's asp-tutorial, men uden den helt store åbenbaring... Please
Help!
Her er min sætning:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" &
Server.MapPath("/Gate/Database/database.mdb")
Conn.Open DSN
strSQL = "Select * From tblRygte WHERE PersonNavnID = "
&Request.Querystring("ID")& " ORDER BY OprettetDato"
Set rs = Conn.Execute(strSQL)
If Not rs.EOF Then
%>
<tr>
<td width="43%" bgcolor="#FFCC66"><font
color="#000000"><b>Rygte:</b></font></td>
<td width="16%" bgcolor="#FFCC66"><font
color="#000000"><b>Dato:</b></font></td>
<td width="11%" bgcolor="#FFCC66"
align="center"><b>Set af:</b></td>
<td width="31%" bgcolor="#FFCC66"><font
color="#000000"><b>Sandhedsgrad:</b></font></td>
<%Do
strNavn = rs("KOverskrift")
strDato = rs("OprettetDato")
strJa = rs("RygteJa")
strNej = rs("RygteNej")
strCount = rs("RygteCount")
strLink = "<a href='RygteView.asp?id=" & rs("RID") & "'>" &
strNavn & "</a>"%>
</tr>
<tr>
<td width="43%"><font face="Tahoma"
size="2"><b><%Response.Write "" & strLink & ""%></b></font></td>
<td width="16%"><font face="Tahoma"
size="2" color="#000000"><b><%Response.Write "" & strDato &
""%></b></font></td>
<td width="11%" align="center"><font
face="Tahoma" size="2"><b><%Response.Write "" & strCount &
""%></b></font></td>
<td width="31%"><b><font
color="#FF0000">Ja: <%Response.Write "" & strJa &
""%></font><font color="#000000">/</font><font
color="#0000FF">Nej: <%Response.Write "" & strNej &
""%></font></b></td>
<% rs.MoveNext
Loop While Not rs.EOF
Else
response.write "Ingen indlæg."
End If
Conn.Close
Set Conn = Nothing
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials