Hjælp til counter søges.

Jeg er total grøn til at programmere, så jeg har fundet dette script, men jeg får en fejlmeddelelse..

inc_counter.asp:
*******************************
<%
strDate = Day(Date)
        strOldDate = Request.Cookies("StarfleetRecords")("Dato")
        Set fso = CreateObject("Scripting.FileSystemObject")
        filespec = Server.Mappath("counter.txt")
        Set f = fso.OpenTextFile(filespec,1)
            if cint(Request.Cookies("DinCounter")("Dato")) = strDate then
                Response.Write f.Readline & "<br>"
                f.Close
            else
        Set fso = CreateObject("Scripting.FileSystemObject")
        filespec = Server.Mappath("counter.txt")
        Set f = fso.OpenTextFile(filespec,1)
            strOpdaterCounter = f.Readline + 1
            Response.Write strOpdaterCounter &  "<br>"
        Set fso = CreateObject("Scripting.FileSystemObject")
        filespec = Server.Mappath("counter.txt")
        Set f = fso.OpenTextFile(filespec,2)
            f.WriteLine strOpdaterCounter
        f.close
    Response.Cookies("DinCounter")("Dato") = strDate
    Response.Cookies("DinCounter").Expires = Date+365
end if
%>
*************************************

Fejlmeddelelse:
*************************************
Microsoft VBScript runtime error '800a0046'

Permission denied

/inc_counter.asp, line 18
*************************************
Er der nogen der kan fortælle mig hvad der er galt??
Toke