Imports System.Net.Mail
Imports System.Net
Partial Class _kontakt
    Inherits System.Web.UI.Page

    Dim konekcija As New modul



  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' cookie()

        'Response.Write(Session("jezik"))
        If Me.Session("jezik") = "bih" Then
            Me.FlashControl1.MovieUrl = "glavna.swf"
            Me.FlashControl1.FlashVarsCollection = New System.Collections.Specialized.NameValueCollection()
            Me.FlashControl1.FlashVarsCollection.Add("jezik", "bih")
            Me.FlashControl1.FlashVarsCollection.Add("vrsta", "glavna")
        End If
        If Me.Session("jezik") = "de" Then
            Me.FlashControl1.MovieUrl = "glavna.swf"
            Me.FlashControl1.FlashVarsCollection = New System.Collections.Specialized.NameValueCollection()
            Me.FlashControl1.FlashVarsCollection.Add("jezik", "de")
            Me.FlashControl1.FlashVarsCollection.Add("vrsta", "glavna")
        End If
        If Me.Session("jezik") = "en" Then
            Me.FlashControl1.MovieUrl = "glavna.swf"
            Me.FlashControl1.FlashVarsCollection = New System.Collections.Specialized.NameValueCollection()
            Me.FlashControl1.FlashVarsCollection.Add("jezik", "en")
            Me.FlashControl1.FlashVarsCollection.Add("vrsta", "glavna")
        End If
        Me.Label5.Visible = False
        tabela()

    End Sub
    Protected Sub cookie()
        If (Request.Cookies("menadzer") Is Nothing) Then
            Response.Cookies("menadzer")("jezik") = "bih"
            Session("jezik") = "bih"
        Else
            Session("jezik") = Request.Cookies("menadzer")("jezik")
        End If
        Request.Cookies("menadzer").Expires = Now.AddMonths(1)
    End Sub

    Protected Sub tabela()





        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 prevodi where mjesto like '05%'", 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

            If Session("jezik") = "en" Then
                vrijednost = a4
            End If
            If Session("jezik") = "de" Then
                vrijednost = a5
            End If


            vrijednost = Replace(vrijednost, Chr(13), "<br />")


            If a2 = "0501" Then
                Me.Label1.Text = vrijednost
            End If
            If a2 = "0502" Then
                Me.Label2.Text = vrijednost
            End If
            If a2 = "0503" Then
                Me.Label3.Text = vrijednost
            End If
            If a2 = "0504" Then
                Me.Label4.Text = vrijednost
            End If
            If a2 = "0505" Then
                Me.Label6.Text = vrijednost
            End If
            If a2 = "0506" Then
                Me.Button1.Text = vrijednost
            End If
            If a2 = "0507" Then
                Me.Label7.Text = vrijednost
            End If
            If a2 = "0508" Then
                Me.Label8.Text = vrijednost
            End If
            If a2 = "0509" Then
                Me.Label9.Text = vrijednost
            End If

            Me.Label5.Text = ""


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






        a1 = ""
        a2 = ""
        a3 = ""
        a4 = ""
        a5 = ""

        vrijednost = ""








        konekcija.OdbcCon.Open()
        konekcija.OdbcCom = New System.Data.Odbc.OdbcCommand("select * from prevodi where mjesto like '01%'", 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




            'System.Text.Encoding.UTF8
            vrijednost = a3

            If Session("jezik") = "en" Then
                vrijednost = a4
            End If
            If Session("jezik") = "de" Then
                vrijednost = a5
            End If

            If a2 = "0101" Then
                Me.Label10.Text = vrijednost
            End If
            If a2 = "0102" Then
                Me.Label11.Text = vrijednost
            End If
            If a2 = "0103" Then
                Me.Label12.Text = vrijednost
            End If
            If a2 = "0104" Then
                Me.Label13.Text = vrijednost
            End If
        Loop
        konekcija.OdbcDR.Close()
        konekcija.OdbcCon.Close()









    End Sub

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


        Dim stringg As String = ""
        stringg = Me.Label9.Text & Chr(13)
        stringg = stringg & Me.Label2.Text & " :" & Me.TextBox1.Text & Chr(13)
        stringg = stringg & Me.Label3.Text & " : " & Me.TextBox2.Text & Chr(13)
        stringg = stringg & Me.Label4.Text & " : " & Chr(13) & Me.TextBox3.Text & Chr(13)




        Me.Label9.Text = stringg

        Me.Label9.Text = Replace(Me.Label9.Text, "(.ime.)", Me.TextBox1.Text)
        'Me.Label9.Text = Replace(Me.Label9.Text, "(.poruka.)", Me.TextBox3.Text)


        Me.Label9.Text = Replace(Me.Label9.Text, "<br />", Chr(13))



        Dim param As String = Command()

        Dim mail As New MailMessage
        mail.To.Add("info@menadzer.com.ba")
        mail.From = New MailAddress("info@menadzer.com.ba", "Menadzer d.o.o.")
        Try
            'mail.CC.Add(Trim(Me.TextBox2.Text))
            'mail.To.Add(Trim(Me.TextBox2.Text))
        Catch ex As Exception

        End Try



        mail.Subject = Me.Label8.Text
        mail.Body = Me.Label9.Text

        Dim smpt As New SmtpClient("mail.menadzer.com.ba")

        smpt.Credentials = New NetworkCredential("info@menadzer.com.ba", "kompjuter")
        'smpt.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
        'smpt.DeliveryMethod = SmtpDeliveryMethod.SpecifiedPickupDirectory











        Try
            smpt.Send(mail)
        Catch ex As Exception
            'Response.Write(ex.Message)
            Me.Label5.Text = Me.Label7.Text
        Finally
            If Me.Label5.Text = Me.Label7.Text Then
            Else
                Me.Label5.Text = Me.Label6.Text
            End If
        End Try




        Me.Label5.Visible = True
    End Sub
End Class