| <%'create and set up menu
Dim osm
Set osm = Server.CreateObject("obout_SlideMenu3_Pro.Menu")
osm.Id = "pro5"
osm.StyleFolder = "/slidemenu/styles/DFSAS"
osm.Height = -1
osm.speed = 200
osm.AutoQueryString = false
'osm.SelectedID = "P5"
osm.KeepExpanded = true
'create connection and recordset
Dim Con, Rs
Set Con = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Con.Open "Provider=sqloledb;Data Source=DFSSQLSINTP01;Initial Catalog=WebDataViews;User ID=appavail;Password=webapps;"
Rs.Open "SELECT * FROM vw_Main_Links", Con
'build menu
Dim lastParent
Do While Not Rs.EOF
If Rs("ParentID") = -1 Then
osm.AddParent "P" & Rs("ItemID"), Rs("Title"), Rs("HyperlinkText")
'lastParent = Rs("ParentID")
rs.movenext
Else
osm.AddChild "C" & Rs("ItemID") , Rs("Title"), Rs("HyperlinkText")'Rs("Title") , Rs("HyperlinkText"),, Rs("Title"),"_top"
Rs.MoveNext
End If
Loop
Rs.Close
Con.Close
Set Rs = Nothing
Set Con = Nothing
'Display the SlideMenu
Response.Write(osm.Html)
%> |
|
IN THE NEWS
|
|
