--- title: "Visa senaste länkar överst" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/120173-visa-senaste-länkar-överst" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "jimbo" published: "2005-01-15T11:09:43.000Z" updated: "2005-01-15T12:05:32.000Z" replies: 4 views: 233 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/120173-visa-senaste-länkar-överst" --- # Visa senaste länkar överst ## #1 — jimbo, 2005-01-15T11:09Z Hej på er! Vänder mig hit eftersom jag är ingen kodarnisse mer en grafisk nisse =) Jag använder länkarkivscript, men när man lägger till länkar i det, så kommer dom sist i kategorierna. Är det någon som hade velat hjälpa mig eller kanske berätta hur man får dom att visas överst istället när man lägger till dom?? Tack på förhand !! Mvh Jimmy Permalänk: https://www.webforum.nu/p/120173 ## #2 — @nders, 2005-01-15T11:17Z Om du visar koden blir det lättare att hjälpa till. Antagligen hämtas väl länkarna ur en databas. Leta rätt på select-frågan och lägg till / ändra sorteringen (ORDER BY) att sortera stigande (DESC) på lämpligt fält (räknarfält exempelvis.) Permalänk: https://www.webforum.nu/p/1530423 ## #3 — jimbo, 2005-01-15T11:30Z Antar att det är denna koden: ``` Länkarkivet - på Fiskeportalen.com

 
<%If Request.QueryString("catId") <> "" Then Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId")) End If%>
Länkarkivet <%If Request.QueryString("catId") <> "" Then%> <%If Not Kat.EOF Then%> - <%=Kat("kat")%> <%End If%> <%End If%>
<% strSQL = "SELECT COUNT(*) FROM url" Set objRS = Conn.Execute (strSQL) Response.write "Just nu " & objRS(0) & " fiskelänkar i länkarkivet!" objRs.Close set objRS = nothing set objConn = nothing %> Lägg till en länk i arkivet »
<%If Request.QueryString("catId") = "" Then Set RS=Conn.Execute("Select * From kat Where sub_kat=0") If RS.EOF Then%>
Inga kategorier inlagda
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If Else Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId")) Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId")) If Antal("antal") <> "0" Then If RS.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"class="vit"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If Else%>
<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId")) If Url.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else Do Until Url.EOF%>
" target="_blank" class="rubrik" onclick="javascript:location.reload();" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%> - <%=Url("klick")%> klick
<%=Code(Url("info"))%>
<%Url.MoveNext Loop End If End If If Request.QueryString("catId") <> "" Then Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
<%If Kat("sub_kat") = 0 Then%> Tillbaka <%Else%> ">Tillbaka <%End If%> Lägg till en länk(ar) i denna kategorin » Rapportera "död" länk!
<%End If End If Conn.Close Set Conn=Nothing%>
 
``` nog lättare om man ser ett exempel på hur du gör det. Man lär ju sig hela tiden =) Permalänk: https://www.webforum.nu/p/1530431 ## #4 — @nders, 2005-01-15T11:48Z Prova att byta: ``` <%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId")) ``` mot ``` <%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId")[b] & " ORDER BY ID DESC[/b]") ``` mvh Permalänk: https://www.webforum.nu/p/1530438 ## #5 — jimbo, 2005-01-15T12:05Z Jaaa det funkade ju som en keps! Tackar så mycket =)) Mvh JImmy Permalänk: https://www.webforum.nu/p/1530448 --- Tråden på webben: https://www.webforum.nu/amne/asp/120173-visa-senaste-länkar-överst