Top 5 ?

Du kan prøve sådan her, conn skal være en connection til din database:

SQL = "select top 5 count(oprettet) as antal, oprettet from TabelNavn group by oprettet order by count(oprettet) desc"
Set rs=Conn.execute(SQL)

do while not rs.EOF
  Response.Write rs("oprettet") & " med " & rs("antal") & " poster <br>"
  rs.Movenext
loop

Kigger med

I princippet bruger jeg selv det her. Det skal bare tilpasses. Kommer jo an på hvad du har af felter du vil have udskrevet fra:

strSQL = "select Top 5 oprettet from Tabelnavn"

Cool, du er jo lynende hurtig...

Jeps, men jeg bruger Dreamweaver og lagde det ind igennem der og den viste det rigtige resultat.

Har ikke kunne få den til at vise alle navne, men det kigger jeg lige på, det gik jo ret hurtigt..

har lige lavet 5 poster

Kenneth
Jørgen
jørgen
Erik
Erik

Men den viser kun "jørgen 2" hvilken jo er rigtig nok.
har ikke sovet i et par dage, så måske det er derfor.

Nogle ideer.?

Min fejl...

Havde hentet det forkerte RS i repeat funktionen..

Takker mange gange

Hvordan får jeg den til at vise de forskelige linier med navnene i skiftevis
grå og hvid baggrund..`??

Jeg mener dette skulle klare det:


<%
SQL = "SELECT TOP 5 count(oprettet) AS antal, oprettet FROM TabelNavn GROUP BY oprettet ORDER BY count(oprettet) Desc"
Set RS=Conn.Execute(SQL)

Dim bgcolor
bgcolor = "#ececd9"
%>

<table border="0" cellpadding="0" cellspacing="0" style="width: 755px;">

    <% Do While Not RS.EOF %>

    <tr>
        <td style="background-color: <%=bgcolor%>" align="left"><%=RS("oprettet")%> med <%=RS("antal")%> poster</td>
    </tr>

    <%
    If bgcolor = "#ececd9" Then
        bgcolor = "#e7e7e7"
    Else
        bgcolor = "#ececd9"
    End If

    RS.Movenext
    Loop
    %>

</table>

Del selv tabellen op i de antal kolonner du ønsker, og giv dem selv de farver du ønsker :o)

hmm skriver
'loop' without 'do'

har sikkert indsat det forkert

har en repeat funtion.


<tr align="left">
                  <td width="25%" valign="top"><%
While ((Repeat1__numRows <> 0) AND (NOT lo.EOF))
%>
                    <p class="style1"><%=(lo.Fields.Item("oprettet").Value)%> - <%=(lo.Fields.Item("antal").Value)%></p>
                    <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  lo.MoveNext()
Wend
%></td>

Kan du afprøve dette, ved ikke om det har nogen betydning, men sådan står det hos mig, og det virker:

<%
SQL = "SELECT TOP 5 count(oprettet) AS antal, oprettet FROM TabelNavn GROUP BY oprettet ORDER BY count(oprettet) Desc"
Set RS=Conn.Execute(SQL)
%>

<table border="0" cellpadding="0" cellspacing="0" style="width: 755px;">

    <%
    Dim bgcolor
    bgcolor = "#ececd9"

    While Not RS.EOF
    %>

    <tr>
        <td style="background-color: <%=bgcolor%>" align="left"><%=RS("oprettet")%> med <%=RS("antal")%> poster</td>
    </tr>

    <%
    If bgcolor = "#ececd9" Then
        bgcolor = "#e7e7e7"
    Else
        bgcolor = "#ececd9"
    End If

    RS.Movenext
    Wend
    %>

</table>

Ok, så ikke dit indlæg. Held og lykke, jeg vil studere øjenlåg nu :o)

prøver.. sov godt

31/08-2004 01:26:35

Havde du indsat denne:

    <% Do While Not RS.EOF %>

.. og tak, i lige måde :o)

hmm måske ikke, prøver igen, men er lidt træt. så det er nok derfor

Hvordan står det til? Er der styr på sagerne? :o)

nej, fik ikke lige kigget på det igår, har desværre kun sovet 3 - 4 timer hver nat de sidste par uger, men prøver som noget af det første i aften. For det ser lidt flottere ud, hvis det lykkedes.

Dingo2

lykkedes ikke, venter nok lige til weekenden hvor jeg har bedre tid..

dingo2

Ok. Jeg mener mit indlæg fra 31/08-2004 01:16:54 skulle kunne klare det .. hvis du huskere det hele :o)

ok.. prøver det senere igen..

Dropper det.. ligger indlæg senere når tiden er til det..

takker for hjælpen.

I det mindste virker min top5, og det er jo det vigtigeste.