<%
Dim fso1
Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
Dim oTextStream1
Set oTextStream1 = fso1.OpenTextFile(Server.MapPath("../header_message_board.html"),1) ' 1: ForReading
Response.Write oTextStream1.ReadAll()
Set oTextStream1 = Nothing
Set fso1 = Nothing
%>
Message Board coming soon...
<%
Dim fso2
Set fso2 = Server.CreateObject("Scripting.FileSystemObject")
Dim oTextStream2
Set oTextStream2 = fso2.OpenTextFile(Server.MapPath("../OLC_footer.html"),1) ' 1: ForReading
Response.Write oTextStream2.ReadAll()
Set oTextStream2 = Nothing
Set fso2 = Nothing
%>
