Error in update please help

[alawra]

Hi I have this problem.
I added counter to my home page to count visits it was working normally but when i get more traffic i face some error there assume i have the visit counter shows 700 visit when the error appear it changes the visit counter to 0 and start from there please could any body help m with this.
here is the code i am using
to read old value

accessdb = server.mappath("any.mdb")
strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strconn = strconn & accessDB & ";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strconn
strsql = "SELECT * FROM table where id=" & id
Set rs = conn.execute(strsql)
hits=rs("hits")
rs.close
set rs = nothing
conn.close
Set conn = nothing
hits=hits+1

update with new value

accessdb = server.mappath("any.mdb") 
strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" 
strconn = strconn & accessDB & ";" 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.open strconn 
conn.execute("update table set [hits]=" & hits & " where [id]=" & id)
 conn.close 
Set conn = nothing

Thanks

[techwizz]

you are using an access database?

Make sure you reset objects.

'Reset server objects
rsWeb_Data.Close
Set rsWeb_Data = Nothing
Set adoCon = Nothing

also make sure that that under tools.. options.... advanced tab that

default level locking is set to no lock
open database using level locking is unchecked.
default open mode is shared.

[techwizz]

here is some .asp code that keeps the hits in memory

<div align="left">
<script language="JavaScript">
 
Now = new Date();
localtime = Now.toString();
Hours = Now.getHours();
if (Hours < 12) {
    document.write("Good Morning...");
} else {
    if (Hours >= 12 && Hours < 17)  {
            document.write("Good Afternoon...");
    } else {
        if (Hours >= 17) {
            document.write("Good Evening...");
            } else {
            document.write("Good Day...");
        }
    }
}
</script><br>
 
<%
' Declare our vaiables
Dim objFSO, objCountFile  ' object vars for FSO and File
Dim strCountFileName      ' filename of count text file
Dim iCount                ' count variable
Dim bUseImages            ' boolean whether or not to use images
Dim I                     ' standard looping var
 
 
' Determine whether we use images or plain text
' You could just set this to True or False instead
bUseImages = CBool(Request.QueryString("images"))
 
' Compute our count file's filename
' This is based on the file from which you call count.asp
' It basically takes that name and appends a .cnt so I don't
' accidently overwrite any files.  If for some reason you have
' a file named script_name.asp.cnt then change this or watch out!
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
 
 
' Create FileSystemObject to deal with file access
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
 
' Read the current count from the file
If Not objCountFile.AtEndOfStream Then
    ' Set value to contents of the file
    iCount = CLng(objCountFile.ReadAll)
Else
    ' If no file exists or it's empty start at old number
    iCount = 450000
End If
 
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
 
 
' Increment the count
iCount = iCount + 1
 
 
' Overwrite existing file and get a text stream to new one
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
 
' Write updated count
objCountFile.Write iCount
 
' Close the file and destroy the object
objCountFile.Close
Set objCountFile = Nothing
 
 
' Destroy the FSO object
Set objFSO = Nothing
 
 
' We're all done with the hard part
' All that's left is to display the results
If bUseImages Then
    ' Loop through the count integer showing each digit
    ' You can grab the images one at a time or get the zip
    ' [url]http://www.asp101.com/samples/download/counter_imgs.zip[/url]
    For I = 1 to Len(iCount)
        ' Output the IMG tag using the right digit
        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"" />"
    Next 'I
Else
    ' No image wanted just show the variable
%>
 
  You are visitor number
  <%
Response.Write ("<b>")
Response.Write iCount
End If
%>
  </b>
 
</div>

[alawra]

techwiz thank you for replay.
but i already close the database and rest it.
could you please clear it for me?
and thanks

[alawra]

any help please?