Contatore visite

[E|ena]

ho letto varie guide ma essendo imbranata in asp non ne vengo a capo
mi sevre un semplicissimo contatore

sei il visitatore numero: 131414

tipo questo
nulla di piu

mi date una mano?

[ubbicom]

counter.asp:

<%
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

Response.Write CounterHits
%>

e nella stessa pagina richiami con:

<%Response.Write CounterHits%>

e un dbase strutturato così:
Id
Count (numerico)

ciao

[E|ena]

non ho mai nemmeno fatto un database
mi manderesti un esempio del tutto via mail?

[ubbicom]

Originariamente inviato da E|ena
non ho mai nemmeno fatto un database
mi manderesti un esempio del tutto via mail?

mandami la tua email

[E|ena]

mandata in pvt

[E|ena]

arrivato il pvt?

[ubbicom]

già spedito.

[E|ena]

non arriva strano

[E|ena]

è arrivata ora
ma senza allegati

[ubbicom]

guarda adesso