asp tutorials, asp.net tutorials, sample code, and Microsoft news from 15Seconds
Data Access  |   Troubleshooting  |   Security  |   Performance  |   ADSI  |   Upload  |   Email  |   Control Building  |   Component Building  |   Forms  |   XML  |   Web Services  |   ASP.NET  |   .NET Features  |   .NET 2.0  |   App Development  |   App Architecture  |   IIS  |   Wireless
 
Pioneering Active Server
 Power Search








Active News
15 Seconds Weekly Newsletter
• Complete Coverage
• Site Updates
• Upcoming Features

More Free Newsletters
Reference
News
Articles
Archive
Writers
Code Samples
Components
Tools
FAQ
Feedback
Books
Links
DL Archives
Community
Messageboard
List Servers
Mailing List
WebHosts
Consultants
Tech Jobs
15 Seconds
Home
Site Map
Press
Legal
Privacy Policy
internet.commerce














internet.com
IT
Developer
Internet News
Small Business
Personal Technology
International

Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers

HardwareCentral
Compare products, prices, and stores at Hardware Central!

Simple ASP Chat
By Sanjay Shetty
Rating: 3.1 out of 5
Rate this article


  • email this article to a colleague
  • suggest an article

    Creating the Main Form

    To start with create a simple form where the user can type some text. Whatever the client types in this form has to be appended to a text file, this text file will then be displayed to the client. The actual writing to the text file is done with an Active Server Script.

     	<FORM method="post" action="chat.asp">
    <Input type=text value="" size="35" name="txtbox">
    <Input type=submit value="GO">

    Refreshing the Page

    By including the meta tag for refreshing the page will be refreshed every 5 seconds. This concept is called client pull. This is because it is the clients responsiblity to read the meta tag and call for a refresh every five seconds.

    <HEAD>
    <META http-equiv="refresh" content="5">
    </HEAD>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    The Active Server Page

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    , The form for submitting the data and the page for reading the text are on two different pages. In order to combine them we put both pages with in a frame. This allows the user to easy type and read the responses without being interrupted., Since the above form is in a file called chat.asp and the form posts to chat.asp, the form post to itself. To handle the output of the post you need some Active Server Code.

    <%

    textstr=Request.Form("txtbox")
    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set OutStream= FileObject.OpenTextFile (TestFile, 8, TRUE)
    ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
    OutStream.Write ipaddr
    OutStream.WriteLine textstr & "<BR>"
    Set OutStream = Nothing
    %>

    Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object.

    Active Server Page

    Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand http://15seconds.com/files/012497.zip (1064 bytes) into the virtual directory just created.
    3. Create a blank text file in that directory called textwork.txt

    If you want to change the name of virtual root, you must change the name in the Active Server Page code since it uses the virtual root name to find the text file's path.

    Mainchat.asp could be mainchat.htm, and located in a directory with read access but the installation is easier with all the files in the same directory.,

    Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
    TestFile = Server.MapPath ("/asp") & "\textwork.txt"
    Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
    Response.Write Instream.ReadALL & "&<BR&>"
    Set Instream=Nothing

    Here a Fileobject is created in the READ mode by specifying the parameter 1 to the OpenTextFile() method. In the following statement two things are done in one stroke. The READALL() function is used to read the entire contents of the file and then the Response.Write function is used to output the entire file to the client. The final step it to close the object. , Installation is fairly simple, just follow these steps:

    1. Create a virtual root called "asp", make it giving it Execute Access
    2. Download and expand