una mano??

a dimenticavo, l'intervallo di tempo è im millisecondi percio perchè lo script avvenga in 1 secondo devi mettere:

window.setTimeout(codice da eseguire,1000)

Scusa se c'è la funzione che conta gli IN giornalieri e poi li resetta..almeno credo...non basta incrementare il valore e portarlo a 14??

eccolo:

'This variable could be set to
' DAY for hits/day ranking or
' TOTAL for total hits ranking

Const g_strRankOption = "TOTAL"

'If set to true then clicking will take the user to another page and if he/she clicks
' there a hit will be counted. This is to defeat cheating

Const g_fUseGateway = True





'''TODO for you! Configuration:
''''3. Some ads if you'd like

Function IncTopsite_PerhapsCleanUp( oConn )

If g_strRankOption = "TOTAL" Then
IncTopsite_PerhapsCleanUp = False
Exit Function
End If

Dim sNow, sStart, fShouldCleanup
sNow = Now()
sStart = Application("ts_start")
If sStart = "" Then
Dim oRSWhenStart
Set oRSWhenStart = oConn.Execute("select startdate from "& IncTopsite_GetTablePrefix() & "sysvar " )
If oRSWhenStart.EOF Then
oRSWhenStart.Close
Set oRSWhenStart = Server.CreateObject("ADODB.Recordset")
Set oRSWhenStart.ActiveConnection = oConn
oRSWhenStart.Open "select * from " & IncTopsite_GetTablePrefix() & "sysvar where id = -1", ,1,3
oRSWhenStart.AddNew()
oRSWhenStart("startdate") = Now()
oRSWhenStart.Update
oRSWhenStart.Close
Set oRSWhenStart = Nothing
sStart = Application("ts_start")
Exit Function
Else
sStart = oRSWhenStart("startdate")
oRSWhenStart.Close
Set oRSWhenStart = Nothing
End If
End If
fShouldCleanup = False

If ShouldCleanUp( g_strRankOption, sStart, sNow ) = True Then
oConn.Execute("update " & IncTopsite_GetTablePrefix() & "site set incount=0,outcount=0")
Set oRSWhenStart = Server.CreateObject("ADODB.Recordset")
Set oRSWhenStart.ActiveConnection = oConn
oRSWhenStart.Open "select * from " & IncTopsite_GetTablePrefix() & "sysvar", ,1,3
oRSWhenStart("startdate") = Now()
oRSWhenStart.Update
oRSWhenStart.Close
Set oRSWhenStart = Nothing
End If
End Function

Function IncTopsite_GetTablePrefix()
'IncTopsite_GetTablePrefix = ""
IncTopsite_GetTablePrefix = ""
End Function


Function ShouldCleanUp( g_strRankOption, sStart, sNo )
If g_strRankOption = "DAY" Then
If DateDiff( "d", sStart, sNo ) > 1 Then
ShouldCleanUp = True
Exit Function
End If
End If
ShouldCleanUp = False
End Function


Sub ListCategories( nSelected, fListAll )
Dim oRSCats
Dim sSelected
Set oRSCats = oConn.Execute("select id, txt from " & IncTopsite_GetTablePrefix() & "cat order by txt ")
If fListAll = True Then
If nSelected = "" Or CInt(nSelected)=0 Then
sSelected = "selected "
Else
sSelected = ""
End If
Response.Write "<option " & sSelected & "value=""" & "0" & """>" & "General" & "</option>"
End If
While Not oRSCats.EOF
If CInt(nSelected) = CInt(oRSCats("id").Value) Then
sSelected = "selected "
Else
sSelected = ""
End If
Response.Write "<option " & sSelected & "value=""" & oRSCats("id") & """>" & oRSCats("txt") & "</option>"
oRSCats.MoveNext
Wend
oRSCats.Close
Set oRSCats = Nothing
End Sub