Statistics - Web Wiz Support and Community Forums

I just wanted to say that I have built a webpage for some stats which you can use.

You will have to do a little translating though.

<% @ LANGUAGE=VBScript CODEPAGE=1252 %>

<% Option Explicit %>

on error resume next

Response.Buffer = true

Dim antal_1

Dim antal_2

Dim antal_7

Dim antal_14

Dim antal_30

Dim antal_90

Dim post_1

Dim post_2

Dim post_7

Dim post_14

Dim post_30

Dim post_90

Dim postYmax, postYmaxName, postYminName, postYmin, postMmax, postMmin, postMmaxName, postMminName

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -1;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Antal_1 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -2;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Antal_2 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -7;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Antal_7 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -14;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Antal_14 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -30;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Antal_30 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -90;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Antal_90 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -1;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Post_1 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -2;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Post_2 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -7;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Post_7 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -14;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Post_14 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -30;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Post_30 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -90;"

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then Post_90 = CLng(rsCommon.Fields("Antal"))

rsCommon.Close

Dim strActiveUsers

strSQL = "SELECT TOP 20 Username, (SELECT COUNT(*) FROM yandr.tblThread WHERE Message_date > getdate() -30 AND tblThread.Author_ID = tblAuthor.Author_ID) AS beskeder FROM yandr.tblAuthor

ORDER BY beskeder DESC"

set rsCommon = server.createobject("ADODB.Recordset")

rsCommon.Open strSQL, adoCon, adOpenForwardOnly, adLockReadOnly, adCmdText

rsCommon.movenext

while not rsCommon.EOF

strActiveUsers = strActiveUsers & vbCrLf & vbTab & vbTab & "<tr><td>" & rsCommon.Fields("Username") & "</td><td><center>" & rsCommon.Fields("Beskeder") & "</center></td><td><img

src=http://images.ellinikos-stratos.com/stat.gif height=7 border=1 width=" & rsCommon.Fields("Beskeder")/1.2 & "></td></tr>"

rsCommon.movenext

wend

rsCommon.close

Dim strBeskedGraf

strSQL = "SELECT YEAR(Message_date) AS [aar], MONTH(Message_date) AS [maaned], DATENAME(m,Message_date) AS [maaned2], COUNT(*) AS [antal], (COUNT(*)/30) AS [gAntal] FROM yandr.tblThread

where Message_date>= getdate() - 1200 GROUP BY YEAR(Message_date), MONTH(Message_date), DATENAME(m,Message_date) ORDER BY [aar] DESC,[maaned] DESC"

set rsCommon = server.createobject("ADODB.Recordset")

rsCommon.Open strSQL, adoCon, adOpenForwardOnly, adLockReadOnly, adCmdText

postMmax=0

postMmin=10000000000

while not rsCommon.EOF

if (rsCommon.Fields("Antal")>postMmax) then

postMmax = rsCommon.Fields("Antal")

postMmaxName = replace(getMonthName(cint(rsCommon.Fields("maaned"))) & " του " & rsCommon.Fields("aar"),"ς","")

end if

if (rsCommon.Fields("Antal")<postMmin) then

postMmin = rsCommon.Fields("Antal")

postMminName = replace(getMonthName(cint(rsCommon.Fields("maaned"))) & " του " & rsCommon.Fields("aar"),"ς","")

end if

strBeskedGraf = strBeskedGraf & vbCrLf & vbTab & vbTab & "<tr><td class=smText>" & rsCommon.Fields("aar") & " - " & getMonthName(cint(rsCommon.Fields("