%@ Language=VBScript %> <% Option Explicit %> <% Dim LogoMain, FSYS, Logo, strMenu, Menu, strMC, MenuCat, strRI, RI, MCols, ID, foldGall, newFolderName, ImgFolder, ImgFiles, file strMenu= "SELECT * FROM Menu WHERE ID = "& Request.QueryString("ID") &"" Set Menu = CreateObject("ADODB.RecordSet") Menu.Open strMenu, objConn strMC = "SELECT * FROM MenuCats Order By OrderNo" Set MenuCat = CreateObject("ADODB.RecordSet") MenuCat.Open strMC, objConn strRI = "SELECT * FROM Restaurants" Set RI = CreateObject("ADODB.RecordSet") RI.Open strRI, objConn Set FSYS = Server.CreateObject("Scripting.FileSystemObject") If Layout("LogoSub") > "" Then LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoSub") If FSYS.FileExists(LogoMain) Then Logo = Layout("LogoSub") Else LogoMain = Server.MapPath ("logo") & "\" & Layout("LogoMain") If FSYS.FileExists(LogoMain) Then Logo = Layout("LogoMain") End If %>