<% const ForReading = 1, ForWriting = 2, ForAppending = 8 'declare variable Dim objFS, objFile, userinformation, textstream Dim userdata, LName, FName, Initial, Organization, Date, Address, City, State, Zipcode, Data 'read citations into textstream Set objFS = Server.CreateObject ("Scripting.FileSystemObject") set objFile = objFS.GetFile(server.mappath("userinfo.txt")) set textstream = objFile.OpenAsTextStream(ForReading, -2) userinformation = textstream.ReadAll textstream.close 'read data entered into form userdata=request.form("datacollectionform") LName=request.form("LastName") FName=request.form("FirstName") Initial=request.form("Initial") Organization=request.form("Organization") 'Date=request.form("Date") Address=request.form("Address") City=request.form("City") State=request.form("State") Zipcode=request.form("Zipcode") Data=request.form("datadownload") 'write out new entry set objFile = objFS.CreateTextFile(server.mappath("userinfo.txt"), true) objFile.WriteLine("

---

") 'print name if entered if Not(LName = "") then objFile.WriteLine (LName & "
") if Not(FName = "") then objFile.WriteLine (FName & "
") if Not(Initial = "") then objFile.WriteLine (Initial & "
") if Not(Organization = "") then objFile.WriteLine (Organization & "
") if Not(Date = "") then objFile.WriteLine (Date & "
") if Not(Address = "") then objFile.WriteLine (Address & "
") if Not(City = "") then objFile.WriteLine (City & "
") if Not(State = "") then objFile.WriteLine (State & "
") if Not(Zipcode = "") then objFile.WriteLine (Zipcode & "
") if Not(Data = "") then objFile.WriteLine (Data & "
") if Not(userdata = "") then objFile.WriteLine (userdata & "
") 'write out former entries objFile.WriteLine(userinformation) 'close file objFile.close response.redirect ("userinformation.asp") %>