<%@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 Set FraseDia_cmd = Server.CreateObject ("ADODB.Command") FraseDia_cmd.ActiveConnection = MM_Loja_STRING FraseDia_cmd.CommandText = "Select * from chamadas where sessaoid = 9 order by chamadanoar desc limit 10" FraseDia_cmd.Prepared = true Set FraseDia = FraseDia_cmd.Execute %> Sindicato Seth <% 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 %> "> "> <% End If End If %>

Últimas notícias »

<% Area.Requery() Menu.Requery() %>

SINDICATO  DOS  EMPREGADOS
EM TURISMO E HOSPITALIDADE
SÃO JOSÉ DO RIO PRETO E REGIÃO

entre em contato conosco
17 3203.0077
<% Area.Requery() Menu.Requery() %> <% Area.Requery() Menu.Requery() %>