Imports System.Data
Imports System.Data.OleDb

Partial Class AdministracaoVozProvincialRestrito
    Inherits System.Web.UI.Page

    Protected Sub btnVoltar01_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnVoltar01.Click, btnVoltar02.Click
        Response.Redirect("AdministracaoMenu.aspx")
    End Sub

    Protected Sub btnInserir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInserir.Click
        Try
            If edtFoto.FileName = "" Then
                lblStatus.Text = "<font color='#FF0000'>Informe um arquivo da provincial (restrito) !!!</font>"
                Exit Sub
            End If
            'Realizando o upload
            Dim strCaminhoFoto As String = Server.MapPath("") & "\Provincial\"
            strCaminhoFoto += Server.HtmlEncode(edtFoto.FileName)
            edtFoto.SaveAs(strCaminhoFoto)
            lblStatus.Text = "O arquivo restrito foi inserido com sucesso."
            btnVoltar02.Visible = True
        Catch ex As Exception
            lblStatus.Text = "<font color='#FF0000'>Erro ao tentar inserir o arquivo restrito !!! <br> Erro Interno: " & ex.Message & "</font>"
        End Try
    End Sub

End Class