submit file for nanoween.asp

submit.asp

<%
name= Request.ServerVariables("auth_user")
n2=split(name,"\")
name=n2(1)

story = request.form("text")
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.openTextFile("d:\intranet\test\stories.txt",8,true)
f.write (name & ":--> " & story & chr(13) )

response.write ("Entered:<p>" & name & ":--> " & story)
f.close
set f=nothing
set fs=nothing

%>