<% 'Create and instantiate SlideMenu object dim oSM set oSM = server.CreateObject("obout_SlideMenu.Menu") 'Set various properties oSM.Width = 90 oSM.SubHeight = 70 oSM.Speed_Step = 15 'Set images oSM.Image_Parent = "smi/arr_right.gif" oSM.Image_ParentOver = "smi/arr_right.gif" oSM.Image_ParentSelected = "smi/arr_down.gif" oSM.Image_Child = "smi/bullet.gif" oSM.Image_ChildOver = "smi/bullet.gif" oSM.Image_ChildSelected = "smi/bullet.gif" 'Set styles oSM.Style_Border = "" oSM.Style_Parent = "font:bold 10px verdana; color:navy" oSM.Style_ParentOver = "font:bold 10px verdana; color:navy; " & _ "cursor:hand; background-color:gold" oSM.Style_ParentSelected = "font:bold 10px verdana; " & _ "color:crimson; cursor:hand" oSM.Style_Child = "text-indent:15; font:10px verdana; color:navy; " & _ "cursor:hand; text-decoration:underline" oSM.Style_ChildOver = "text-indent:15; font:10px verdana; color:#306090;" & _ "cursor:hand; text-decoration:underline; background-color:gold" oSM.Style_ChildSelected = "text-indent:15; font:10px verdana; " & _ "color:#003060; background-color:#dfefff" 'What number item to select. 'Menu automatically adds "sm=" to the query string. oSM.SelectedIndex = 2 'Add parents and children oSM.AddParent "Parent 1" oSM.AddChild " Child 1", "e_blueandyellow.asp" oSM.AddChild " Child 2", "e_blueandyellow.asp" oSM.AddChild " Child 3", "e_blueandyellow.asp" oSM.AddChild " Child 4", "e_blueandyellow.asp" oSM.AddParent "Parent 2" oSM.AddChild " Child 1", "e_blueandyellow.asp" oSM.AddChild " Child 2", "e_blueandyellow.asp" oSM.AddChild " Child 3", "e_blueandyellow.asp" oSM.AddChild " Child 4", "e_blueandyellow.asp" oSM.AddParent "Parent 3" oSM.AddChild " Child 1", "e_blueandyellow.asp" oSM.AddChild " Child 2", "e_blueandyellow.asp" oSM.AddChild " Child 3", "e_blueandyellow.asp" oSM.AddChild " Child 4", "e_blueandyellow.asp" 'Display the SlideMenu Response.Write(oSM.HTML) %>
fffftd>