---
title: "Topplista - Hur?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/49985-topplista-hur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-08-10T10:33:39.000Z"
updated: "2002-08-10T20:26:34.000Z"
replies: 4
views: 204
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/49985-topplista-hur"
---

# Topplista - Hur?

## #1 — Asa, 2002-08-10T10:33Z

Hur gör jag för att få de försyta 15 att visas med banner och resten med dess länk?

```
<%Set RecSet=Conn.Execute("Select * From topplista Order By Inp Desc")

If RecSet.EOF Then
For i = 1 to AntalTopp%>
    <tr height="30">
        <td align="center" width="40"><b><%=i%>.</b></td>
        <td align="center"><b><%=Joina%></b></td>
        <td align="center" width="40">&nbsp;</td>
        <td align="center" width="40">&nbsp;</td>
     </tr>
<%Next
Else%>
    <tr>
       <td width="40" align="center"><b>PLATS</b></td>
       <td><b>HEMSIDA</b></td>
       <td width="40" align="center"><b>IN</b></td>
       <td width="40" align="center"><b>UT</b></td>
    </tr>
<%X=0
Z=1
Do Until RecSet.EOF Or X=AntalTopp%>
   <tr>
       <td align="center"><b><%=Z%>.</b></td>
       <td>
            <div align="center"><a href="topplista.asp?go=out&id=<%=RecSet("Id")%>" target="_blank" OnClick="javascript:location.reload()"><img src="<%=RecSet("banner")%>" border="0" width="468" height="60"></a></div><br>
          <b><%=RecSet("Sidnamn")%></b><br>
          <%=RecSet("Info")%>
       </td>
       <td align="center"><b><%=RecSet("Inp")%></b></td>
       <td align="center"><b><%=RecSet("Utp")%></b></td>
    </tr>
<%Z = Z + 1
X = X + 1
RecSet.MoveNext
Loop
Set Antal=Conn.Execute("Select Count(*) As antal From topplista")
Tot = Antal("antal")
Antal = AntalTopp-Tot
y = Tot+1
For i = 1 to Antal%>

   <tr height="30">
      <td align="center" width="30"><b><%=y%>.</b></td>
      <td align="center"><b><%=Joina%></b></td>
      <td align="center" width="40">&nbsp;</td>
      <td align="center" width="40">&nbsp;</td>
   </tr>

<%y=y+1
Next

End If%>
```

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

## #2 — Ekström, 2002-08-10T10:37Z

Använd en for-sats.

For i = 1 to 15 - för att visa banners
kod...
Next
Ditt recordset borde nu befinna sig på rätt ställe.
Då är det bara fortsätta med
Do Until dittRS.EOF
kod med länkar...
dittRS.MoveNext
Loop

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

## #3 — Asa, 2002-08-10T19:30Z

Hmm! Men ska jag köra en for loop först och sen Recordsettet? Mena du så?

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

## #4 — LarsG, 2002-08-10T19:46Z

```
x = 0
Do Until RecSet.EOF Or X=AntalTopp
   if x < 15 then 
'visa banner
  else
'visa länk
end if
x = x + 1
%>
```

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

## #5 — Asa, 2002-08-10T20:26Z

Tackar :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/49985-topplista-hur