<%@ 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 - Site Map: Lebanon Tourism, Lebanon Directory, Lebanon Maps, Beirut Lebanon
Site Map