Fejl i counter script

Jeg bruger dette counter scripts på min webside. Det fungere også fint men hvis jeg flytter filerne til en anden mappe får jeg fejl i scriptet.

Det ser således:

<%
Dim Connection, RS, Page, Counts
Page=Request.ServerVariables("SCRIPT_NAME")
Set Connection=Server.Createobject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../Database/webvizion2004.mdb")
If Len(Session(Page)) = 0 Then
    Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'")
    If RS.EOF = TRUE Then
        Connection.Execute("INSERT INTO counter (fldPage, fldCount) VALUES ('"&Page&"', 0)")
    End If
    Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'")
    Counts=RS("fldCount")+1
    Set RS =  Connection.Execute("UPDATE counter SET fldCount = " & Counts & " WHERE fldPage = '" & Page & "'")
    Session(Page) = "something"
    Connection.Close
Else
    Set RS = Connection.Execute("SELECT * FROM counter WHERE fldPage = '" & Page & "'")   
    Counts=RS("fldCount")
End If

%>

Jeg får denne fejl meddelelse:

Fejltype:
(0x80020009)
Undtagelse opstod.
/webvizion/Projekter/WebVizion2004/Websiden/Includes/counter.asp, line 12