<%@ Language=VBScript %> <% option explicit %> Save It

Saveit

<% dim fso, myfile, fname set fso = createobject("Scripting.FileSystemObject") fname = server.mappath("data.txt") response.write ("

file..." & fname) set myfile = fso.opentextfile(fname,8,true) myfile.writeline "## " & date() myfile.writeline request.form("txtname") myfile.writeline request.form("txtphone") myfile.writeline request.form("txtemail") myfile.close %>