<%@ Language=VBScript %>
<%strPath = Application("ApplicationPath")%>
<%dim fso
dim f
strPath = Application("ApplicationPath")
BanFile = server.MapPath("banners/Menu.ban")
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(BanFile) then
set f = fso.OpenTextFile(BanFile,1)
while Not f.AtEndOfStream
strBanners = strBanners & f.ReadLine
strBanners = strBanners & "
"
wend
end if
%>
Lebanon Atlas - Sports & Recreation: Lebanon Sports, Lebanon Recreation, Resorts Map
|
 Sports & Recreation |
|
|
|
|
|
|
|
|
| |
|
| |
|
|
