Fejl i simpel gæstetæller: "Permission denied"

Hej Eksperter...

Hvorfor får jeg ved denne kode:
___________________________________________________

<%
' Variable Declaration
Dim objFSO, objCountFile  ' object vars for FSO and File
Dim strCountFileName      ' filename of count text file
Dim iCount                ' count variable
Dim I                    ' standard looping var

strCountFileName = Server.MapPath("/counter.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 0
    iCount = 0
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


' to display the results

    Response.Write iCount
%>
___________________________________________________

følgende at vide:
___________________________________________________

Microsoft VBScript runtime error '800a0046'

Permission denied

/includes/menu_header.htm, line 64
___________________________________________________

Vh.
  W13