Opening an textfile 2 ( create a new empty file if it doesn't exists ).

Const File_OpenForReading = 1 
Const File_OpenForWriting = 2
Const  File_OpenForAppending = 8

Function File_OpenExistingOrCreate( strPath, nAccess )
	' strPath = the path to file
	' nAccess should be one of the constants above
	On Error Resume Next
	
	Dim objFileObj
	Dim objFile
	
	Set objFileObj = Server.CreateObject("Scripting.FileSystemObject")
	Set objFile = objFileObj.OpenTextFile( strPath, nAccess, True, False )
	If Err = 0 Then
		Set File_OpenExistingOrCreate = objFile
	Else
		Set File_OpenExistingOrCreate = Nothing
	End If
End Function
The function returns a File object if successful otherwise Nothing. Use it like this:
Dim oFile
Set oFile = File_OpenExistingOrCreate( "c:\test.log", File_OpenForWriting )
If oFile Is Nothing Then
	Response.Write "Not existing"
Else
	Response.Write "Existing"
	'Here we can start writing to it
End If