Tja!
Försöker att få ihop en statistiktjänst till min sida, men jag har lite problem...
När jag ska kolla min statistik så skriver den ut antal besökare/dag, men framför varje antal så står det alltid den dagen det är...så idag står de Torsdag framför alla. Jag vill ju att det ska stå:
Torsdag: 342 besökare
Fredag: 5235 besökare
osv...
Nu står det alltså:
Torsdag: 432 besökare
Torsdag: 324 besökare
osv...
Sen skulle jag också vilja att det bara var den senaste veckan som visades. Att den inte listar fler dagar...
Kan någon hjälpa mig med detta?
If Request.QueryString("do") = "stats" Then
Set Connect = Server.CreateObject("ADODB.Connection")
OpenDatabase
SQL = "Select * From stats order by dag"
Set RecSet = Connect.Execute(SQL)
nrDag = RecSet("dag")
Select Case nrDag
Case 1
dag="Måndag"
Case 2
dag="Tisdag"
Case 3
dag="Onsdag"
Case 4
dag="Torsdag"
Case 5
dag="Fredag"
Case 6
dag="Lördag"
Case 7
dag="Söndag"
End Select
nrMan = RecSet("dag")
Select Case nrMan
Case 1
man="Januari"
Case 2
man="Februari"
Case 3
man="Mars"
Case 4
man="April"
Case 5
man="Maj"
Case 6
man="Juni"
Case 7
man="Juli"
Case 8
man="Augusti"
Case 9
man="September"
Case 10
man="Oktober"
Case 11
man="November"
Case 12
man="December"
End Select
SQL2 = "SELECT Count(*) As besok FROM stats GROUP BY dag"
Set Besok = Connect.Execute(SQL2)
Do Until Hej.EOF%>
<table>
<tr>
<td><%=dag%></td>
<td><%=Besok("besok")%></td>
</tr>
</table>
<%
Hej.MoveNext
Loop
End If
