ZADNA

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Public Class MasterPage
    Inherits System.Web.UI.MasterPage


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SearchBox.Attributes.Add("onkeypress", "return clickButton(event,'" + btnSearch.ClientID + "')")

        If Not Me.IsPostBack Then

        End If
        If Session("Login") Is Nothing And Session("Login1") Is Nothing Then
            Logout.Visible = False
            MyAcc.Visible = False
            SignUpKopche.Visible = True
            SignIn.Visible = True
        Else
            If Session("Login") IsNot Nothing Then
                If Session("Login").ToString().Equals("Logiran") Then
                    Logout.Visible = True
                    MyAcc.Visible = True
                    NajavaObichenKorisnik.Visible = False
                    SignUpKopche.Visible = False
                    SignIn.Visible = False
                Else
                    Logout.Visible = False
                    MyAcc.Visible = False
                    NajavaObichenKorisnik.Visible = True
                    SignUpKopche.Visible = True
                    SignIn.Visible = True

                End If
            ElseIf Session("Login1") IsNot Nothing Then

                If Session("Login1").ToString().Equals("Logiran") Then
                    Logout.Visible = True
                    MyAcc.Visible = True
                    NajavaObichenKorisnik.Visible = False
                    SignUpKopche.Visible = False
                    SignIn.Visible = False
                Else
                    Logout.Visible = False
                    MyAcc.Visible = False
                    NajavaObichenKorisnik.Visible = True
                    SignUpKopche.Visible = True
                    SignIn.Visible = True

                End If

            End If
        End If


        Dim strKonekcija As String = ConfigurationManager.ConnectionStrings("SyCMSConn").ConnectionString
        Using con As New SqlConnection(strKonekcija)
            Using cmd As New SqlCommand("select Ag_ID,Ag_Ime from AG")
                Using sda As New SqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using dt As New DataTable()
                        sda.Fill(dt)

                        For Each c As DataRow In dt.Rows
                            Pills.Controls.Add(New LiteralControl("<li runat='server'>"))

                            'Dim s As New HtmlGenericControl("span")
                            ' s.Attributes.Add("class", "glyphicon glyphicon-tag")
                            ' myDiv.Controls.Add(s)



                            Dim l As New LinkButton()
                            l.CommandName = c.Item(0)
                            l.Text = c.Item(1)
                            l.CssClass = "KatKlasa"
                            l.Height = 35
                            AddHandler l.Click, AddressOf l_Click
                            Pills.Controls.Add(l)

                            Using con1 As New SqlConnection(strKonekcija)
                                Using cmd1 As New SqlCommand("select distinct Apg_Ime,Apg_ID from APG,AG where Apg_Grupa =" + c.Item(0).ToString())
                                    Using sda1 As New SqlDataAdapter()
                                        cmd1.Connection = con1
                                        sda1.SelectCommand = cmd1
                                        Using dt1 As New DataTable()
                                            sda1.Fill(dt1)
                                            If dt1.Rows.Count > 0 Then
                                                Pills.Controls.Add(New LiteralControl("<div class='mega' style='line-height:20px;margin-top:-15px;'><aside class='container' style=' width:550px;'>"))
                                            End If
                                            For Each b As DataRow In dt1.Rows
                                                Pills.Controls.Add(New LiteralControl("<div class='col-lg-4 col-md-4 col-sm-4'><nobr><h2 style='cursor:pointer;text-decoration:none;'>"))
                                                Dim linkLevel1 As New HtmlAnchor
                                                linkLevel1.Name = b.Item(1)
                                                linkLevel1.InnerText = b.Item(0)
                                                linkLevel1.Style.Add("font-size", "18px")
                                                linkLevel1.Style.Add("text-decoration", "none")

                                                AddHandler linkLevel1.ServerClick, AddressOf l1_Click
                                                Pills.Controls.Add(linkLevel1)
                                                Pills.Controls.Add(New LiteralControl("</h2></nobr>"))

                                                Using con2 As New SqlConnection(strKonekcija)
                                                    Using cmd2 As New SqlCommand("select distinct Appg_Ime,Appg_ID from APPG, APG where Appg_PodGrupa =" + b.Item(1).ToString())
                                                        Using sda2 As New SqlDataAdapter()
                                                            cmd2.Connection = con2
                                                            sda2.SelectCommand = cmd2
                                                            Using dt2 As New DataTable()
                                                                sda2.Fill(dt2)

                                                                If dt2.Rows.Count > 0 Then
                                                                    Pills.Controls.Add(New LiteralControl("<ul class='list-group' style='list-style:none;'>"))
                                                                End If

                                                                For Each a As DataRow In dt2.Rows
                                                                    Pills.Controls.Add(New LiteralControl("<li>"))
                                                                    Dim linkLevel2 As New HtmlAnchor
                                                                    linkLevel2.Name = a.Item(1)
                                                                    linkLevel2.InnerText = a.Item(0)
                                                                    AddHandler linkLevel2.ServerClick, AddressOf l1_Click
                                                                    Pills.Controls.Add(linkLevel2)

                                                                    Pills.Controls.Add(New LiteralControl("</li>"))
                                                                Next

                                                                If dt2.Rows.Count > 0 Then
                                                                    Pills.Controls.Add(New LiteralControl("</ul></div>"))
                                                                End If

                                                            End Using
                                                        End Using
                                                    End Using
                                                End Using



                                            Next
                                            If dt1.Rows.Count > 0 Then
                                                Pills.Controls.Add(New LiteralControl("</aside></div>"))
                                            End If
                                        End Using
                                    End Using
                                End Using
                            End Using



                            Pills.Controls.Add(New LiteralControl("</li>"))

                            l = Nothing
                        Next
                    End Using
                End Using
            End Using
        End Using



    End Sub
    Protected Sub LogOutClick(sender As Object, e As EventArgs)
        Session("Login") = "Nelogiran"

        Response.Redirect("Home.aspx", True)

    End Sub


    Protected Sub BrzaNajavaClick(sender As Object, e As EventArgs)
        Dim strKonekcija As String = ConfigurationManager.ConnectionStrings("SyCMSConn").ConnectionString
        Using con As New SqlConnection(strKonekcija)

            Using cmd As New SqlCommand("select Kom_Ime from Komintenti where Kom_WebPristap = 1 and Kom_WebSifra = '" + PassbrzaNajava.Value.ToString() + "' and Kom_WebIme = '" + UsernameBrzaNajava.Value.ToString() + "' ")
                Using sda As New SqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using dt As New DataTable()
                        sda.Fill(dt)
                        If dt.Rows.Count = 1 Then
                            alert.Visible = False
                            PassbrzaNajava.Value = " "
                            UsernameBrzaNajava.Value = "  "
                            Session("Login") = "Logiran"
                            Response.Redirect("Home.aspx", True)

                        Else
                            PassbrzaNajava.Value = ""
                            UsernameBrzaNajava.Value = ""
                            alert.Visible = True
                        End If

                    End Using
                End Using
            End Using
        End Using

    End Sub

    Protected Sub BrzaNajavaClick1(sender As Object, e As EventArgs)
        Dim strKonekcija As String = ConfigurationManager.ConnectionStrings("SyCMSConn").ConnectionString
        Using con As New SqlConnection(strKonekcija)

            Using cmd As New SqlCommand("select Kor_ID from WebKorisnici where Kor_KorisnikSifra = '" + PassBrzaNajavaObichen.Value.ToString() + "' and Kor_KorisnikIme = '" + UsernameBrzaNajavaObichen.Value.ToString() + "' ")
                Using sda As New SqlDataAdapter()
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using dt As New DataTable()
                        sda.Fill(dt)
                        If dt.Rows.Count = 1 Then
                            alert1.Visible = False
                            PassBrzaNajavaObichen.Value = " "
                            UsernameBrzaNajavaObichen.Value = "  "
                            Session("Login") = "Logiran"
                            Response.Redirect("Home.aspx", True)

                        Else
                            PassBrzaNajavaObichen.Value = ""
                            UsernameBrzaNajavaObichen.Value = ""
                            alert1.Visible = True
                        End If

                    End Using
                End Using
            End Using
        End Using

    End Sub

    Protected Sub MyAccClick(sender As Object, e As EventArgs)
        Server.Transfer("ProductsPerCategory.aspx", True)
    End Sub
    Protected Sub Link_Click(sender As Object, e As EventArgs)
        Server.Transfer("ProductsPerCategory.aspx", True)
    End Sub
    Protected Sub SignUp(sender As Object, e As EventArgs)
        Response.Redirect("SignUp.aspx", True)
    End Sub
    Protected Sub HomeClick(sender As Object, e As EventArgs)
        Response.Redirect("Home.aspx", True)
    End Sub
    Protected Sub SignUpClick(sender As Object, e As EventArgs)
        Response.Redirect("SignUp.aspx", True)
    End Sub

    Protected Sub KosnickaClick(sender As Object, e As EventArgs)
        Response.Redirect("Shopping-Cart.aspx", True)
    End Sub
    Protected Sub ZaNasClick(sender As Object, e As EventArgs)
        Response.Redirect("ZaNas.aspx", True)
    End Sub

    Protected Sub UslugiClick(sender As Object, e As EventArgs)
        Response.Redirect("Uslugi.aspx", True)
    End Sub

    Protected Sub PrivatnostClick(sender As Object, e As EventArgs)
        Response.Redirect("Privatnost.aspx", True)
    End Sub

    Protected Sub KontaktClick(sender As Object, e As EventArgs)
        Response.Redirect("Kontakt.aspx", True)
    End Sub
    Public Shared Function toHTML_Table(dt As DataTable) As String
        If dt.Rows.Count = 0 Then
            Return ""
        End If
        ' enter code here
        Dim builder As New StringBuilder()

        For Each c As DataRow In dt.Rows
            builder.Append("<li class='ovaa' runat='server' id='")
            builder.Append(c.Item(0))
            builder.Append("'><asp:LinkButton runat='server' Text='Link' OnClick='Link_Click()' ID='2' CssClass='kopche'><span runat='server' class='glyphicon glyphicon-tag'></span>")
            builder.Append(c.Item(1))
            builder.Append("<span class='glyphicon glyphicon-menu-right' style='float:right;font-size:11px;'></span></a>")
            If c.Item(3) IsNot Nothing Then
                If c.Item(0).Equals(c.Item(3)) Then
                    builder.Append(" <div class='mega'><aside style='margin-left:7px;'><h5 style='text-transformuppercase;'>")
                    builder.Append(c.Item(2))
                    builder.Append("</h5><ul class='list-group' style='list-style:none;'><li><a href='http://totoprayogo.com' target='_blank'>Sony</a></li><li><a href='http://totoprayogo.com' target='_blank'>Canon</a></li><li><a href='http://totoprayogo.com' target='_blank'>Kodak</a></li></ul></aside><div class='featured'><img alt='featured-cameras' src='http://cdn.mos.cms.futurecdn.net/c01d303202bc3da34fd86a913ca9cbb6-650-80.jpg'/></div><br clear='all'/></div></li>")
                Else
                    builder.Append("</li>")
                End If
            Else
                builder.Append("</li>")
            End If

        Next


        Return builder.ToString()
    End Function



    Protected Sub l_Click(sender As Object, e As EventArgs)

        Dim selektirano = sender.CommandName
        Session("Data") = selektirano
        Response.Redirect("ProductsPerCategory.aspx", True)

    End Sub
    Protected Sub l1_Click(sender As Object, e As EventArgs)

        Dim selektirano = sender.ID
        Session("Data") = selektirano
        Response.Redirect("ProductsPerCategory.aspx", True)

    End Sub
    Protected Sub l_Click1(sender As Object, e As EventArgs)


    End Sub

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Response.Redirect("SearchResults.aspx", True)




    End Sub

    Protected Sub SearchBox_TextChanged(sender As Object, e As EventArgs)
        Session("klucenzbor") = SearchBox.Text.ToString()
        Dim strKonekcija As String = ConfigurationManager.ConnectionStrings("SyCMSConn").ConnectionString

        If SearchBox.Text.Trim().Count >= 3 Then


            Dim searchzbor As String = "'%" + SearchBox.Text + "%'"

            Using con As New SqlConnection(strKonekcija)
                Using cmd As New SqlCommand("Select top 20 Art_Ime as ime,Art_ID as id  from Artikli where Art_Ime Like  " + searchzbor + " Or Art_Proizvoditel Like " + searchzbor)



                    cmd.CommandType = CommandType.Text
                    cmd.Connection = con
                    con.Open()

                    'If cmd.ExecuteReader.HasRows Then
                    '    ArtikliDDL.Visible = True
                    'End If
                    ArtikliDDL.DataSource = cmd.ExecuteReader()
                    ArtikliDDL.DataTextField = "ime"
                    ArtikliDDL.DataValueField = "id"
                    ArtikliDDL.DataBind()
                    con.Close()


                End Using
            End Using

            If ArtikliDDL.Items.Count > 0 Then
                ArtikliDDL.Visible = True
            Else
                ArtikliDDL.Visible = False
            End If


            'Dim izbrano As String
            'izbrano = "Изберете бренд: "
            'IzberiBrend.SelectedItem.Text = izbrano
            'IzberiBrend.SelectedItem.Value = izbrano
        Else
            ArtikliDDL.Visible = False

        End If




    End Sub

    Private Sub ArtikliDDL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ArtikliDDL.SelectedIndexChanged
        Session("ProductName") = ArtikliDDL.SelectedValue
        Response.Redirect("Product-Details.aspx", True)


    End Sub

End Class