may be a little sloppy but it works
<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
function readtext1()
Const fsoForReading = 1
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject"
'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\text1.txt", fsoForReading)
'Display the contents of the text file
Response.Write objTextStream.ReadAll
'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
end function
function readtext2()
Const fsoForReading = 1
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject"
'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\text2.txt", fsoForReading)
'Display the contents of the text file
Response.Write objTextStream.ReadAll
'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
end function
%>
<%= readtext1()%><br><hr><br><%= readtext2()%>
</BODY>
</HTML>
Steve Bowman
steve.bowman@ultraex.com