Loopa ut månader (med år)

Hur ser tabellen ut?

intra.mdb

fält: ip, datum, ref

Gissning:

sql = "select distinct datum, count(datum) as Visitors from tblWhatEver group by datum"

Vad innehåller kolumnen 'datum' förresten? Ett helt datum i stil med '2004-02-25 15:00:00' antar jag?

Precis, 'now'

Är det "bara" att loop ut innehåller sedan, eller?

Hrm, ok. Då borde vi göra såhär istället. Jag har ingen aning ifall det här funkar, jag hittar tamejfasen ingen ordentlig formateringsfunktion för datum.. :l

sql = "select distinct (DATEPART(datum)), count(datum) as Visitors from tblWhatEver group by datum"

Du borde få en lista som ser ut nåt liknande det här:

2004-02-25      12
2004-02-26      14
2004-02-27      87
2004-02-28      2
2004-02-29      34

Nja, det där kommer inte fungera heller ser jag nu, eftersom DATEPART bara returnerar Integers.

Någon som vet hur fasen man får ett NOW-datum att bli bara datum i SQL?

Tråden flyttas dessutom från ASP, VBScript.

Ser bra ut om det hade fungerat, är det enkelt att summera i månader istället? :)

Vilken DBMS gäller det?

DBMS?

Ursäkta min okunnighet :)

Vilken databas?

MS Access 2003

sql = "select month(datum),year(datum), count(*) as Visitors from tblWhatEver group by month(datum),year(datum)"

Provade precis med LarsG´s kod, men den skrev inte ut något...

Som sagt *nybörjare* :)

<%
sql = "select month(datum),year(datum), count(*) as Visitors from intra group by month(datum),year(datum)"
Set RS = Connection.Execute(sql)
%>

<%DO UNTIL RS.EOF%>

<%=visitors%>

<%
RS.MoveNext
Loop
RS.Close
Connection.Close
%>

--------------------------------------------------------------------------------
<%
sql = "select month(datum),year(datum), count(*) as Visitors from intra group by month(datum),year(datum)"
Set RS = Connection.Execute(sql)
%>

<%DO UNTIL RS.EOF%>

[b]<%=rs(0) & "-" & rs(1) & ": " & rs(2) %>[/b]

<%
RS.MoveNext
Loop
RS.Close
Connection.Close
%>

<%
sql = "select month(datum),year(datum), count(*) as Visitors from intra group by month(datum),year(datum)"
Set RS = Connection.Execute(sql)
DO UNTIL RS.EOF
   Response.write rs(0) & " " & rs(1) & " " & rs(2) & "<br>"
   RS.MoveNext
Loop
RS.Close
Connection.Close
%>