Hit counter code won't write text file

[49er]

I am trying to have a hit counter for my website but the following code will not write the text file to hold the counter. I am fairly new to this so I am shooting from the hip and any help would be greatly appreciated. This was originally a frontpage web (I don't know if this could possibly have an affect or not). I have full permissions to the 'counter' directory.

Sub Application_OnStart
   Dim fsVisitors   'FileSystemObject object
   Dim fileVisitors 'TextStream object
 
    Set fsVisitors = Server.CreateObject       ("Scripting.FileSystemObject")
    Set fileVisitors = fsVisitors.OpenTextFile("C:\InetPub\[URL unfurl="true"]wwwroot\counter\IntraHome.txt")[/URL]
    
    If err.number <> 0 Then
		Set fileVisitors = fsVisitors.CreateTextFile(&quot;C:\InetPub\[URL unfurl="true"]wwwroot\counter\IntraHome.txt&quot;)[/URL]
		err.clear
	End If
    
    'Read counter value from text file
    Application(&quot;visitors&quot;) = fileVisitors.ReadLine
    fileVisitors.Close
end sub
Sub Session_OnStart
    Application.Lock
    Application(&quot;visitors&quot;) = Application(&quot;visitors&quot;) + 1
    Application.Unlock
end sub
Sub Application_OnEnd
    Dim fsVisitors   'FileSystemObject object
    Dim fileVisitors 'TextStream object
 
    Set fsVisitors = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
    Set fileVisitors = fsVisitors.CreateTextFile(&quot;C:\InetPub\[URL unfurl="true"]wwwroot\counter\IntraHome.txt&quot;,[/URL] True)
    'Write counter value to text file
    fileVisitors.Writeline(Application(&quot;visitors&quot;))
    fileVisitors.Close
End Sub

 

[foxbox]

i hope IntraHome.txt exists? If it doesn't it will produce an error like:

Server object error 'ASP 0177 : 800a0035'
Server.CreateObject Failed
/tsnl-ict/test.asp, line 8

Server.CreateObject will not create a new file.
[i copied your source in a test.asp and it runs fine.
I changed the folder, because my project is not called 'counter'.]
br
Gerard