Hjælp til 2 SQL Sætninger

Du skal havde fat i noget group by og order by i stil med dette:

SELECT TOP 10 Count([kommen].[vote]) AS [AntalStemmer], Avg([kommen].[vote]) AS [Gennemsnit] FROM kommen GROUP BY kategori ORDER BY Avg([kommen].[vote]) DESC

Hmmm der er noget der passer, men script ser sådan ud inden jeg indsætter din SQL

<%
          strSQL =  "SELECT TOP 10 * FROM tekst ORDER BY hits desc"
          Set rs = Conn.Execute (strSQL)%>
       
        <table width="80%" border="0" align="center" cellspacing="5">
<%
i = 0
While Not rs.EOF
if i mod 1 = 0 then
response.write "<tr>"
end if
%>
            <td>
             
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="5" class="ramme">
                <tr>
                  <td width="125" align="right" valign="top" >
                    <div align="left">Hits : <% = rs("hits")%>
                      <a href="vis.asp?rid=<%=rs("id") & "&amp;t=" & rs("kategori")%> ">
                      <%billed_url = rs("billede")
                      if billed_url<>"" then
                      Response.write "<br>" & "<br>" & "<img src='" & "thumbnails100" & "/" & Mid(billed_url,9) & "' class=""minus_ramme"" alt=""billede"" title=""lystfiskerensnet"" >"
                          end if%></a>                     
                    </div>
                   
                    </td>
                  <td align="left" valign="middle"><br> <strong><% = rs("titel")%></strong><br>
                    Indsendt af:&nbsp;&nbsp;<% = rs("indsendt") %><br>
                        <%    Str = rs("bemarkning") 
If len(Str) > 35 Then
  Response.write(left(Str, 35) & "  .....")
Else
  Response.Write Str
end if
                   
                    %>
                    <br>
                   
                    <a href="vis.asp?rid=<%=rs("id") & "&amp;t=" & rs("kategori")%> "> <B>>> se mere</B><br></a> </td>
                </tr>
                <tr>
                <td width="150">
                  <% sql2 = "SELECT DISTINCTROW Count([kommen].[vote]) AS [Sum Of vote], Avg([kommen].[vote]) AS [Gennemsnit Of vote] FROM kommen WHERE kategori="&("id")
        Set Rs2 = Conn.Execute(Sql2)
                StrVote = rs2("Sum Of vote")
                If StrVote < "1" Then
                  Response.Write ""
                          Else 
    response.write "<b> Point:</b> " & "&nbsp;" & "&nbsp;" & CInt(rs2("Gennemsnit Of vote"))  & "&nbsp;" & "&nbsp;" & "<b> Stemmer:</b>" & "&nbsp;" & "&nbsp;" & rs2("Sum Of vote")  End If %>
                </td>
               
                <td>&nbsp;</td>
                </tr>
              </table>
</td>


<%

i = i+1
if i mod 1 = 0 then
response.write "</tr>"
end if
RS.MoveNext
wend
Conn.Close
Set Conn = Nothing
%>

så i stedet for de bliver sorteret efter "hits" så skal de sorteres efter "vote"?

Jeg er "lidt" krævende..............
Jeg ønsker 1 side, hvor de bliver sorteret efter hits ( ligesom den her http://www.web-byggeren.dk/upload/populareste.asp der ikke virker)

derud over en side efter højst bedømte (gennemsnit)....gir det nogen mening?

ok men siden som sortere efter hits ser da ud til at virke eller??

Hvis du vil havde en side som sortere efter votes så skal SQL sætning være i stil med dette:

SELECT tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, Avg(kommen.vote) AS GennemsnitAfVote, Count(kommen.vote) AS AntalAfVote
FROM tekst INNER JOIN kommen ON tekst.id = kommen.kategori
GROUP BY tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, kommen.vote
ORDER BY kommen.vote DESC

så din kode bliver til stil med dette:


<%
          strSQL =  "SELECT TOP 10 tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, Avg(kommen.vote) AS [Gennemsnit Of vote], Count(kommen.vote) AS [Sum Of vote] FROM tekst INNER JOIN kommen ON tekst.id = kommen.kategori GROUP BY tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, kommen.vote ORDER BY kommen.vote DESC"
          Set rs = Conn.Execute (strSQL)%>
       
        <table width="80%" border="0" align="center" cellspacing="5">
<%
i = 0
While Not rs.EOF
if i mod 1 = 0 then
response.write "<tr>"
end if
%>
            <td>
             
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="5" class="ramme">
                <tr>
                  <td width="125" align="right" valign="top" >
                    <div align="left">Hits : <% = rs("hits")%>
                      <a href="vis.asp?rid=<%=rs("id") & "&amp;t=" & rs("kategori")%> ">
                      <%billed_url = rs("billede")
                      if billed_url<>"" then
                      Response.write "<br>" & "<br>" & "<img src='" & "thumbnails100" & "/" & Mid(billed_url,9) & "' class=""minus_ramme"" alt=""billede"" title=""lystfiskerensnet"" >"
                          end if%></a>                     
                    </div>
                   
                    </td>
                  <td align="left" valign="middle"><br> <strong><% = rs("titel")%></strong><br>
                    Indsendt af:&nbsp;&nbsp;<% = rs("indsendt") %><br>
                        <%    Str = rs("bemarkning") 
If len(Str) > 35 Then
  Response.write(left(Str, 35) & "  .....")
Else
  Response.Write Str
end if
                   
                    %>
                    <br>
                   
                    <a href="vis.asp?rid=<%=rs("id") & "&amp;t=" & rs("kategori")%> "> <B>>> se mere</B><br></a> </td>
                </tr>
                <tr>
                <td width="150">
                StrVote = rs("Sum Of vote")
                If StrVote < "1" Then
                  Response.Write ""
                          Else 
    response.write "<b> Point:</b> " & "&nbsp;" & "&nbsp;" & CInt(rs("Gennemsnit Of vote"))  & "&nbsp;" & "&nbsp;" & "<b> Stemmer:</b>" & "&nbsp;" & "&nbsp;" & rs("Sum Of vote")  End If %>
                </td>
               
                <td>&nbsp;</td>
                </tr>
              </table>
</td>


<%

i = i+1
if i mod 1 = 0 then
response.write "</tr>"
end if
RS.MoveNext
wend
Conn.Close
Set Conn = Nothing
%>

Den side med hits fungere også, men som du ser vise den Point:  9  Stemmer:  1  på alle billeder og det passer jo ikke!!!!!!!

Hvordan linkes en stemme til et billede?

tabel tekst= id
tabel kommen= kategori

I din kode til siden http://www.web-byggeren.dk/upload/populareste.asp prøv at rette din SQL sætning:

"SELECT DISTINCTROW Count([kommen].[vote]) AS [Sum Of vote], Avg([kommen].[vote]) AS [Gennemsnit Of vote] FROM kommen WHERE kategori="&("id")


Til dette:

"SELECT DISTINCTROW Count([kommen].[vote]) AS [Sum Of vote], Avg([kommen].[vote]) AS [Gennemsnit Of vote] FROM kommen WHERE kategori="&rs("id")

siden Top bedømte er næsten i vinkel http://www.web-byggeren.dk/upload/topbedomte.asp som du ser må billed 3 det bedste billed, at det har 10 i snit ud af 4 stemmer, kan man lave, så det bliver rigtig?????

Kanon eagleeye den virker ;o))

Jo man kan også sætte antal stemmer ind i order by, så prøv at rette SQL sætningen til dette sådan den sortere først på gennemsnit så hvis gennemsnit er ens så vise den med flest stemmer:

          strSQL =  "SELECT TOP 10 tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, Avg(kommen.vote) AS [Gennemsnit Of vote], Count(kommen.vote) AS [Sum Of vote] FROM tekst INNER JOIN kommen ON tekst.id = kommen.kategori GROUP BY tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, kommen.vote ORDER BY AVG(kommen.vote) DESC, COUNT(kommen.vote) DESC"

Hold da op!!!!!!!!!!!!!!!!!
Det virker selvfølge som altid når du laver noget Eagleeye!!!

Tusind mange tak for hjælpen

Eagleeye - jeg ved ikke om du "hænger" på endnu!!!
Men der er opstået et problem efter jeg har tastede alt data ind.....Den side som skal viste de 10 top bedømte billeder-viser 21 billeder nu pga. stemmelighed???

Kan man ikke tvinge den til kun at vis 10 trods det?
Du kan se siden her http://www.lystfiskerens.net/galleri/topbedomte.asp

Og SQL-sætningen som jeg bruger ser sådan ud
    "SELECT TOP 10 tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, Avg(kommen.vote) AS [Gennemsnit Of vote], Count(kommen.vote) AS [Sum Of vote] FROM tekst INNER JOIN kommen ON tekst.id = kommen.pic_id GROUP BY tekst.id, tekst.kategori, tekst.hits, tekst.billede, tekst.titel, tekst.indsendt, tekst.bemarkning, kommen.vote ORDER BY AVG(kommen.vote) DESC, COUNT(kommen.vote) DESC, "