<% ' --------------------------------------------- ' Descrição das constantes ' --------------------------------------------- Menu_Ordem = 1 ' Ordem do Menu Const_Modulo = 3 ' Identifica o Modulo 3 => Saúde em Destaque Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "uniweb", "adm-uni", "" If request("nt") = "*" then strSQL = "SELECT dt_noticia, ds_titulo, ds_noticia, ds_link FROM U_CD_NOTICIAS WHERE TP_NOTICIA='*' AND ID_MODULO='" & Const_modulo & "' order by dt_noticia desc, hr_noticia desc" ElseIf request("nt") <> "" then strSQL = "SELECT dt_noticia, ds_titulo, ds_noticia, ds_link FROM U_CD_NOTICIAS WHERE SQ_NOTICIA='" & request("nt") & "' AND ID_MODULO='" & Const_modulo & "'" Else strSQL = "SELECT dt_noticia, ds_titulo, ds_noticia, ds_link FROM U_CD_NOTICIAS WHERE ID_MODULO='" & Const_modulo & "' and dt_noticia <='" & Converte_Data(date()) & "' order by dt_noticia desc, hr_noticia desc" End If Set Noticias = objConn.Execute(strSQL) If not Noticias.EOF then If Noticias("DS_LINK") <> "" Then Response.Redirect Noticias("ds_link") Else %> Saúde em Destaque <% Response.Write("" & Mostra_Data(Noticias("DT_NOTICIA")) & "") %>

<%= Noticias("DS_TITULO")%>

<%= Mostra_Texto(Noticias("DS_NOTICIA"))%>

<% End If Else %> Saúde em Destaque






Notícia não Encontrada








<% End If %>