<% Response.Charset = "UTF-8" Set Con = Server.CreateObject("ADODB.Connection") Con.Open("DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=a2nlmysql25plsk.secureserver.net;PORT=3306;DATABASE=aessenai_site;USER=aes_website;PASSWORD=ewhA66!6#M5tn1a9;OPTION=3;") Function fechaConn() If IsObject(Con) Then Con.Close Set Con = Nothing End If End Function %> <% 'chave chaveENC = "ASIog654715" Function Encripta(gerador) 'Encriptação da senha Set oEncryptor = Server.Createobject("Dynu.Encrypt") REM Encrypt the value of a string. gerador = oEncryptor.Encrypt(gerador, chaveENC) Set oEncryptor = nothing '----------------------------------------------------- Encripta = gerador End Function '================================================================================================================================ 'CHAVE DE CRIPTOGRAFIA PARA SENHAS DOS CLIENTES '================================================================================================================================ ' 'Encriptação da senha ' Set oEncryptor = Server.Createobject("Dynu.Encrypt") ' REM Encrypt the value of a string. ' senhaEnc = oEncryptor.Encrypt(chaveSGQ, chaveENC) ' Set oEncryptor = nothing ' '----------------------------------------------------- ' 'Decriptação da senha ' Set oEncryptor = Server.Createobject("Dynu.Encrypt") ' Dim sDecrypted ' REM Decrypt the value of a string. ' senha = oEncryptor.Decrypt(rs("senha"), chaveENC) ' Set oEncryptor = nothing ' '----------------------------------------------------- '------------------------ 'VAR DATAS '================================================================================================================================ diaA = Day(Now()) mesA = Month(Now()) anoA = Year(Now()) If Len(mesA) = 1 then mesA = "0"&mesA End If If Len(diaA) = 1 then diaA = "0"&diaA End If dataMesIa = "01/"&Month(Now)&"/"&Year(Now()) dataMesIb = Year(Now())&"/"&Month(Now)&"/01" dtZ = DateAdd("M",1,dataMesIa) dtX = DateAdd("D",-1,dtZ) dataMesFa = Day(dtX)&"/"&Month(dtX)&"/"&Year(dtX) dataMesFb = Year(dtX)&"/"&Month(dtX)&"/"&Day(dtX) dataMenos1I = Year(DateAdd("M",-1,Date()))&"/"&Month(DateAdd("M",-1,Date()))&"/"&Day(DateAdd("M",-1,Date())) dataMenos2I = Year(DateAdd("M",-2,Date()))&"/"&Month(DateAdd("M",-2,Date()))&"/"&Day(DateAdd("M",-2,Date())) datamenos3I = Year(DateAdd("M",-3,Date()))&"/"&Month(DateAdd("M",-3,Date()))&"/"&Day(DateAdd("M",-3,Date())) dataMenos4I = Year(DateAdd("M",-4,Date()))&"/"&Month(DateAdd("M",-4,Date()))&"/"&Day(DateAdd("M",-4,Date())) dataMenos1N = Day(DateAdd("M",-1,Date()))&"/"&Month(DateAdd("M",-1,Date()))&"/"&Year(DateAdd("M",-1,Date())) dataMenos2N = Day(DateAdd("M",-2,Date()))&"/"&Month(DateAdd("M",-2,Date()))&"/"&Year(DateAdd("M",-2,Date())) dataMenos3N = Day(DateAdd("M",-3,Date()))&"/"&Month(DateAdd("M",-3,Date()))&"/"&Year(DateAdd("M",-3,Date())) dataMenos4N = Day(DateAdd("M",-4,Date()))&"/"&Month(DateAdd("M",-4,Date()))&"/"&Year(DateAdd("M",-4,Date())) dataHojeN = diaA&"/"&mesA&"/"&anoA dataHojeI = anoA&"/"&mesA&"/"&diaA dataHojeInput = anoA&"-"&mesA&"-"&diaA dataHojeHora = anoA&"/"&mesA&"/"&diaA&" 00:00:00" dataHojeN_Time = diaA&"/"&mesA&"/"&anoA&" "&Time() dataHojeI_Time = anoA&"/"&mesA&"/"&diaA&" "&Time() dataHojeI_TimeC = anoA&"/"&mesA&"/"&diaA&" "&Time() mesEscrito = Array("","Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro") semana = Array("","Domingo","Segunda-feira","Terça-feira","Quarta-feira","Quinta-feira","Sexta-Feira","Sábado") '================================================================================================================================ Function MudaNome(DESCRICAO) MudaNome = Replace(Replace(Replace(Replace(Replace(DESCRICAO,".","")," ","-"),"/",""),"'",""),"+","") End Function Function MudaPreco(PRECO) If IsNull(PRECO) then PRECO = 0 End IF MudaPreco = Replace(Replace(FormatNumber(PRECO,2),".",""),",",".") End Function Function MudaPrecoB(PRECO) If IsNull(PRECO) then PRECO = 0 End IF MudaPreco2 = Replace(PRECO,".",",") End Function %> Associação dos Empregados do SENAI Associação dos Empregados do SENAI

Inicio > Comunicados e Boletins

<% If Request.QueryString("st") = 1 then BUSCA = Replace(Request.Form("busca"),"'","") End If %>

Comunicados e Boletins

<% If Request.QueryString("st") = 1 then SQL = " SELECT ARQ_CODIGO, ARQ_DESCRICAO, ARQ_EXTENSAO, ARQ_DATA, ARQ_TIPO_DATA, ARQ_NUMERO, ARQ_CAMINHO, ARQ_NOME "_ & " FROM arquivo "_ & " WHERE ARQ_SITUACAO = '1' AND CAT_CODIGO = '5' AND "_ & " (ARQ_CODIGO LIKE '%"&BUSCA&"%' OR ARQ_DESCRICAO LIKE '%"&BUSCA&"%' OR ARQ_EXTENSAO LIKE '%"&BUSCA&"%' "_ & " OR ARQ_DATA LIKE '%"&BUSCA&"%' OR ARQ_NUMERO LIKE '%"&BUSCA&"%' OR ARQ_NOME LIKE '%"&BUSCA&"%') ORDER BY ARQ_DATA DESC" Else SQL = " SELECT ARQ_CODIGO, ARQ_DESCRICAO, ARQ_EXTENSAO, ARQ_DATA, ARQ_TIPO_DATA, ARQ_NUMERO, ARQ_CAMINHO, ARQ_NOME "_ & " FROM arquivo WHERE ARQ_SITUACAO = '1' AND CAT_CODIGO = '5' ORDER BY ARQ_DATA DESC" End If Set rs = Con.Execute(SQL) If Not rs.EOF then While Not rs.EOF If Ccur(rs("ARQ_TIPO_DATA")) = 1 then DATAe = mesEscrito(Month(rs("ARQ_DATA")))&" / "&Year(rs("ARQ_DATA")) ElseIf Ccur(rs("ARQ_TIPO_DATA")) = 2 then DATAe = MonthName(Month(rs("ARQ_DATA"))) ElseIf Ccur(rs("ARQ_TIPO_DATA")) = 3 then DATAe = Year(rs("ARQ_DATA")) ElseIf Ccur(rs("ARQ_TIPO_DATA")) = 4 then 'DATAe = cDate(rs("ARQ_DATA")) mesE = Month(rs("ARQ_DATA")) If Len(mesE) = 1 then mesE = "0"&mesE End If diaE = Day(rs("ARQ_DATA")) If Len(diaE) = 1 then diaE = "0"&diaE End If DATAe = diaE&"/"&mesE&"/"&Year(rs("ARQ_DATA")) Else DATAe = "" End If %> <% rs.MoveNext Wend End If Set rs = Nothing %>
Data Nº Assunto Documentos Adicionais Documento
<=DATAe> <=rs("ARQ_NUMERO")> <=rs("ARQ_DESCRICAO")> < SQL = " SELECT ARQ_CODIGO, LIN_NOME, LIN_LINK, LIN_CODIGO FROM arquivo_link WHERE ARQ_CODIGO = '"&rs("ARQ_CODIGO")&"'" Set rsB = Con.Execute(SQL) If Not rsB.EOF then While Not rsB.EOF 'LIN_LINK = rsB("LIN_LINK") >

" target="_blank"><=rsB("LIN_NOME")>

< rsB.MoveNext Wend End If Set rsB = Nothing > 		.<%=rs("ARQ_EXTENSAO")%>" target="_blank">Visualizar
Whatsapp <% If IsObject(Con) Then Con.Close Set Con = Nothing End If %>