5 svar · 276 visningar · startad av Asa
Har denna kod:
<table cellspacing=0 cellpadding=8 border=0 width="100%">
<tr>
<td valign="top" background="bilder/long-bg.gif" height="30" colspan="2"><b>Flest GB-inlägg i din GB:</b></td>
</tr>
<tr>
<td valign="top">
<%Set Flest=Conn.Execute("Select Distinct from_id From gastbok Where to_Id=" & Request.QueryString("id"))
y=1
x=0
Do Until Flest.EOF Or x=8
Set User=Conn.Execute("Select * From users Where userid=" & Flest("from_Id"))
Set Antal = Conn.Execute("select count(from_id) as antal from gastbok where from_Id=" & User("userId") & " And to_Id=" & Request.QueryString("id"))%>
<b><%=y%>.</b> <%=User("alias")%> (<%=Antal("antal")%>)<br>
<%x=x+1
y=y+1
Flest.MoveNext
Loop%>
</td>
</tr>
</table>
Jag vill nu sortera efter den som har mest postade inlägg så den kommer högst upp. Jag använder MySQL databas.
Och vad är fel med denna?
If Cint(Session("userid")) = Cint(Request.QueryString("id")) Then
Conn.Execute("Update gastbok Set read=1 Where to_Id=" & Request.QueryString("id"))
End If
Felmess:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E09)
[TCX][MyODBC]You have an error in your SQL syntax near 'read=1 Where to_Id=1' at line 1
Set Antal = Conn.Execute("select count(from_id) as antal from gastbok where from_Id=" & User("userId") & " And to_Id=" & Request.QueryString("id") order by antal desc)%>
read är ett reserverat ord i SQL så det är bäst att byta namn på den kolumnen.
Det går ju inte med det du skrev! Jag måste ju sortera vid denna eller?
Set Flest=Conn.Execute("Select .......
Det med namnbyte gjorde susen på andra problemet.
Men den koden ligger ju i loopen där man bara räknar ihop allt å skriver ut namnen. SKa inte själva order grejjen ligga där man hämtar med denna kod?
Set Flest=Conn.Execute("Select Distinct from_id From gastbok Where to_Id=" & Request.QueryString("id"))
Det räcker med en fråga, du kan också begränsa antalet svar till maximalt 8 direkt i frågan.
q = "Select alias,count(*) as antal " & _
" From gastbok inner join users on from_id = user_id " & _
" Where to_Id=" & Request.QueryString("id") & _
" group by alias order by antal desc limit 8"
Set Flest=Conn.Execute(q)
y=1
Do Until Flest.EOF
%>
<b><%=y%>.</b> <%=Flest("alias")%> (<%=Flest("antal")%> )<br>
<%
y=y+1
Flest.MoveNext
Loop%>
Tackar! Ska testa det!