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

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 !

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
%>

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
%>

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.

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å?

Hej!

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

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
%>

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 !

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. ;)

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 =)