dynamic asp:menu rendering

[=?Utf-8?B?dHV0b3I=?=]

hi folks

i want complete control of my menuing in ASP (no site maps, no hardwired XML
files, etc.) This is all governed by SiteID, ApplicationID, UserID, etc.

i thought i was close with this, but nothing is rending in the control/on
the page (even though I see my 12 items in the databindings are there
menuName.databi ndings.item(0) - (11)).

(Personally, I don't understand why this is so difficult) Here's my code:

Public Sub BuildMenus(ByVa l connString As String, ByVal menuName As
System.Web.UI.W ebControls.Menu , ByVal storedProcedure As String, ByVal
idFieldName As String, ByVal fieldName As String, ByVal sortOrder As String, _
ByVal orderBy As String, ByVal whereClause As String, ByVal MyPage
As System.Web.UI.P age, ByVal siteId As Integer, ByVal applicationId As
String, ByVal userId As Integer)

Dim StoreErrorMessa ge As New SystemTools.Sto reErrorMessages (MyPage)
Dim OpenConnection As New IO.OpenConnecti on

Dim dr As SqlDataReader = Nothing
Dim sqlConn As SqlConnection =
OpenConnection. openConnection( connString, MyPage)

If Not sqlConn Is Nothing Then

Dim sqlCmd As SqlCommand = New
SqlClient.SqlCo mmand(storedPro cedure, sqlConn)

sqlCmd.CommandT ype = CommandType.Sto redProcedure
sqlCmd.Paramete rs.AddWithValue ("@SiteID", siteId)
sqlCmd.Paramete rs.AddWithValue ("@UserID", userId)
sqlCmd.Paramete rs.AddWithValue ("@SortOrder ", sortOrder)
sqlCmd.Paramete rs.AddWithValue ("@OrderBy", orderBy)
sqlCmd.Paramete rs.AddWithValue ("@WhereClause" , whereClause)

Try
dr = sqlCmd.ExecuteR eader(CommandBe havior.CloseCon nection)
Catch ex As Exception
DispMessage("De termine Menus Error - " & ex.Message, MyPage)
StoreErrorMessa ge.StoreSystemE rrorMessage(con nString,
applicationId, "", "BuildMenus ", "GenericRoutine s.vb", ex.Message, "")
End Try
End If

If Not dr Is Nothing Then
' [rak] Dim MenuDoc As XmlDocument
While dr.Read

menuName.DataBi ndings.Add(Buil dSimpleMenuBind ing(dr.Item("So rtID"),
dr.Item("HLevel "), dr.Item("MenuNa me"), Convert.ToStrin g(dr.Item("Url" ))))
'[rak] BindMenuToXmlDo cument(MenuDoc, menuName, "menu/item")
End While

menuName.databi nd()
dr.Close()
End If
End Sub
Public Function BuildSimpleMenu Binding(ByVal XmlElementName As String,
ByVal Depth As Integer, ByVal TextField As String, ByVal NavigationUrlFi eld
As String) As MenuItemBinding

Dim MenuBinding As MenuItemBinding = New MenuItemBinding
MenuBinding.Dat aMember = XmlElementName
MenuBinding.Tex tField = TextField
MenuBinding.Nav igateUrlField = NavigationUrlFi eld
MenuBinding.Dep th = Depth

Return MenuBinding
End Function
Public Sub BindMenuToXmlDo cument(ByVal MenuDocument As XmlDocument,
ByRef MenuControl As System.Web.UI.W ebControls.Menu , ByVal XPath As String)

Dim MenuDataSource As XmlDataSource = New XmlDataSource()
MenuDataSource. Data = MenuDocument.Ou terXml
MenuDataSource. EnableCaching = False
MenuDataSource. XPath = XPath
MenuControl.Dat aSource = MenuDataSource
MenuControl.Dat aBind()
End Sub

thanks
rob

[Cowboy \(Gregory A. Beamer\)]

Consider trying a custom sitemap provider that looks at the database instead
of a site map file. You can then control things however you desire.

As for the particular issues, I would set some breakpoints in the method
that binds and make sure you are actually grabbing the XML document. If you
are, then you have to dig deeper. If you are using Visual Studio 2008, you
can actually debug into the .NET assemblies and see what is going on there.
View source may also give you some hints.

--
Gregory A. Beamer
MVP, MCP: +I, SE, SD, DBA

Subscribe to my blog
http://gregorybeamer.spaces.live.com/lists/feed.rss

or just read it:
http://gregorybeamer.spaces.live.com/

*************** *************** *************** ****
| Think outside the box!
|
*************** *************** *************** ****
"tutor" <tu***@discussi ons.microsoft.c omwrote in message
news:33******** *************** ***********@mic rosoft.com...

hi folks

i want complete control of my menuing in ASP (no site maps, no hardwired
XML
files, etc.) This is all governed by SiteID, ApplicationID, UserID, etc.

i thought i was close with this, but nothing is rending in the control/on
the page (even though I see my 12 items in the databindings are there
menuName.databi ndings.item(0) - (11)).

(Personally, I don't understand why this is so difficult) Here's my code:

Public Sub BuildMenus(ByVa l connString As String, ByVal menuName As
System.Web.UI.W ebControls.Menu , ByVal storedProcedure As String, ByVal
idFieldName As String, ByVal fieldName As String, ByVal sortOrder As
String, _
ByVal orderBy As String, ByVal whereClause As String, ByVal MyPage
As System.Web.UI.P age, ByVal siteId As Integer, ByVal applicationId As
String, ByVal userId As Integer)

Dim StoreErrorMessa ge As New SystemTools.Sto reErrorMessages (MyPage)
Dim OpenConnection As New IO.OpenConnecti on

Dim dr As SqlDataReader = Nothing
Dim sqlConn As SqlConnection =
OpenConnection. openConnection( connString, MyPage)

If Not sqlConn Is Nothing Then

Dim sqlCmd As SqlCommand = New
SqlClient.SqlCo mmand(storedPro cedure, sqlConn)

sqlCmd.CommandT ype = CommandType.Sto redProcedure
sqlCmd.Paramete rs.AddWithValue ("@SiteID", siteId)
sqlCmd.Paramete rs.AddWithValue ("@UserID", userId)
sqlCmd.Paramete rs.AddWithValue ("@SortOrder ", sortOrder)
sqlCmd.Paramete rs.AddWithValue ("@OrderBy", orderBy)
sqlCmd.Paramete rs.AddWithValue ("@WhereClause" , whereClause)

Try
dr = sqlCmd.ExecuteR eader(CommandBe havior.CloseCon nection)
Catch ex As Exception
DispMessage("De termine Menus Error - " & ex.Message,
MyPage)
StoreErrorMessa ge.StoreSystemE rrorMessage(con nString,
applicationId, "", "BuildMenus ", "GenericRoutine s.vb", ex.Message, "")
End Try
End If

If Not dr Is Nothing Then
' [rak] Dim MenuDoc As XmlDocument
While dr.Read

menuName.DataBi ndings.Add(Buil dSimpleMenuBind ing(dr.Item("So rtID"),
dr.Item("HLevel "), dr.Item("MenuNa me"), Convert.ToStrin g(dr.Item("Url" ))))
'[rak] BindMenuToXmlDo cument(MenuDoc, menuName,
"menu/item")
End While

menuName.databi nd()
dr.Close()
End If
End Sub
Public Function BuildSimpleMenu Binding(ByVal XmlElementName As String,
ByVal Depth As Integer, ByVal TextField As String, ByVal
NavigationUrlFi eld
As String) As MenuItemBinding

Dim MenuBinding As MenuItemBinding = New MenuItemBinding
MenuBinding.Dat aMember = XmlElementName
MenuBinding.Tex tField = TextField
MenuBinding.Nav igateUrlField = NavigationUrlFi eld
MenuBinding.Dep th = Depth

Return MenuBinding
End Function
Public Sub BindMenuToXmlDo cument(ByVal MenuDocument As XmlDocument,
ByRef MenuControl As System.Web.UI.W ebControls.Menu , ByVal XPath As
String)

Dim MenuDataSource As XmlDataSource = New XmlDataSource()
MenuDataSource. Data = MenuDocument.Ou terXml
MenuDataSource. EnableCaching = False
MenuDataSource. XPath = XPath
MenuControl.Dat aSource = MenuDataSource
MenuControl.Dat aBind()
End Sub

thanks
rob