Appending Text to File - Please Help!!!

[Tapanan Yeophantong]

What''s wrong with this code? The IIS seems to be taking an infinite amount of time to respond (and it never did). Please Help!

Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
strPath = "C:\AuditIS\System.log"
If (objFSO.FileExists (strPath)) Then
Set objOpenFile = objFSO.OpenTextFile (strPath, 8)
Else
Set objOpenFile = objFSO.CreateTextFile (strPath)
objOpenFile.WriteLine ("User / Type of Access / Source / Source ID / Time of Access")
End If

objOpenFile.WriteLine Session("Username") & " / " & "Created" & " / " & "Project" & " / " & strPrjId & " / " & Date & " " & Time
objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing

-----------------------------
This message is posted by [url]http://Asp.ForumsZone.com[/url]

[Ray at]

[url]http://www.aspfaq.com/2180[/url]

Ray at home

"Tapanan Yeophantong" <tapanan@hotmail.com> wrote:

> IIS seems to be taking an infinite amount of time to respond (and it never

did).

> Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")