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

 

[Ray at]

http://www.aspfaq.com/2180

Ray at home