Problem in my hit counter

Scrowler · #1 (**permalink**) 07-17-03, 20:37

Code:

<%
fp = Server.MapPath("aspcount.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if 
a.Close
Response.Write ct
%>

I get the error:

Quote:

Microsoft VBScript runtime error '800a0046'

Permission denied

/scrowler/default.asp, line 100

Line 100 happens to be:

Code:

Set a = fs.CreateTextFile(fp, True)

Do I have to CHMOD aspcount.txt or something?

Memnoch1207 · #2 (**permalink**) 07-23-03, 01:26

set the permissions for the "Everyone" account on the folder where the aspcount.txt file is stored to "Full Control".

Scrowler · #3 (**permalink**) 07-24-03, 04:16

Quote:

Originally posted by Scrowler

Code:

<%
fp = Server.MapPath("aspcount.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if 
a.Close
Response.Write ct
%>

I get the error:

Line 100 happens to be:

Code:

Set a = fs.CreateTextFile(fp, True)

Do I have to CHMOD aspcount.txt or something?

Thanks
Your the only person on this forum who can help me
yet theres 3 or more on codingforums.com and oxyscripts.com/forums who help me ASAP. This forum sucks.

Internet Services

Web Development

Digital Marketing

Consumer Tech