oh sorry, forgot to tell you that FSO needs the full phusical path on the server. try this code..
<%
Dim strfilename
Dim Story
filename = Request.Form("fieldname")
Story = Request.Form("story")
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.CreateTextFile(Server.MapPath("stories/" & strfilename), True)
wfile.Write(Story)
wfile.close
Set wfile=nothing
Set fs=nothing
response.write("Text created")
%>
If you havn't specified an extension for the file in the filename textbox add & ".<extension>" after strFilename:
Set wfile = fs.CreateTextFile(Server.MapPath("stories/" & strfilename & ".txt"), True)
Topic Options
Post Options
Thanks(0)
