Partial Class prevod_jedan
    Inherits System.Web.UI.Page
    Dim konekcija As New modul
    Dim idd As String = ""


    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim konekcija1 As New modul

        konekcija1.OdbcCon.Open()
        konekcija1.OdbcCom = New System.Data.Odbc.OdbcCommand("UPDATE meni SET bih='" & Me.TextBox1.Text & "',en='" & Me.TextBox2.Text & "',de='" & Me.TextBox3.Text & "',link='" & Me.TextBox4.Text & "' WHERE mjesto='" & idd & "'", konekcija1.OdbcCon)

        konekcija1.OdbcCom.ExecuteNonQuery()

        konekcija1.OdbcCon.Close()
        Response.Redirect("prevod_jedan.aspx")
    End Sub



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("prijava") = "D" Then
        Else
            Response.Redirect("default.aspx")
        End If

        idd = ""
        idd = Request.Params("id")

        If idd = "" Then
            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
            Me.TextBox4.Text = ""
            Dim a1 As String = ""
            Dim a2 As String = ""
            Dim a3 As String = ""
            Dim a4 As String = ""
            Dim a5 As String = ""

            Dim vrijednost As String = ""








            konekcija.OdbcCon.Open()
            konekcija.OdbcCom = New System.Data.Odbc.OdbcCommand("select * from meni order by mjesto", konekcija.OdbcCon)
            konekcija.OdbcDR = konekcija.OdbcCom.ExecuteReader()
            Do Until konekcija.OdbcDR.Read = False
                If konekcija.OdbcDR.IsDBNull(0) Then : a1 = "" : Else : a1 = konekcija.OdbcDR.GetValue(0).ToString : End If
                If konekcija.OdbcDR.IsDBNull(1) Then : a2 = "" : Else : a2 = konekcija.OdbcDR.GetValue(1).ToString : End If
                If konekcija.OdbcDR.IsDBNull(2) Then : a3 = "" : Else : a3 = konekcija.OdbcDR.GetString(2) : End If
                If konekcija.OdbcDR.IsDBNull(3) Then : a4 = "" : Else : a4 = konekcija.OdbcDR.GetValue(3).ToString : End If
                If konekcija.OdbcDR.IsDBNull(4) Then : a5 = "" : Else : a5 = konekcija.OdbcDR.GetValue(4).ToString : End If


                vrijednost = a3

                Dim ax As New LinkButton
                ax.Text = vrijednost
                ax.PostBackUrl = "prevod_jedan.aspx?id=" & a2
                Me.Panel1.Controls.Add(ax)
                Dim bb As New Label
                bb.Text = "<br />"
                Me.Panel1.Controls.Add(bb)



            Loop
            konekcija.OdbcDR.Close()
            konekcija.OdbcCon.Close()
            Panel2.Visible = False
            Panel1.Visible = True

        Else
            Panel2.Visible = True
            Panel1.Visible = False

            Dim a1 As String = ""
            Dim a2 As String = ""
            Dim a3 As String = ""
            Dim a4 As String = ""
            Dim a5 As String = ""
            Dim a6 As String = ""

            Dim vrijednost As String = ""








            konekcija.OdbcCon.Open()
            konekcija.OdbcCom = New System.Data.Odbc.OdbcCommand("select * from meni where mjesto='" & idd & "'", konekcija.OdbcCon)
            konekcija.OdbcDR = konekcija.OdbcCom.ExecuteReader()
            Do Until konekcija.OdbcDR.Read = False
                If konekcija.OdbcDR.IsDBNull(0) Then : a1 = "" : Else : a1 = konekcija.OdbcDR.GetValue(0).ToString : End If
                If konekcija.OdbcDR.IsDBNull(1) Then : a2 = "" : Else : a2 = konekcija.OdbcDR.GetValue(1).ToString : End If
                If konekcija.OdbcDR.IsDBNull(2) Then : a3 = "" : Else : a3 = konekcija.OdbcDR.GetString(2) : End If
                If konekcija.OdbcDR.IsDBNull(3) Then : a4 = "" : Else : a4 = konekcija.OdbcDR.GetValue(3).ToString : End If
                If konekcija.OdbcDR.IsDBNull(4) Then : a5 = "" : Else : a5 = konekcija.OdbcDR.GetValue(4).ToString : End If
                If konekcija.OdbcDR.IsDBNull(5) Then : a6 = "" : Else : a6 = konekcija.OdbcDR.GetValue(5).ToString : End If



                If Me.TextBox1.Text = "" Then
                    Me.TextBox1.Text = a3
                End If
                If Me.TextBox2.Text = "" Then
                    Me.TextBox2.Text = a4
                End If
                If Me.TextBox3.Text = "" Then
                    Me.TextBox3.Text = a5
                End If
                If Me.TextBox4.Text = "" Then
                    Me.TextBox4.Text = a6
                End If


            Loop
            konekcija.OdbcDR.Close()
            konekcija.OdbcCon.Close()



        End If
    End Sub
End Class