Dim Query1 = From n In str.Split(",")
tmpNav.Append("<ul>" & vbCrLf)
For Each n In Query1
If ZipCM.Security.CanAccess(New Integer() {1, 2, 3, 4, 5}) Then
Dim Query2 = From nl In n.ToString().Split("|") Where nl(1) = "0" And (nl(2) = "1" Or nl(2) = "2")
tmpNav.Append("<li class=""site_nav"">" & Query2.Count & "</li>" & vbCrLf)
ElseIf Not (ZipCM.Security.CanAccess(New Integer() {1, 2, 3, 4, 5})) Then
Dim Query2 = From nl In n.ToString().Split("|") Where nl(1) = "0" And (nl(2) = "0" Or nl(2) = "2")
tmpNav.Append("<li class=""site_nav"">" & Query2.Count & "</li>" & vbCrLf)
Else
Dim Query2 = From nl In n.ToString().Split("|") Where nl(1) = "0" And (nl(2) = "2")
tmpNav.Append("<li class=""site_nav"">" & Query2.Count & "</li>" & vbCrLf)
End If
Next
tmpNav.Append("</ul>" & vbCrLf)
|