<%
	'*************************************************************************
	'	ASP Scripting:
	'	Filename:			test_file_read.asp
	'	Written by:			Wilbert Madarang
	'	Date:					February 10, 2003
	'*************************************************************************
	'	Description:		
	'*************************************************************************
	'	Revision History:	
	'*************************************************************************
%>
<%
	'Constants
	'Const MARKETING_TEXT_FILENAME="c:\Workbench\charister\marketing\charister_marketing.txt"
	Const MARKETING_TEXT_FILENAME="Workbench\charister\marketing\charister_marketing.txt"
	Const ForReading = 1
	Const ForWriting = 2
	Const ForAppending = 3

	'Set File Open
	Dim fs,f,ts
	'fs - File System Object
	'f  - File Object
	'ts - Text Stream Object

	'Open Text File
	Set fs=Server.CreateObject("Scripting.FileSystemObject")
	Response.Write fs.GetAbsolutePathname( "test_file_read.asp" )

	If fs.FileExists( MARKETING_TEXT_FILENAME ) Then
		Set f=fs.GetFile( MARKETING_TEXT_FILENAME )

		'Obtain Text Strings
		Set ts=f.OpenAsTextStream(ForReading)
		strMessage = ts.ReadAll
		Response.Write strMessage
	Else
		Response.Write "File does not exist."
	End if
%>