<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Function Nome_Url(ByVal Palavra) cacento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~ºª°´`'?!.,#/“”:+–%$()" sacento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" texto = "" If Palavra <> "" Then For x = 1 To Len(Palavra) letra = Mid(Palavra, x, 1) pos_acento = InStr(cacento, letra) If pos_acento > 0 Then letra = Mid(sacento, pos_acento, 1) End If texto = texto & letra Next texto = LCASE(texto) Nome_Url = Replace(texto," ","-") End If End Function %> <% Set Grupo_cmd = Server.CreateObject ("ADODB.Command") Grupo_cmd.ActiveConnection = MM_Loja_STRING Grupo_cmd.CommandText = "SELECT * FROM grupomenu WHERE GrupoMenuID = 1" Grupo_cmd.Prepared = true Set Grupo = Grupo_cmd.Execute %> <% Set Area_cmd = Server.CreateObject ("ADODB.Command") Area_cmd.ActiveConnection = MM_Loja_STRING Area_cmd.CommandText = "SELECT * FROM areas Where GrupoId = "&Grupo.Fields.Item("GrupoMenuID").Value&" ORDER BY AreaOrdem ASC" Area_cmd.Prepared = true Set Area = Area_cmd.Execute %> <% Set Menu_cmd = Server.CreateObject ("ADODB.Command") Menu_cmd.ActiveConnection = MM_Loja_STRING Menu_cmd.CommandText = "SELECT * FROM menu ORDER BY MenuOrdem ASC" Menu_cmd.Prepared = true Set Menu = Menu_cmd.Execute Dim rNoticiasSearch Dim rNoticiasSearch_cmd Dim rNoticiasSearch_numRows Set rNoticiasSearch_cmd = Server.CreateObject ("ADODB.Command") rNoticiasSearch_cmd.ActiveConnection = MM_Loja_STRING rNoticiasSearch_cmd.CommandText = "SELECT noticias.*, categoria.CategoriaNome, autores.AutorNome FROM (noticias INNER JOIN categoria ON noticias.NoticiaCategoria = categoria.CategoriaID) LEFT JOIN autores ON noticias.NoticiaAutorID = autores.AutorID order by noticiaid desc limit 6" rNoticiasSearch_cmd.Prepared = true Set rNoticiasSearch = rNoticiasSearch_cmd.Execute Function FormatarData(data) Dim agora, diferenca, resultado agora = Now diferenca = DateDiff("s", data, agora) If DateDiff("d", data, agora) = 0 Then ' Mesma data de hoje If diferenca < 60 Then resultado = "Há poucos segundos" ElseIf diferenca < 3600 Then resultado = "Há " & Int(diferenca / 60) & " minutos" Else resultado = "Há " & Int(diferenca / 3600) & " horas" End If ElseIf DateDiff("d", data, agora) = 1 Then resultado = "Ontem" Else Dim meses meses = Array("janeiro", "fevereiro", "março", "abril", "maio", "junho", _ "julho", "agosto", "setembro", "outubro", "novembro", "dezembro") Dim dia, mes, hora, minuto dia = Day(data) mes = meses(Month(data) - 1) hora = Right("0" & Hour(data), 2) minuto = Right("0" & Minute(data), 2) resultado = dia & " de " & mes' & " às " & hora & ":" & minuto End If FormatarData = resultado End Function %> <% If InStr(Request.ServerVariables("URL"), "LeNoticia") then If request.QueryString("id") <> "" then If isnumeric(request.QueryString("id")) = true then Noticia_ID = cint(request.QueryString("id")) End If End If If Noticia_ID <> "" Then Dim rNoticiaImg Dim rrNoticiaImg_cmd Dim rrNoticiaImg_numRows Set rrNoticiaImg_cmd = Server.CreateObject ("ADODB.Command") rrNoticiaImg_cmd.ActiveConnection = MM_Loja_STRING rrNoticiaImg_cmd.CommandText = "SELECT noticias.*, categoria.CategoriaNome, autores.AutorNome FROM (noticias INNER JOIN categoria ON noticias.NoticiaCategoria = categoria.CategoriaID) LEFT JOIN autores ON noticias.NoticiaAutorID = autores.AutorID where noticiaid = "& cdbl(Noticia_ID) rrNoticiaImg_cmd.Prepared = true Set rNoticiaImg = rrNoticiaImg_cmd.Execute %> <%=rNoticiaImg.Fields.Item("NoticiaTitulo").Value%> | Sindicato SETH | Sindicato SETH"> | Sindicato SETH"> "> "> <% End if Else %> Sindicato SETH São José do Rio Preto <%End if%>
Sindicato SETH