---
title: "Visa nyheter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10860-visa-nyheter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hazze"
published: "2001-07-31T14:52:00.000Z"
updated: "2001-07-31T18:05:00.000Z"
replies: 4
views: 241
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/10860-visa-nyheter"
---

# Visa nyheter

## #1 — Hazze, 2001-07-31T14:52Z

Hej på er.

Har ett nyhetssystem där jag visar varje nyhet på en enskild sida. Nu har jag tänkt att visa rubrikerna på de 10 senaste nyheterna på samma sida.

Har skrivet det så här:

```
<% Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("nyh.mdb")
Set RS2 = Server.CreateObject("ADODB.Recordset")
Dim ID2
Addera2 = "SELECT Top 10 * FROM nyheter order by datum DESC"
set RS2 = Connect2.execute(Addera2)
%>
```

Och skriver ut det så här:

```
    <table border="0" cellpadding="3"
                        cellspacing="0" width="100%">
                            <tr>
                                <td bgcolor="#F4F4F4"><font
                                size="1" face="Arial"><%=rs2("datum")%>&#0124; </font><a
                                href="visa_nyhet.asp?id=<%=RS2("id")%>"><font
                                size="1"><% =rs2("rubrik")%></FONT></font></a></td>
                            </tr>
                            <tr>
                                <td><% RS2.MoveNext
RS2.Close
Set RS2 = Nothing
Connect2.Close
Set Connect2 = Nothing
%>
```

Men bara den senaste nyheten visas. Varför?

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

## #2 — erka, 2001-07-31T14:54Z

Du saknar ett Do Until rs2.eof som ska in 

```

<% Do Until rs2.eof  %>
<tr>
<td bgcolor="#F4F4F4"><font
size="1" face="Arial"><%=rs2("datum")%>&#0124; </font><a
href="visa_nyhet.asp?id=<%=RS2("id")%>"><font
size="1"><% =rs2("rubrik")%></FONT></font></a></td>
</tr>
<tr>
<td><% RS2.MoveNext
RS2.Close
Set RS2 = Nothing
Connect2.Close
Set Connect2 = Nothing
%>
```

Du måste ju loopa igenom det du har hämtat för att få ut mer än den första

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

## #3 — Eclipse, 2001-07-31T15:10Z

```
DO UNTIL RS.EOF
-- ' ## MASSA KOD
-- RS.MoveNext
[b]LOOP[/b]
```

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

## #4 — Hazze, 2001-07-31T15:11Z

Ok, tack. Det fungerade :)

Ett litet problem till dock.
Hur kan man göra för att bli av med alla mystiska radbrytningar som kommer mitt i nyheten?

Skriver ut nyheten med följande lilla kod:

```
<% =str %>
```

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

## #5 — cyprys, 2001-07-31T18:05Z

Menar du

```
<%
response.write REPLACE(str, "<br>", "")
%>
```

Men då kommer det ju aldrig några radbrytningar i texten.

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

---

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