<% 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 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 %> <%End if%>
<% 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

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