De senaste nyheterna

4 svar · 160 visningar · startad av Jacob 9 dec. 2000

JacobMedlem sedan dec. 2000503 inlägg

9 dec. 2000 14:19#1

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>

------------------
ja©ob

@ndersMedlem sedan juni 200032 969 inlägg

9 dec. 2000 14:23#2

SELECT TOP 10 * FROM filmnyheter ORDER BY [Datum] DESC

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
let's look for treasure!</A>

JacobMedlem sedan dec. 2000503 inlägg

10 dec. 2000 10:24#3

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.

@ndersMedlem sedan juni 200032 969 inlägg

10 dec. 2000 10:41#4

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

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
let's look for treasure!</A>

JacobMedlem sedan dec. 2000503 inlägg

10 dec. 2000 19:15#5

Ännu en gång stort tack @ndres