<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") MsgFile = Server.MapPath ("../dynamic_www/template.html") On Error Resume Next Set InStream= FileObject.OpenTextFile (MSGFile, 1, False, False) Response.Write Instream.ReadALL & "
" Set Instream=Nothing %>
<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") MsgFile = Server.MapPath ("gall_01_2_1.html") On Error Resume Next Set InStream= FileObject.OpenTextFile (MSGFile, 1, False, False) Response.Write Instream.ReadALL & "
" Set Instream=Nothing %>
<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") MsgFile = Server.MapPath ("../dynamic_www/bottom_link.html") On Error Resume Next Set InStream= FileObject.OpenTextFile (MSGFile, 1, False, False) Response.Write Instream.ReadALL & "
" Set Instream=Nothing %>