<% bottomtextfile = "bottomtext.inc" set fs=Server.CreateObject("Scripting.FileSystemObject") strpathinfo = Request.ServerVariables("PATH_INFO") strphysicalpath = server.MapPath(strpathinfo) set path = fs.GetFile(strphysicalpath) set rootfolder = path.parentfolder lastslashpos = instrrev(rootfolder,"\") reqpath = left(rootfolder, lastslashpos) bottomtextfilepath = reqpath & bottomtextfile if fs.FileExists(bottomtextfilepath) then temp_bottom_text_str="" set fname=fs.OpenTextFile(bottomtextfilepath,1) do while fname.AtEndOfStream = false temp_bottom_text_str= temp_bottom_text_str & fname.ReadLine loop htmltextindex = temp_bottom_text_str else htmltextindex=htmltextindex end if %> <%if len(store_browsertitle)> 0 then%> <%=store_browsertitle%> <%else%> <%=htmltitleindex%> <%end if %>