cerco un contatore di visite

[vodafone]

Buongiorno!
Sto cercando il codice asp per fare un contatore progressivo testuale da collocare nella mia Home Page...
Ringrazio anticipaamente

[Enrique_Rojas]

<%
Dim CounterFile

CounterFile = "counter.mdb"

Dim CookieSwitch

CookieSwitch = "on"

Dim CounterDataConn
Dim CounterSQL
Dim CounterRs
Dim CounterHits

Id = Clng(CounterId)

Set CounterDataConn = Server.CreateObject("ADODB.Connection")
CounterDataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(CounterFile)
CounterSQL = "SELECT * FROM Counter WHERE Id=" & Id
Set CounterRs = CounterDataConn.Execute(CounterSQL)
If CounterRs.EOF then
 CounterSQL = "INSERT INTO Counter(Id,Count) Values(" & Id & ",1)"
 Set CounterRs = CounterDataConn.Execute(CounterSQL)
 CounterHits = 1
Else
 If CounterAction = "GetStatus" then
  CounterHits = Clng(CounterRs("Count"))
 Else
  If NOT Request.Cookies("CounterHits") = "" and Id = 1 then
   CounterHits = Request.Cookies("CounterHits")
  Else
   CounterHits = Clng(CounterRs("Count"))
   CounterHits = CounterHits + 1
   CounterSQL = "UPDATE counter SET count = " & CounterHits & " where id = " & id
   CounterRs = CounterDataConn.Execute(CounterSQl)
   Response.Cookies("CounterHits") = CounterHits
  End If
 End If
End If

Set CounterRs = nothing
CounterDataConn.Close
Set CounterDataConn = nothing%>

questo lo metti nella pagina dove vuoi visualizzare il contatore; che richiamerai con

<%Response.Write CounterHits%>

creati un dbase chiamato 'counter.mdb' con una tabella 'counter' i campi 'id e 'count'.
tanto per cominciare, poi se vuoi le statistiche cerca nel forum statistiche weppos

[vodafone]

mmm :master:

a me servirebbe una cosa semplicina scritta in VB

[Enrique_Rojas]

Originariamente inviato da vodafone
mmm :master:

a me servirebbe una cosa semplicina scritta in VB

ma che c'è di complicato???

[Sclerato]

piu' semplice di cosi' mi sa' che non si puo' mica....
grazie comunque, lo cercavo proprio... utilissimo !!

[marco1970]

ciao bell'esempio ma è possibile incrementarlo con una routine che conti gli accessi delle varie pagine? ( ovviamente una sola volta)
Grazie Marco