Error 500.100

Hello
Can you give us some code to verify the content? Or another error of this
code?
Thanks!

FF
www.francofigun.com.ar
Yahoo MSN:
ICQ: 314408886

"Ludico.Net - (ex: Malavon Despana)"
wrote in message news:ufE2d.267553$

hi all buddy, I got a strange problem with an asp script,
it give me that erro "authorization deny" when I try to
open a file for writing using FSO component. The strange
is that the error is raised just 1st time I open the page, if
I refresh with F5 the script woks fine and page is displayed
correctly and file opened and written :( so it is not a matter
about permission cause I access as admin and tests was
made in local. Can someone help me out? If of some use I
can post the full script owever it is normal file open for
writing with FSO, nothing more. 10q u all ^_^

Stefano,


CineQuest - Download & Forum:
http://www.ludico.net/cquest.asp
http://it.groups.yahoo.com/group/CineQuest

Can you give us some code to verify the content?

sure however I've to explain its scope of use, well I needed
to built up a quick counter and I've not so much time to set
up a DB with connections, query and the like, so I figured it
would be quickly and it is but with me don't work :( the code
is a function called when some contents are displayed, I built
up a function cause I think I coult use it again, more u can see
2 commented line for debugging the script; error is always raised
on the line where try to open for writing, I repeat the error is
raised 1st time I open the page only, as I pres F5 the script
works, and that is the hard part cause there is not an error :(

<%
function Counter(strPartner)
dim strFileName
dim intHits

strFileName = Server.MapPath( "./Counter/" & strPartner & ".txt" )
'response.write strFileName

'exit function
Set FileObject = CreateObject("Scripting.FileSystemObject")

Set InStream = FileObject.OpenTextFile(strFileName, 1, true)
If not InStream.atEndOfStream Then
intHits = CInt(Instream.ReadLine) + 1
else
intHits = 1
end if

Instream.Close
set instream = Nothing

'next line raise the error
Set OutStream = FileObject.OpenTextFile(strFileName, 2, true)
Outstream.WriteLine intHits
Outstream.Close

set OutStream= Nothing
set FileObject = Nothing
end function
%>