<%
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 information 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
%>
This is the information you reported.
<% response.write(userinformation) %>