|
|
<%
Function get_FileData(byval strfilename)
Dim filesys, strdata
' Create the File Object
Set filesys=CreateObject("Scripting.FileSystemObject")
' Debug - Display path to Menu-Bar File
' response.write(strfilename)
' Create the String Object
Set strdata=filesys.OpenTextFile(strfilename, 1, False, 0)
' Get the File Content
get_FileData = strdata.ReadAll
strdata.Close
' Remove the Objects
Set strdata = nothing
Set filesys = nothing
End Function
Dim strfiledata, rootfolder, filename
' Get the Root Folder and append Menu-Bar file name
rootfolder = Server.MapPath("\")
' Compensate Path for LocalHost or Server
if lcase(left(rootfolder, 7)) = "c:\webs" then
' Local Host Path
filename = rootfolder & "\menu_bar.inc"
else
' Server Path
filename = rootfolder & "\souheganbaseball\menu_bar.inc"
End if
' Get the Menu-Bar File Content
strfiledata = get_FileData(filename)
' Display the Menu-Bar now
response.write(strfiledata)
%>
|
|
|
