<%@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%>
