<% If Noticia_ID <> "" Then ID = cdbl(Noticia_ID) End If if request.QueryString("id") <> "" then if isnumeric(request.QueryString("id")) = true then ID = cint(request.QueryString("id")) end if end if Function DataZ(data) DataZ = day(data)&"/"&month(data)&"/"&year(data)&" "&hour(data)&":"&minute(data)&":"&second(data) End Function Dim rNoticias Dim rNoticias_cmd Dim rNoticias_numRows Set rNoticias_cmd = Server.CreateObject ("ADODB.Command") rNoticias_cmd.ActiveConnection = MM_Loja_STRING rNoticias_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 = "&ID rNoticias_cmd.Prepared = true Set rNoticias = rNoticias_cmd.Execute rNoticias_numRows = 0 %> <% Ano = Year(Date) Mes = Month(Date) Dia = Day(Date) DATA = Ano &"-"& Mes &"-"& Dia %> <% Dim NoticiasR Dim NoticiasR_cmd Dim NoticiasR_numRows Set NoticiasR_cmd = Server.CreateObject ("ADODB.Command") NoticiasR_cmd.ActiveConnection = MM_Loja_STRING NoticiasR_cmd.CommandText = "Select noticias.NoticiaTitulo, noticias.NoticiaSubtitulo, noticias.NoticiaData, noticias.NoticiaImagem, noticias.NoticiaID, categoria.CategoriaID, categoria.CategoriaNome, categoria.CategoriaOrdem, noticias.noticianoar from noticias inner join categoria on noticias.NoticiaCategoria = categoria.CategoriaID where noticiaid <> "&rNoticias.fields.item("noticiaid").value&" ORDER BY NoticiaNoAr DESC LIMIT 4" NoticiasR_cmd.Prepared = true Set NoticiasR = NoticiasR_cmd.Execute NoticiasR_numRows = 0 %>

<%=rNoticias("NoticiaTitulo")%>

<%=rNoticias("NoticiaSubtitulo")%>

<%=(rNoticias("CategoriaNome"))%> - <%=DataZ(rNoticias("NoticiaNoar"))%> » Por <%=(rNoticias("AutorNome"))%>

<% If Not IsNull(rNoticias("NoticiaAtualizada")) And rNoticias("NoticiaAtualizada") <> "" Then %>

Atualizado em <%=Day(rNoticias("NoticiaAtualizada"))%>/<%=Month(rNoticias("NoticiaAtualizada"))%>/<%=Year(rNoticias("NoticiaAtualizada"))%> <%=Hour(rNoticias("NoticiaAtualizada"))%>:<%=Minute(rNoticias("NoticiaAtualizada"))%>h

<% End If %>

<%=rNoticias("NoticiaCorpo")%>

Notícias Relacionadas

<%while not NoticiasR.eof%> /<%=Nome_Url(NoticiasR.fields.item("noticiaTitulo").value)%>" class="card card-horizontal my-4 text-decoration-none border border-0">

" class="img-fluid rounded-1" alt="<%=NoticiasR.fields.item("noticiatitulo").value%>">

<%=NoticiasR.fields.item("categorianome").value%> <%=FormatarData(NoticiasR.Fields.Item("NoticiaNoar").Value)%>

<%=NoticiasR.fields.item("noticiatitulo").value%>

<%NoticiasR.movenext() wend%>