Jag har en nyhetsdatabas och den börjar bli ganska stor.
Jag undrar hur man gör för att bara tex visa de sista 10 nyheterna?
Nu ser koden ut på följande sätt:
<html>
<!-- #include virtual="/databas/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\videomonitor\adressbok.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("videonyheter") = "alla" Then
Addera = "SELECT * FROM filmnyheter ORDER BY Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
</head>
<ul>
<% Do Until RecSet.EOF %>
<H1><% =RecSet("rubrik") %></H1><br>
<% =RecSet("texten") %><br>
<% =RecSet("forfattare") %>
<% RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
End If %>
</ul>
</html>
Tack så mycet det fungerar men jag har en sak till angående detta. Kna man inte köra flera i samma visa titta på det här:
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("filmnyheter") = "alla" Then
Addera = "SELECT * FROM filmnyheter ORDER BY [Datum] DESC"
ElseIf Request.QueryString("filmnyheter") = "10" Then
Addera = "SELECT TOP 10 * FROM filmnyheter ORDER BY [Datum] DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
När jag gör så här så fungera bara den ena av dom.
Set RecSet = Server.CreateObject("ADODB.Recordset")
strselectmode = request.querystring("filmnyheter")
select case strselectmode
case "alla"
Addera = "SELECT * FROM filmnyheter ORDER BY [Datum] DESC"
case "10"
Addera = "SELECT TOP 10 * FROM filmnyheter ORDER BY [Datum] DESC"
end select
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
