<%pagina = 1%> <%if request("msg") = 2 then%> <%end if%>

<%if request.QueryString("det") <> "" then%> <%end if%> <%if request.QueryString("det") <> "" then%> <%end if%> » voltar <% if request.QueryString("det") = "" then StrSQL = "SELECT * from tbs_editorial where status = 1" Conecta ObjAdoConnd, StrSQL, oRecSet if not oRecSet.EOF then %> <% If Session("pSize") = "" Then varPagSize = 50 oRecSet.PageSize = varPagSize varPagCount = oRecSet.PageCount If varPag > varPagCount Then varPag = varPagCount End If oRecSet.AbsolutePage = varPag While Not oRecSet.EOF And varCount <= varPagSize %> <% varCount = varCount + 1 oRecSet.MoveNext() Wend End If if oRecSet.RecordCount > 50 then%> <% end if Desconecta ObjAdoConnd, oRecSet %> "><%=oRecSet("titulo")%> "><%=oRecSet("resenha")%> ">+ Detalhes <%fnPaginacao "index.asp?", 1%> <%else%> <% StrSQL = "SELECT * from tbs_editorial where id="& sBDTratarNumero(request("id")) &" and status = 1" Conecta ObjAdoConn, StrSQL, RS if not RS.EOF then %> <% end if Desconecta ObjAdoConn, RS %> <%=RS("titulo")%> <%=replace(RS("conteudo"),chr(13)," ")%> <%end if%> » voltar Destaques + Destaques Notícias + Notícias <%dim ObjAdoConn, StrSQL, RS StrSQL = "SELECT top 2 * from tbs_destaque where status = 1 order by id desc" Conecta ObjAdoConn, StrSQL, RS if not RS.EOF then indx = 0 do Until RS.EOF %> <% RS.MoveNext() loop else end if Desconecta ObjAdoConn, RS %> " class="links"> " width="89" height="71" align="top"> " class="links"> <%=RS("titulo")%> <%=RS("Resenha")%> <%dim ObjAdoConnNot, StrSQLNot, RSNot StrSQLNot = "SELECT top 2 * from tbs_noticia where Notstatus = 1 order by Notid desc" Conecta ObjAdoConnNot, StrSQLNot, RSNot if not RSNot.EOF then indx = 0 do Until RSNot.EOF %> <%if RSNot("NotImagem") <> "" then%> <%end if%> <% RSNot.MoveNext() loop else end if Desconecta ObjAdoConnNot, RSNot %> <%=DataFormato(RSNot("NotDataCadastro"),"dma")%> " class="links"> " width="89" height="71" align="top"> " class="links"> <%=RSNot("Nottitulo")%> <%=RSNot("NotResenha")%>