Contador de Visitas en asp

Luis
27 de Noviembre del 2003
Estoy desarrollando un contador con asp para una pagina web y tiene problemas aqui le envio el codigo de mi contador y me pudieran dar sugerencias sobre el codigo.

<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim bUseImages
Dim I
Dim lenRuta
Dim strNroVisita
Dim strCeros
Const nroDigitos = 10
bUseImages = CBool(Request.QueryString("images"))
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)

If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If

objCountFile.Close
Set objCountFile = Nothing
If Not Session("abierto") Then
iCount = iCount + 1
End if
Session("abierto") = True
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
strNroVisita=CStr(iCount)

If len(strNroVisita)< nroDigitos Then
For i=1 to nroDigitos - len(strNroVisita)
strCeros = StrCeros & "0"
Next
End If
strNroVisita = strCeros & strNroVisita
Application("NroVisita")=strNroVisita

If bUseImages Then
For I = 1 to Len(iCount)
Response.Write "<IMG SRC=""./images/digit_"
Response.Write Mid(iCount, I, 1)
Response.Write ".gif"" ALT="""
Response.Write Mid(iCount, I, 1)
Response.Write """ WIDTH=""20"" HEIGHT=""27"">"

objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing

'Response.Write iCount

%>