<% Dato = Date & " 00:00:00" Set Hits = DataConn.Execute("SELECT count(*) FROM Statistik WHERE [DateTime] BETWEEN #"& now &"# AND #" & Dato & "#") IAlt = Hits(0) %> Du har haft <%=IAlt%> besøgende idag.<br><br>Deres opløsning var fordelt på denne måde:<br> <table background="images/front2.bmp"><tr><td><b>Opløsning</td><td><b>Antal</td><td><b>Procent</td></tr> <%
Set Hits = DataConn.Execute("SELECT DISTINCT Resolution FROM Statistik WHERE [DateTime] BETWEEN #"& now &"# AND #" & Dato & "#")
Do until Hits.EOF Count = DataConn.Execute("SELECT count(*) FROM Statistik WHERE [Resolution] = '"&Hits("Resolution")&"' AND [DateTime] BETWEEN #"& now &"# AND #" & Dato & "#") If not Ialt = 0 Then Procent = (Count(0) * 100) / IAlt else Procent = 0 end if Procent = FormatNumber(procent,2) Response.Write "<tr bgcolor=""#FFFFFF""><td>" & Hits("Resolution") & "</td><td align=""right"">" & Count(0) & "</td><td align=""right"">" & Procent & "%</td></tr>" Hits.MoveNext Loop %> </table>
Set Hits = DataConn.Execute("SELECT count(*) as cnt, Resolution FROM Statistik WHERE [DateTime] BETWEEN #"& now &"# AND #" & Dato & "# GROUP BY Resolution ORDER BY 1 DESC")
Do until Hits.EOF
If not Ialt = 0 Then Procent = (Hits("cnt") * 100) / IAlt else Procent = 0 end if Procent = FormatNumber(procent,2) Response.Write "<tr bgcolor=""#FFFFFF""><td>" & Hits("Resolution") & "</td><td align=""right"">" & Hits("cnt") & "</td><td align=""right"">" & Procent & "%</td></tr>" Hits.MoveNext Loop %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.