<%
Dim fso_load
Set fso_load = Server.CreateObject("Scripting.FileSystemObject")
Dim oTextStream_load
Set oTextStream_load = fso_load.OpenTextFile(Server.MapPath("load.inc"),1) ' 1: ForReading
Response.Write oTextStream_load.ReadAll()
Set oTextStream_load = Nothing
Set fso_load = Nothing
%>
<%
Dim fso1
Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
Dim oTextStream1
Set oTextStream1 = fso1.OpenTextFile(Server.MapPath("header_latest_news.html"),1) ' 1: ForReading
Response.Write oTextStream1.ReadAll()
Set oTextStream1 = Nothing
Set fso1 = Nothing
%>
Stay tuned for the
latest news...
<%
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
%>
