<%
' Const ForWriting = 8 'Declara la constante o utiliza el valor directo
text= Request.Form("text")
set fs = createobject("scripting.filesystemobject")
filename=server.mappath("/asp/writefile.txt")
set wfile = fs.opentextfile(filename,1,8) 'ForWriting = 8
wfile.write text '<---- Escribir en el archivo
wfile.close
set wfile=nothing
set fs=nothing
%>