SETRANS - RJ

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> SETRANS - RJ <% if filtra_url(request.querystring) = "fail" then response.redirect("default.asp") end if %> <% 'Criando um Recordset "RSConsulta" set RSConsulta = Server.CreateObject("ADODB.Recordset") RSConsulta.ActiveConnection = MM_conn_STRING RSConsulta.CursorLocation = 2 RSConsulta.CursorType = 3 strTitulo="Select ne_id, ne_idFoto, (select fa_nomeFoto from Fotografia where ne_idFoto = fa_id) as nomeFoto, (select fa_data from Fotografia where ne_idFoto = fa_id) as dtFoto, (select fa_posicao from Fotografia where ne_idFoto = fa_id) as Posicao, (select fg_nome from Fotografo, Fotografia where ((ne_idFoto = fa_id) and fa_idFotografo = fg_id)) as nomeFotografo, ne_resumo, ne_titulo, ne_status, ne_dataMateria, ne_hora_cadastrada From NoticiaEditada where ne_publica = 's' and ne_status = 'destaque' and ((datediff(dd,ne_dataMateria,getdate()) > 0) or ((datediff(dd,ne_dataMateria,getdate()) = 0 and ne_hora_cadastrada < (convert(varchar(5),getdate(),114))))) order by ne_dataMateria desc" RSConsulta.Open strTitulo,,,,adCmdText If RSConsulta.EOF then strMsg="

Não há notícia de Destaque!

" End if 'Criando um Recordset "RSConsulta1" set RSConsulta1 = Server.CreateObject("ADODB.Recordset") RSConsulta1.ActiveConnection = MM_conn_STRING RSConsulta1.CursorLocation = 2 RSConsulta1.CursorType = 3 strTitulo1="SELECT ne_id, ne_titulo, ne_resumo, ne_status, ne_idFoto, ne_datamateria, ne_hora_cadastrada FROM NoticiaEditada where ne_publica = 's' and ne_status <> 'Destaque' and ne_status <> 'Informe' and ((datediff(dd,ne_dataMateria,getdate()) > 0) or ((datediff(dd,ne_dataMateria,getdate()) = 0 and ne_hora_cadastrada < (convert(varchar(5),getdate(),114))))) order by ne_status, ne_dataMateria desc" RSConsulta1.Open strTitulo1,,,,adCmdText If RSConsulta1.EOF then strMsg1="

Não há notícia de Capa!

" End if 'Criando um Recordset "sqlServico" set rsServico = Server.CreateObject("ADODB.Recordset") rsServico.ActiveConnection = MM_conn_STRING rsServico.CursorLocation = 2 rsServico.CursorType = 3 sqlServico = "select * from Servicos where Destaque = 1 AND Ativo = 1 " rsServico.Open sqlServico,,,,adCmdText %> <% 'If (Now < CDate("05/02/2007 12:00:00")) then %> <%' else%>

Bem-vindo ao JT OnLine

Secretaria de Transportes do Estado do Rio de Janeiro - 2008

	Home
	Notícias

Entrevistas

Artigos

Fale Conosco

Expediente

Secretaria de Estado de Transportes do Estado do Rio de Janeiro - Setrans-RJ
Av. Nsa. Sra. de Copacabana, 493 - 11º andar - Copacabana -
Rio de Janeiro/RJ - Brasil
Cep: 22.031-000
Telefone: 3816-6166
www.transportes.rj.gov.br

Secretário: Julio Luiz Baptista Lopes

Expediente - Jornal dos Transportes
Equipe: Ana Karine, Gustavo Marialva, Pauline Mendel e
Iran Rodrigues
Fotógrafo: Fábio Ferreira
Email: redacao@transportes.rj.gov.br

<%' End if %>

Desenvolvido pela Coordenadoria de Informática - Setrans