---
title: "Visa 3 Nyheter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/110269-visa-3-nyheter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "eko"
published: "2004-08-28T15:47:36.000Z"
updated: "2004-08-28T21:54:20.000Z"
replies: 2
views: 281
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/110269-visa-3-nyheter"
---

# Visa 3 Nyheter

## #1 — eko, 2004-08-28T15:47Z

Hej jag har 2 frågor!

Hur tusan gör jag för att bara de 3 senaste nyheterna skall visas i nyheter.asp?
Och hur gör man för att alla utom de 3 senaste skall visas i arcives.asp

Nyheter.asp

```
<!--#include file="funktion.inc"-->
<!--#include file="adovbs.inc"-->
<%
On Error Resume Next
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
DO Until RecSet.EOF OR X = 3
X=X+1
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> <td BACKGROUND="graphic/bg_diag.gif"> 
<b><%=RecSet("rubrik")%></b></td></tr><tr><td><%
Response.Write fixa_text(RecSet("text"))
%></td></tr> </table><%
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%> <TABLE WIDTH="320" BORDER="0" CELLPADDING="5" CELLSPACING="5"><TR><TD><a href="javascript:popup1();">&Auml;ldre 
Nyheter</a></TD></TR></TABLE>
```

Arcives.asp

```
<%
On Error Resume Next
X=1
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

DO Until RecSet.EOF
X=X+1
if X > 1 then
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> 
    <td background="graphic/bg_diag.gif"> <b><%=RecSet("rubrik")%></b></td>
  </tr><tr><td><%
Response.Write fixa_text(RecSet("text"))
%></td></tr> </table><%
end if

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

Tacksam för hjälp / MVH Eko

Permalänk: https://www.webforum.nu/p/110269

## #2 — solbulle, 2004-08-28T16:49Z

Kanske så här, ett o annat tips bör du kunna få.

```
<!--#include file="funktion.inc"-->

<%
On Error Resume Next

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT top 3 * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, 3, 2

DO Until RecSet.EOF OR X = 3
X=X+1
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> <td BACKGROUND="graphic/bg_diag.gif"> 
<b><%=RecSet("rubrik")%></b></td></tr><tr><td><%
Response.Write fixa_text(RecSet("text"))
Response.Write "</td></tr> </table>"
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%> <TABLE WIDTH="320" BORDER="0" CELLPADDING="5" CELLSPACING="5"><TR><TD><a href="java script:popup1();">Äldre 
Nyheter</a></TD></TR></TABLE>

<%
On Error Resume Next
X=1

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, 3, 2

DO Until RecSet.EOF
X=X+1
if X > 4 then
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> 
    <td background="graphic/bg_diag.gif"> <b><%=RecSet("rubrik")%></b></td>
  </tr><tr><td>
<%
Response.Write fixa_text(RecSet("text"))
Response.Write "</td></tr> </table>"

end if

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

Permalänk: https://www.webforum.nu/p/1420622

## #3 — eko, 2004-08-28T21:54Z

Tack:)

Permalänk: https://www.webforum.nu/p/1420697

---

Tråden på webben: https://www.webforum.nu/amne/asp/110269-visa-3-nyheter