---
title: "Visa 5 senaste/5 mest besökta länkarna ur databasen?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/120222-visa-5-senaste-5-mest-besökta-länkarna-ur-databasen/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jimbo"
published: "2005-01-16T00:15:29.000Z"
updated: "2005-01-22T18:12:46.000Z"
replies: 29
views: 749
page: 2
pages: 2
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/120222-visa-5-senaste-5-mest-besökta-länkarna-ur-databasen"
---

# Visa 5 senaste/5 mest besökta länkarna ur databasen?

_Sida 2 av 2._

## #21 — jimbo, 2005-01-22T12:30Z

detta skulle då kommit i en tabellkolumn bredvid där det står antal länkar. Koden är ju då:

```
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")

sql = "select top 5 id, namn, url, info, kat, klick from url order by id desc"
set rs = conn.execute(sql)

if not rs.eof then

    while not rs.eof

        response.write namn & "<br />"

    rs.movenext
    wend

end if

rs.close()
set rs = nothing
%>
```

Tack för att du tar dig tid !

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

## #22 — K@llen, 2005-01-22T12:36Z

Du får inga felmeddelanden alls?

Testa detta så får vi se om du får träff på frågan:

```
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")

sql = "select top 5 id, namn, url, info, kat, klick from url order by id desc"
set rs = conn.execute(sql)

if not rs.eof then

    while not rs.eof

        response.write namn & "<br />"

    rs.movenext
    wend

else

    response.write "<p>Inga länkar kunde hittas!</p>"

end if

rs.close()
set rs = nothing
%>
```

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

## #23 — K@llen, 2005-01-22T12:47Z

He he, jag ser att jag gjort ett misstag tidigare. :( Ny kod:

```
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")

sql = "select top 5 id, namn, url, info, kat, klick from url order by id desc"
set rs = conn.execute(sql)

if not rs.eof then

    while not rs.eof

        response.write rs("namn") & "<br />"

    rs.movenext
    wend

else

    response.write "<p>Inga länkar kunde hittas!</p>"

end if

rs.close()
set rs = nothing
%>
```

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

## #24 — jimbo, 2005-01-22T13:09Z

Nej det syns inget nu heller.
Har det något med att göra kanske hur den koden kommer i huvudkoden på sidan kanske?

Kunde inte infoga hela sidkoden här för det blev för många tecken, tyvärr.

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

## #25 — K@llen, 2005-01-22T13:11Z

> **jimbo skrev:**
>
> Nej det syns inget nu heller.
> Har det något med att göra kanske hur den koden kommer i huvudkoden på sidan kanske?
> 
> Kunde inte infoga hela sidkoden här för det blev för många tecken, tyvärr.

Använde du mitt senaste exempel av de två?

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

## #26 — jimbo, 2005-01-22T13:19Z

Hej!

Nej de gick så snabbt, testade den nu men länkarna blir inte "länkar" 
<http://www.fiskeportalen.com/db/lankarkiv/index.asp>

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

## #27 — K@llen, 2005-01-22T13:26Z

Nä, det är inte så konstigt. För koden skriver bara ut namnet rakt upp och ner. Ny kod:

```
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")

sql = "select top 5 namn, url from url order by id desc"
set rs = conn.execute(sql)

if not rs.eof then

    while not rs.eof

     namn = rs("namn")
     url = rs("url")

%>

<a href="<%= url %>"><%= namn  %></a><br />

<%

    rs.movenext
    wend

else

    response.write "<p>Inga länkar kunde hittas!</p>"

end if

rs.close()
set rs = nothing
%>
```

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

## #28 — jimbo, 2005-01-22T17:27Z

Tackar k@llen du e en klippa =)
Då blir 5 mest besökta så här ju 

```
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")

sql = "select top 5 namn, url from url order by klick desc"
set rs = conn.execute(sql)

if not rs.eof then

    while not rs.eof

     namn = rs("namn")
     url = rs("url")

%>

<a href="<%= url %>"><%= namn  %></a><br />

<%

    rs.movenext
    wend

else

    response.write "<p>Inga länkar kunde hittas!</p>"

end if

rs.close()
set rs = nothing
%>
```

\=) =) =) tackar så oehört för hjälpen !

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

## #29 — K@llen, 2005-01-22T17:39Z

Varsågod! :)

Du kan byta 

```
<a href="<%= url %>"><%= namn  %></a><br />
```

mot

```
<a href="<%= url %>" target="_blank"><%= namn  %></a><br />
```

Då slipper du att besökaren lämnar din sida. ;)

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

## #30 — jimbo, 2005-01-22T18:12Z

Hehe tack tänkte fråga om det men fick till det själv, kul att man får till det själv med någon gång =)

Tack för hjälpen än en gång, jag kommer nog tillbaka, där finns mer jag funderar på, men inte till denna tråden =)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/120222-visa-5-senaste-5-mest-besökta-länkarna-ur-databasen/page2  
Föregående sida: https://www.webforum.nu/amne/asp/120222-visa-5-senaste-5-mest-besökta-länkarna-ur-databasen.md