Ayuda con un contador de visitas

Murallitz · #1 (**permalink**) 29/10/2004, 13:27

Holas una pregutna, este es mi contador de visitas, y op rmas que refresco el fcount nunca tiene un valor. No funciona

que esta mal?
Gracias
<html>
<body>
<p>
Esya pagina fue vista <%=fcount%> veces.
</p>
</body>
</html>

<%
Set FS=Server.CreateObject("Scripting.FileSystemObject ")
Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"))
fcount=RS.ReadLine
fcount= fcount + 1
RS.Close

fcount=fcount+1

'This code is disabled due to the write access security on our server:
'Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
'RS.Write fcount
'RS.Close

Set RS=Nothing
Set FS=Nothing

%>

sjam7 · #2 (**permalink**) 29/10/2004, 21:18

Intenta usando este contador, que en escencia es lo mismo:

activo = session("activo")
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("asp_count.txt"))
counter = clng(act.readline)
if session("activo") <> "si" then
counter = counter + 1
end if
act.close
Set act = fso.CreateTextFile(server.mappath("asp_count.txt") , true)
act.WriteLine(counter)
act.Close
Response.Write "VISITANTE: " & counter

session("activo") = "si"

'Sub LimpiaObj(objeto)
On Error Resume Next

If isObject(objeto) Then
If (objeto.State=1) Then 'comprueba si esta abierto
objeto.Close
End If

Set objeto = Nothing
End If
'End Sub

Solo que este genera una variable de session con la que, si esta activa te genera un hit en el contador, esto es para que un mismo visitante no te este haciendo hits mientras navega.

En cuanto al problema, hasta donde creo es que no llamabas a la funcion qe tenia los datos