Topplista - Hur?

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