ASP error, help!

[dethfire]

Microsoft VBScript runtime error '800a0046'

Permission denied

/jen/next.asp, line 19



heres my code:

<%
dim comments
dim pic_num

comments = request("pic_comments")
pic_num = request("picture_number")

const forappending = 8
dim objopenfile, objfso, strpath
strpath= server.mappath("picture" & pic_num & ".txt")
set objfso = server.createobject("scripting.filesystemobject")

if objfso.fileexists(strpath) then
set objopenfile = objfso.opentextfile(strpath, forappending) 'LINE 19 !!
objopenfile.write("'" & pic_comments & "'")
objopenfile.writeblanklines(1)
objopenfile.close
set objopenfile = nothing

else
response.write("<p><b>error: did not write to file</b><p>")

end if

set objfso = nothing

%>

[Jeremy W.]

Permission denied sounds like the FSO you're trying to do. What directory permissions are there? If it isn't full or execute or whatnot you may need to change it