--- title: "Topplista fel" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/157655-topplista-fel" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "SGuncel" published: "2007-02-28T13:33:37.000Z" updated: "2007-03-04T22:13:40.000Z" replies: 4 views: 423 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/157655-topplista-fel" --- # Topplista fel ## #1 — SGuncel, 2007-02-28T13:33Z Alla användare får samma medelbetyg och jag får inte personen som ligger etta eller har bästa medelbetyget. ``` <% SQL = "Select * from TLUsers WHERE UsrID ="&SafeSQL(Session("UsrID"))&"" Set ObjRS= ObjConn.execute(SQL) Function Age(datBorn) Age = DateDiff("yyyy", datBorn, Date()) If (Month(Date()) < Month(datBorn)) or _ (Month(Date()) = Month(datBorn) and Day(Date()) < Day(datBorn)) Then Age = Age -1 End Function Dim strVart_page , strVart_Query, strVart strVart_page = Mid(Request.ServerVariables("PATH_INFO"),1) strVart_Query = Request.ServerVariables("QUERY_STRING") If Len(strVart_Query) > 0 Then strVart = strVart_page &"?"& strVart_Query Else strVart = strVart_page End If dim strVart_LinkName, strVart_Name strVart_LinkName = ("Spanar in i topplistan") strVart_Name = strVart_LinkName ObjConn.Execute("UPDATE TLUsers SET UsrWhere = '" & strVart & "', UsrWhereName = '" & strVart_Name & "' WHERE UsrID = "&SafeSQL(Session("UsrID")) & "") %>

Topplistan

Alla

Killar

Tjejer

<% Set Count = ObjConn.Execute("Select SUM(VoteGrade) AS vgrade FROM Votes order by vgrade DESC") VoteGrade = Cint(Count("vgrade")) Set ObjRS2 = ObjConn.Execute("Select * FROM TLUsers where TotalVote LIMIT 10") TotalVote = Cint(ObjRS("TotalVote")) %>

<% IF ObjRS2.Eof then Response.Write "Du har inga besökare." Else %>

<% For i = 1 To 10 Do Until ObjRS2.EOF %> <% ObjRS2.MoveNext Loop Next ObjRS.Close : Set ObjRS = nothing ObjRS2.Close : Set ObjRS2 = nothing ObjConn.Close : Set ObjConn = Nothing End if %>

" border="1" width="90" height="110">

"><%=ObjRS2("UsrTLAlias")%> - <% If ObjRS2("UsrSex")="Kille" Then Response.Write "P" Else Response.Write "F" End If %> <%=Age(DateSerial(ObjRS2("UsrAgeYear"), ObjRS2("UsrAgeMonth"), ObjRS2("UsrAgeDay")))%> från <%=ObjRS2("UsrLiveLoc")%>

Antal röster: <%=ObjRS2("TotalVote")%>
Medelbetyg: <% Snitt = Round(VoteGrade/TotalVote,2) Response.Write ""&Snitt&"" %>

``` Permalänk: https://www.webforum.nu/p/157655 ## #2 — SGuncel, 2007-03-04T01:30Z Nån som vill hjälpa? :) Permalänk: https://www.webforum.nu/p/1942046 ## #3 — emission, 2007-03-04T13:18Z 1\. Du har fortfarande en konstig SQL-sats. "Select \* FROM TLUsers where TotalVote LIMIT 10" Den kan inte stämma. 2\. Du har fortfarande en for-loop. Ta bort den. 3\. Du beräknar medelbetyg med samma värden varje gång. Det borde åtminstone vara TotalVote från objRS2. Permalänk: https://www.webforum.nu/p/1942114 ## #4 — SGuncel, 2007-03-04T18:43Z Hur ska jag göra så? :S Permalänk: https://www.webforum.nu/p/1942195 ## #5 — emission, 2007-03-04T22:13Z Börja med punkt 1. Något försöker du göra med SQL-satsen, men vad? Vilka 10 användare? Permalänk: https://www.webforum.nu/p/1942297 --- Tråden på webben: https://www.webforum.nu/amne/asp/157655-topplista-fel