|
|
|
|
|
|
| |
 |
|
<%
visite_tot=0
visite_g=0
'CONNESSIONE AL DB
strAccessDB = "/mdb-database/dbstats.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(strAccessDB)
adoCon.Open strCon
'VISITE TOTALI
sql = "SELECT * FROM tblSt_Counter"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, adoCon ,3,3
do while not(rs.eof)
visite_tot=visite_tot + rs(3)
rs.movenext
loop
rs.Close
'VISITE DI OGGI
sql = "SELECT * FROM tblSt_Daily ORDER by Daily_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, adoCon ,3,3
visite_g=rs(4)
rs.Close
''ON-LINE
'if (Minute(Now())-5) < 0 then minuti=0 else minuti=(Minute(Now())-5)
'sql = "SELECT COUNT(*) FROM tblSt_Detail WHERE Data > #" & Day(Now()) & "/" & Month(Now()) & "/" & Year(Now()) & " " & Hour(Now()) & "." & (minuti) & "."& Second(Now()) & "# GROUP BY Visitor_ID"
''sql = "SELECT COUNT(*) FROM tblSt_Detail WHERE Data > #" & Day(Now()) & "/" & Month(Now()) & "/" & Year(Now()) & " " & Hour(Now()) & "." & (Minute(Now())-5) & "."& Second(Now()) & "# GROUP BY Visitor_ID"
'Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open sql, adoCon ,3,3
'intAsgUsersOnline = rs.RecordCount
'if intAsgUsersOnline = 0 then intAsgUsersOnline =1
'rs.Close
'CHIUDO CONNESSIONE AL DB
adocon.Close
set adocon = Nothing
%> <%
response.write("Visite Totali: "&visite_tot&"
")
response.write("Visite di oggi: "&visite_g&"
")
'response.write("ON-LINE: "&intAsgUsersOnLine)
%> |
|
 |
|
Ultimo aggiornamento:
13 Aprile
zanna86.com
Contatti msn
Pagerank patatrak
|
