Much needed file functions, reading, saving, and checking for existance.

Function OpenTextFile(PathInfo)
	Dim FileObject, InStream
	On Error Resume Next
	'Response.Write PathInfo
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")	
	Set InStream = FileObject.OpenTextFile (PathInfo, 1, False, False)	
	
	OpenTextFile = Instream.ReadALL
	InStream.Close
	Set InStream = Nothing
End Function
'_______________________________________________________________________________

Sub SaveFile(TextToSave, PathInfo, FileIn)
	Dim FileObject, a
	On Error Resume Next
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
	Set a = FileObject.CreateTextFile(PathInfo & FileIn, True)
	a.WriteLine(TextToSave)
	a.Close
	Set a = Nothing
	Set FileObject = Nothing
End Sub
'_______________________________________________________________________________

Function CheckIfFileExists(PathInfo)
	On Error Resume Next
	Dim FileObject
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
	CheckIfFileExists = FileObject.FileExists(PathInfo)		
	Set FileObject = Nothing
End Function