her seferinde opentextfile yerine, createtextfile ile oluşturup, varsa bile yeniden oluştur komutunu verirseniz sanırım istediğiniz olacaktır.
Kod:
filename = server.mappath(".") & "\yazi.txt"
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(filename, 2)
objFile.writeLine(request.form("yazi"))
objFile.Close
set objFile = Nothing
set objFSO = Nothing