<% Set rs_RecordsetNoticias_cmd = Server.CreateObject ("ADODB.Command") rs_RecordsetNoticias_cmd.ActiveConnection = MM_Loja_STRING rs_RecordsetNoticias_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 ORDER BY NoticiaNoAr DESC LIMIT 6" rs_RecordsetNoticias_cmd.Prepared = true Set rs_RecordsetNoticias = rs_RecordsetNoticias_cmd.Execute Dim rs_Recordset Dim rs_Recordset_cmd sub chamaSessao(sessao, limite) Set rs_Recordset_cmd = Server.CreateObject ("ADODB.Command") rs_Recordset_cmd.ActiveConnection = MM_Loja_STRING rs_Recordset_cmd.CommandText = "select ChamadaTitulo, ChamadaTexto, ChamadaNoar, ChamadaImagem, ChamadaUrl, ChamadaID, sessoes.SessaoID as SessaoID, sessoes.SessaoNome as SessaoNome from chamadas inner join sessoes on chamadas.SessaoID = sessoes.SessaoID where sessoes.SessaoID = "&sessao&" order by chamadanoar desc limit "&limite rs_Recordset_cmd.Prepared = true Set rs_Recordset = rs_Recordset_cmd.Execute end sub sub chamaNoticia(sessao, limite) Set rs_Recordset_cmd = Server.CreateObject ("ADODB.Command") rs_Recordset_cmd.ActiveConnection = MM_Loja_STRING rs_Recordset_cmd.CommandText = "select noticias.NoticiaTitulo, noticias.NoticiaSubtitulo , noticias.NoticiaData, noticias.NoticiaImagem , noticias.NoticiaID , categoria.CategoriaID , categoria.CategoriaNome, noticias.noticianoar from noticias inner join categoria on noticias.NoticiaCategoria = categoria.CategoriaID where categoria.CategoriaID = "&sessao&" order by noticianoar desc limit "&limite rs_Recordset_cmd.Prepared = true Set rs_Recordset = rs_Recordset_cmd.Execute end sub sub chamaPublicidade(sessao, limite) Set rs_Recordset_cmd = Server.CreateObject ("ADODB.Command") rs_Recordset_cmd.ActiveConnection = MM_Loja_STRING rs_Recordset_cmd.CommandText = "select PublicidadeNome, PublicidadeArquivo, PublicidadeLink, PublicidadeTipo from publicidade where publicidadetipo = "&sessao&" order by publicidadeid desc limit "&limite rs_Recordset_cmd.Prepared = true Set rs_Recordset = rs_Recordset_cmd.Execute end sub %> <% chamaSessao 13, 10 if not rs_Recordset.eof then %>
<%End if%>
<% chamaSessao 1, 5 if not rs_Recordset.eof then %> <%end if%>
<% chamaSessao 12, 1 while not rs_Recordset.eof %> " class="destaque1 mb-3">
" class="rounded-1 w-100" style="object-fit: cover;">

<%=FormatarData(rs_Recordset.fields.item("chamadanoar").value)%>

<%=rs_Recordset.fields.item("chamadatitulo").value%>

 <%rs_Recordset.movenext() wend%> <% chamaSessao 3, 1 while not rs_Recordset.eof %> " class="destaque1 mb-3">
" class="rounded-1 w-100" style="aspect-ratio: 16/12;object-fit: contain;">

<%=FormatarData(rs_Recordset.fields.item("chamadanoar").value)%>

<%=rs_Recordset.fields.item("chamadatitulo").value%>

 <%rs_Recordset.movenext() wend%>
<% chamaSessao 2, 10 if not rs_Recordset.eof then %>

Jornal SETH

<%end if%> <% chamaPublicidade 1, 1 if not rs_Recordset.eof then %>
">" class="img-fluid rounded-1">
<%End if%> <% chamaSessao 11, 10 if not rs_Recordset.eof then %>

Destaques de São José do Rio Preto

<%End if%> <% chamaSessao 15, 10 if not rs_Recordset.eof then %>

Links Importantes

<%End if%>
<%chamaNoticia 1, 3%>

Notícias Jurídicas

<%if not rs_Recordset.eof then%> /<%=Nome_Url(rs_Recordset.fields.item("noticiaTitulo").value)%>" class="destaque1 my-5">
" alt="<%=rs_Recordset.fields.item("noticiatitulo").value%>" class="rounded-1 w-100 aspect-video">

<%=FormatarData(rs_Recordset.Fields.Item("NoticiaNoar").Value)%>

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

 <%rs_Recordset.movenext() End if %> <%while not rs_Recordset.eof%> /<%=Nome_Url(rs_Recordset.fields.item("noticiaTitulo").value)%>" class="card card-horizontal my-4 text-decoration-none border border-0">
" class="img-fluid rounded-1" alt="<%=rs_Recordset.fields.item("noticiatitulo").value%>">

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

<%=rs_Recordset.fields.item("noticiatitulo").value%>
 <% rs_Recordset.movenext() wend %>
<%chamaNoticia 2, 3%>

Turismo

<%if not rs_Recordset.eof then%> /<%=Nome_Url(rs_Recordset.fields.item("noticiaTitulo").value)%>" class="destaque1 my-5">
" alt="<%=rs_Recordset.fields.item("noticiatitulo").value%>" class="rounded-1 w-100 aspect-video">

<%=FormatarData(rs_Recordset.Fields.Item("NoticiaNoar").Value)%>

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

 <%rs_Recordset.movenext() End if %> <%while not rs_Recordset.eof%> /<%=Nome_Url(rs_Recordset.fields.item("noticiaTitulo").value)%>" class="card card-horizontal my-4 text-decoration-none border border-0">
" class="img-fluid rounded-1" alt="<%=rs_Recordset.fields.item("noticiatitulo").value%>">

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

<%=rs_Recordset.fields.item("noticiatitulo").value%>
 <% rs_Recordset.movenext() wend %>
<% chamaPublicidade 3, 1 if not rs_Recordset.eof then %>
">" class="img-fluid rounded-1">
<%End if%>

Últimas Notícias

<%while not rs_RecordsetNoticias.eof%> /<%=Nome_Url(rs_RecordsetNoticias.fields.item("noticiaTitulo").value)%>" class="card card-horizontal my-4 text-decoration-none border border-0">
" class="img-fluid rounded-1" alt="<%=rs_RecordsetNoticias.fields.item("noticiatitulo").value%>">

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

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

<%=rs_RecordsetNoticias.fields.item("noticiasubtitulo").value%>

 <%rs_RecordsetNoticias.movenext() wend%> Ver tudo >
<% chamaPublicidade 5, 1 if not rs_Recordset.eof then %>
">" class="img-fluid rounded-1">
<%End if%> <% chamaSessao 5, 3 if not rs_Recordset.eof then %>

Galeria

">

<%=FormatarData(rs_Recordset.Fields.Item("chamadaNoar").Value)%>

<%=rs_Recordset.fields.item("chamadatitulo").value%>
 <%rs_Recordset.movenext() %>
<%while not rs_Recordset.eof%> /<%=Nome_Url(rs_Recordset.fields.item("chamadaTitulo").value)%>" class="card card-horizontal my-4 text-decoration-none border border-0">
" class="img-fluid rounded-1">

<%=FormatarData(rs_Recordset.Fields.Item("chamadaNoar").Value)%>

<%=rs_Recordset.fields.item("chamadatitulo").value%>
 <% rs_Recordset.movenext() wend %> Ver tudo >
<%End if%> <% chamaSessao 10, 10 if not rs_Recordset.eof then %>
Filiações: <%while not rs_Recordset.eof%> ">" alt="<%=rs_Recordset.fields.item("chamadatitulo").value%>"> <% rs_Recordset.movenext() wend %>
<%End if%>