webForumDet fria alternativet

Topplista - Hur?

4 svar · 204 visningar · startad av Asa

AsaMedlem sedan dec. 20011 860 inlägg
#1

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%>
EkströmMedlem sedan feb. 20022 594 inlägg
#2

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

AsaMedlem sedan dec. 20011 860 inlägg
#3

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

LarsGMedlem sedan dec. 200012 464 inlägg
#4
x = 0
Do Until RecSet.EOF Or X=AntalTopp
   if x < 15 then 
'visa banner
  else
'visa länk
end if
x = x + 1
%>
AsaMedlem sedan dec. 20011 860 inlägg
#5

Tackar :)

125 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
121 ms — hämta tråd, inlägg och bilagor (db)