Set fs = Server.CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(server.MapPath("\test") & "\test.txt") then
Set a = fs.CreateTextFile(server.MapPath("\test") & "\test.txt",false)
else
set a = fs.OpenTextFile(server.MapPath("\test") & "\test.txt",ForAppending,true)
end if