<% Set con = Server.CreateObject("ADODB.Connection") con.Open MM_connCMS_STRING Set rsMenuItems = con.Execute("SELECT * FROM Menu_Setup") varWidth = CStr(rsMenuItems("MenuSize_Width") - 1) varX = CStr(rsMenuItems("MenuSize_Height") - 22) If varX > 0 Then varX = 0 %> //keywords var code="code";var url="url";var sub="sub"; //styles var color = {"border":"<%=rsMenuItems("MenuBorder_Color")%>", "shadow":"<%=rsMenuItems("MenuShadow_Color")%>", "bgON":"<%=rsMenuItems("MenuColor_Normal")%>","bgOVER":"<%=rsMenuItems("MenuColor_Hover")%>"}; var css = {"ON":"clsCMOn", "OVER":"clsCMOver"}; var STYLE = {"border":<%=rsMenuItems("MenuBorder_Width")%>, "shadow":<%=rsMenuItems("MenuShadow_Width")%>, "color":color, "css":css}; //items and formats var MENU_ITEMS2 = [ {"pos":"relative", "itemoff":[0,<%=varWidth%>], "leveloff":[<%=varX%>,0], "style":STYLE, "size":[<%=rsMenuItems("MenuSize_Height")%>,<%=rsMenuItems("MenuSize_Width")%>], "delay":<%=rsMenuItems("MenuDelay")%>, "arrow":"img/arrow.gif", "arrsize":[13,13]}, <% Set rsMenuItems = Nothing con.Close Set con = Nothing %>