Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI.Page
Partial Class UserControlItemTemplate
    Inherits System.Web.UI.UserControl
    Public Function getSubMenuTarget(ByVal MenuId As Integer)
        Dim path As String
        path = getSubMenuPath(MenuId)
        If InStr(path, "http://", CompareMethod.Text) > 0 Then
            getSubMenuTarget = "_self"
        ElseIf InStr(path, "mailto:", CompareMethod.Text) > 0 Then
            getSubMenuTarget = "_self"
        ElseIf InStr(path, ".pps", CompareMethod.Text) > 0 Then
            getSubMenuTarget = "_self"
        ElseIf InStr(path, ".pdf", CompareMethod.Text) > 0 Then
            getSubMenuTarget = "_self"
        Else
            getSubMenuTarget = "_self"
        End If
    End Function
    Public Function getSubMenuPath(ByVal MenuId As Integer, Optional ByVal bool As Boolean = True)
        Dim path As String
        Dim cn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
        Dim cm As New SqlCommand()
        Dim rdr As SqlDataReader
        If cn.State = ConnectionState.Closed Then
            cn.Open()
        End If
        cm.CommandText = "select * from MyMainMenu where mainMenuID='" & MenuId & "'"
        cm.CommandType = CommandType.Text
        cm.Connection = cn
        rdr = cm.ExecuteReader
        If rdr.Read Then
            If bool = False Then
                If Not IsDBNull(rdr("mainURL")) Then
                    If Not rdr("mainURL") = "" Then
                        If (InStr(CType(rdr("mainURL"), String), "http://") > 0) Or (InStr(CType(rdr("mainURL"), String), "mailto:") > 0) Then
                            path = rdr("mainURL")
                        ElseIf rdr("mainURL") = "Mainpage.aspx" Then
                            path = Page.ResolveUrl(rdr("mainURL") & getURLChar(rdr("mainURL")) & "MenuId=" & MenuId & "&isSubMenu=Y")
                        Else

                            path = Page.ResolveUrl(rdr("mainURL") & getURLChar(rdr("mainURL")) & "MenuId=" & MenuId & "&isSubMenu=N")
                        End If
                    Else
                        path = "#"
                    End If
                Else
                    path = "#"
                End If
            Else
                If Not IsDBNull(rdr("mainURL")) Then
                    If rdr("mainURL") = "Mainpage.aspx" Then


                        path = Page.ResolveUrl("~/" & rdr("mainURL") & getURLChar(rdr("mainURL")) & "MenuId=" & MenuId & "&sMenu=Y")
                    Else
                        path = Page.ResolveUrl("~/" & rdr("mainURL") & getURLChar(rdr("mainURL")) & "MenuId=" & MenuId & "&isSubMenu=Y")
                    End If
                End If
            End If
        End If
        rdr.Close()
        cn.Close()
        Return path
    End Function
    Public Function getURLChar(ByVal NavigateURL As String) As Char
        Dim ch As Char
        If InStr(NavigateURL, "?", CompareMethod.Text) > 0 Then
            ch = "&"
        Else
            ch = "?"
        End If
        Return ch
    End Function

   
  

    Public Function getPath(ByVal MenuId As Integer, ByVal DisplayText As String)
        Dim path As String
        Dim cn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("ConnectionString"))
        Dim cm As New SqlCommand()
        Dim rdr As SqlDataReader
        If cn.State = ConnectionState.Closed Then
            cn.Open()
        End If
        cm.CommandText = "select * from MyModule where ModuleID='" & MenuId & "'"
        cm.CommandType = CommandType.Text
        cm.Connection = cn
        rdr = cm.ExecuteReader
        If rdr.Read Then
            If IsDBNull(rdr("NavigateURL")) Then
                path = "<a id='hLnkMenu'>" & DisplayText & "</a>"
            Else
                If rdr("NavigateURL") = "" Then
                    path = "<a id='hLnkMenu'>" & DisplayText & "</a>"
                Else
                    If (InStr(CType(rdr("NavigateURL"), String), "http://") > 0) Or (InStr(CType(rdr("NavigateURL"), String), "mailto:") > 0) Then
                        path = "<a id='hLnkMenu' target='_blank' href='" & rdr("NavigateURL") & "'>" & DisplayText & "</a>"
                    Else
                        path = "<a ID='hLnkMenu' target='" & getSubMenuTarget(MenuId) & "' href='" & ConfigurationSettings.AppSettings("PageBase") & "/" & rdr("NavigateURL") & getURLChar(rdr("NavigateURL")) & "MenuId=" & MenuId & "&isSubMenu=" & rdr("isSubMenu") & "'>" & DisplayText & "</a>"
                    End If
                End If
            End If
        Else
            path = "<a id='hLnkMenu'>" & rdr("DisplayText") & "3" & "</a>"
        End If
        rdr.Close()
        cn.Close()
        Return path
    End Function
End Class