Partial Class prevod_dva
    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
        Me.TextBox1.Text = Replace(Me.TextBox1.Text, "'", """")
        Me.TextBox2.Text = Replace(Me.TextBox2.Text, "'", """")
        Me.TextBox3.Text = Replace(Me.TextBox3.Text, "'", """")
        Me.TextBox4.Text = Replace(Me.TextBox4.Text, "'", """")
        Me.TextBox5.Text = Replace(Me.TextBox5.Text, "'", """")
        Me.TextBox6.Text = Replace(Me.TextBox6.Text, "'", """")
        Me.TextBox7.Text = Replace(Me.TextBox7.Text, "'", """")
        Me.TextBox8.Text = Replace(Me.TextBox8.Text, "'", """")
        Me.TextBox9.Text = Replace(Me.TextBox9.Text, "'", """")

        konekcija1.OdbcCon.Open()
        konekcija1.OdbcCom = New System.Data.Odbc.OdbcCommand("UPDATE proizvodi SET bih1='" & Me.TextBox1.Text & "',en1='" & Me.TextBox2.Text & "',de1='" & Me.TextBox3.Text & "',bih2='" & Me.TextBox4.Text & "',en2='" & Me.TextBox5.Text & "',de2='" & Me.TextBox6.Text & "',bih3='" & Me.TextBox7.Text & "',en3='" & Me.TextBox8.Text & "',de3='" & Me.TextBox9.Text & "' WHERE mjesto='" & idd & "'", konekcija1.OdbcCon)

        konekcija1.OdbcCom.ExecuteNonQuery()

        konekcija1.OdbcCon.Close()
        Response.Redirect("prevod_dva.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 = ""
            Me.TextBox5.Text = ""
            Me.TextBox6.Text = ""
            Me.TextBox7.Text = ""
            Me.TextBox8.Text = ""
            Me.TextBox9.Text = ""
            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 a7 As String = ""
            Dim a8 As String = ""
            Dim a9 As String = ""
            Dim a10 As String = ""
            Dim a11 As String = ""


            Dim vrijednost As String = ""








            konekcija.OdbcCon.Open()
            konekcija.OdbcCom = New System.Data.Odbc.OdbcCommand("select * from proizvodi 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
                If konekcija.OdbcDR.IsDBNull(5) Then : a6 = "" : Else : a6 = konekcija.OdbcDR.GetValue(5).ToString : End If
                If konekcija.OdbcDR.IsDBNull(6) Then : a7 = "" : Else : a7 = konekcija.OdbcDR.GetValue(6).ToString : End If
                If konekcija.OdbcDR.IsDBNull(7) Then : a8 = "" : Else : a8 = konekcija.OdbcDR.GetValue(7).ToString : End If
                If konekcija.OdbcDR.IsDBNull(8) Then : a9 = "" : Else : a9 = konekcija.OdbcDR.GetValue(8).ToString : End If
                If konekcija.OdbcDR.IsDBNull(9) Then : a10 = "" : Else : a10 = konekcija.OdbcDR.GetValue(9).ToString : End If
                If konekcija.OdbcDR.IsDBNull(10) Then : a11 = "" : Else : a11 = konekcija.OdbcDR.GetValue(10).ToString : End If


                vrijednost = a3

                Dim ax As New LinkButton
                ax.Text = vrijednost
                ax.PostBackUrl = "prevod_dva.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 a7 As String = ""
            Dim a8 As String = ""
            Dim a9 As String = ""
            Dim a10 As String = ""
            Dim a11 As String = ""

            Dim vrijednost As String = ""








            konekcija.OdbcCon.Open()
            konekcija.OdbcCom = New System.Data.Odbc.OdbcCommand("select * from proizvodi 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 konekcija.OdbcDR.IsDBNull(6) Then : a7 = "" : Else : a7 = konekcija.OdbcDR.GetValue(6).ToString : End If
                If konekcija.OdbcDR.IsDBNull(7) Then : a8 = "" : Else : a8 = konekcija.OdbcDR.GetValue(7).ToString : End If
                If konekcija.OdbcDR.IsDBNull(8) Then : a9 = "" : Else : a9 = konekcija.OdbcDR.GetValue(8).ToString : End If
                If konekcija.OdbcDR.IsDBNull(9) Then : a10 = "" : Else : a10 = konekcija.OdbcDR.GetValue(9).ToString : End If
                If konekcija.OdbcDR.IsDBNull(10) Then : a11 = "" : Else : a11 = konekcija.OdbcDR.GetValue(10).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
                If Me.TextBox5.Text = "" Then
                    Me.TextBox5.Text = a7
                End If
                If Me.TextBox6.Text = "" Then
                    Me.TextBox6.Text = a8
                End If
                If Me.TextBox7.Text = "" Then
                    Me.TextBox7.Text = a9
                End If
                If Me.TextBox8.Text = "" Then
                    Me.TextBox8.Text = a10
                End If
                If Me.TextBox9.Text = "" Then
                    Me.TextBox9.Text = a11
                End If


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



            konekcija.OdbcCon.Open()
            konekcija.OdbcCom = New System.Data.Odbc.OdbcCommand("select * from dokumenti where veza='" & 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
                Dim labela As New Label



                labela.Text = a1 & "-" & a2 & "-" & a3 & "-" & a4 & "-" & a5 & "-" & a6 & "<br />"
                Me.Panel3.Controls.Add(labela)



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










        End If
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim nazivfajla As String = ""
        Dim prolaz As Boolean = True
        Dim slika As Boolean = True
        If Not Me.FileUpload1.PostedFile Is Nothing And FileUpload1.PostedFile.ContentLength > 0 Then

            Dim fn As String = System.IO.Path.GetFileName(FileUpload1.PostedFile.FileName)
            Dim SaveLocation As String = Server.MapPath("dokumenti") & "\" & fn
            Try
                FileUpload1.PostedFile.SaveAs(SaveLocation)
                'Response.Write("Sve je OK")
            Catch Exc As Exception
                'Response.Write("Error: " & Exc.Message)
                prolaz = False
            End Try
        Else
            prolaz = False
            'Response.Write("Izaberi fajl")
        End If

        nazivfajla = System.IO.Path.GetFileName(FileUpload1.PostedFile.FileName)

        If Right(nazivfajla, 3) = "jpg" or Right(nazivfajla, 3) = "JPG" or Right(nazivfajla, 4) = "jpeg" or Right(nazivfajla, 4) = "JPEG" Then
            slika = True
        Else
            slika = False
        End If

        If prolaz Then
            If slika Then
                Dim konekcija1 As New modul
                konekcija1.OdbcCon.Open()
                konekcija1.OdbcCom = New System.Data.Odbc.OdbcCommand("INSERT INTO dokumenti (vrsta,veza,link,opis,jezik) VALUES ('slika','" & idd & "','" & nazivfajla & "','opis slike','svi')", konekcija1.OdbcCon)
                konekcija1.OdbcCom.ExecuteNonQuery()
                konekcija1.OdbcCon.Close()
                Response.Redirect("prevod_dva.aspx")
            Else
                Dim konekcija1 As New modul
                konekcija1.OdbcCon.Open()
                konekcija1.OdbcCom = New System.Data.Odbc.OdbcCommand("INSERT INTO dokumenti (vrsta,veza,link,opis,jezik) VALUES ('dokument','" & idd & "','" & nazivfajla & "','" & Me.TextBox10.Text & "','" & Me.DropDownList1.Text & "')", konekcija1.OdbcCon)
                konekcija1.OdbcCom.ExecuteNonQuery()
                konekcija1.OdbcCon.Close()
                Response.Redirect("prevod_dva.aspx")
            End If

        End If





    End Sub
End Class