Estoy haciendo un contador de visitas utilizando un fichero de texto pero hay algo que falla.Se me queda el IIS colgado.
Ahí va el código:
<%
' Creamos el objeto
set fso = createobject("scripting.filesystemobject")
' Seteamos el archivo txt
set act = fso.opentextfile(server.mappath("asp_count.txt"))
' Leemos el valor del archivo
Application.Lock
Application("Total")= clng(act.readline)
Application.Unlock
' Cerramos el objeto
act.close
If session("usuario")="" then
Application.Lock
Application("Total") = Application("Total") + 1
Application.Unlock
end if
'Comenzamos indicandole el numero de digitos y 'poniendo ceros delante
Application.Lock
Len1 = 6
Len2 = Len(Application("Total"))
contador=Application("Total")
For i = 1 to Len1 - Len2
contador = "0" & contador
Next
'Pintamos el resultado
For i = 1 to Len1
digito = Mid(contador,i,1)
%>
<img src="imagenes/<%=digito%>.gif">
<%Next
Application.Unlock
' Creamos un nuevo archivo de texto
Set act = fso.CreateTextFile(server.mappath("asp_count.txt") , true)
' Escribimos el nuevo valor del contador
Application.Lock
act.WriteLine(Application("Total"))
Application.Unlock
' Cerramos el objeto
act.Close
%>
El error me empieza a dar al crear el objeto act.
¿Que es lo que está mal?¿Me estoy volviendo Loco?
