<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 if Request.ServerVariables("CONTENT_LENGTH") > 0 Then Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2 'Opens the file using the system default Const TristateTrue = -1 'Opens the file using unicode Const TristateFalse = 0 'Opens the file using ASCII Dim objFS, objTexts, strName, strAddress, strEmail, strPhone, strQuestion, strMisc, PathFileName PathFileName = Server.MapPath("./") + "/file_output.txt" Set objFS = Server.CreateObject("Scripting.FileSystemObject") set objTexts = objFS.OpenTextFile(PathFileName, ForAppending, True, TristateFalse) strName = Trim(Request.Form("input_name")) strAddress = Trim(Request.Form("input_address")) strEmail = Trim(Request.Form("input_email")) strPhone = Trim(Request.Form("input_phone")) strQuestion = Trim(Request.Form("input_question")) strMisc = Trim(Request.Form("input_misc")) objTexts.WriteLine strName objTexts.WriteLine strAddress objTexts.WriteLine strEmail objTexts.WriteLine strPhone objTexts.WriteLine strQuestion objTexts.WriteLine strMisc objTexts.Close Set objTexts = Nothing Set objFS = Nothing %>

<% End If %>