DataList and SelectedItem

Hello!

I am building a navigation menu using DataList and templates. I have spent
hours trying to find a solution to my problem, but without any luck. Maybe
someone knows how to solve this problem...?

Here is what I need to achieve...

If ItemType is Item, print: "Item Name >"
If ItemType is SelectedItem, print: "Item Name <"


Thank you in advance!
Scott


Below is my code...

<aspataList id="dlMenuItems" runat="server" Width="180" BorderWidth="0"
DataKeyField="ID">
<SelectedItemTemplate>
<asp:HyperLink id="hlSelectedMenuItem" Runat="Server"></asp:HyperLink>
</SelectedItemTemplate>
<ItemTemplate>
<asp:HyperLink id="hlMenuItem" Runat="Server"></asp:HyperLink>
</ItemTemplate>
</aspataList>


Private Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataListItemEventArgs) Handles
dlMenuItems.ItemDataBound

Dim hlSelectedMenuItem As HyperLink
Dim hlMenuItem As HyperLink

hlSelectedMenuItem = CType(e.Item.FindControl("hlSelectedMenuItem"),
HyperLink)
hlMenuItem = CType(e.Item.FindControl("hlMenuItem"), HyperLink)

Dim drv As DataRowView = CType(e.Item.DataItem, DataRowView)

If e.Item.ItemType = ListItemType.Item OrElse e.Item.ItemType =
ListItemType.AlternatingItem Then

If Not drv Is Nothing Then
hlMenuItem.Text = drv("CategoryNameEst") & ">"
hlMenuItem.NavigateUrl = "../Browse.aspx?CatId=" & drv("ID")
End If

End If

If e.Item.ItemType = ListItemType.SelectedItem Then

If Not drv Is Nothing Then
hlSelectedMenuItem.Text = drv("CategoryNameEst") & "<"
hlSelectedMenuItem.NavigateUrl = "../Browse.aspx?tId=" &
drv("ID")
End If

End If

End Sub