Sobre o IZB
  <% SELECIONA="SELECT * FROM Fixas order by FIX_chapeu" set rs=Conexao.execute(SELECIONA) '=============================| Fixas lista| x = 0 while not rs.eof and x <= 50 FIX_id = rs("ID_FIX") FIX_chapeu = rs("FIX_chapeu") FIX_secao = rs("FIX_secao") %> <% x = x + 1 rs.movenext wend %>
<%=FIX_secao%>
   
    Agenda
    Artigos e entrevistas
    Álbum de Atividades
    Notícias
    Fotos
   
   Formação
    Biblioteca Marxista
   
    Links


    NotÍcias


<% Set rs = server.CreateObject("ADODB.Recordset") 'Busca os produtos em que a categoria foi armazenada na variavel vcategoria rs.Open "SELECT * FROM Noticias order by cdate(NOT_data) desc", Conexao, 3, 3 rs.PageSize = 30 rs.CacheSize = 5 rs.Move = 0 if request.querystring("pagina")= "" then intpagina = 1 else if Cint(request.querystring("pagina")) < 1 then intpagina = 1 elseif Cint(request.querystring("pagina")) > rs.Pagecount then intpagina = rs.Pagecount else intpagina = Cint(request.querystring("pagina")) end if end if rs.AbsolutePage = intpagina intRec= 0 While intRec < rs.pagesize AND NOT rs.EOF count=count + 1 id = rs("ID_NOT") NOT_data = FormatDateTime(rs("NOT_data"), 2) NOT_titulo = rs("NOT_titulo") NOT_credito1 = rs("NOT_credito1") %> <%rs.Movenext intRec = intRec + 1 Wend %>
<%=NOT_data%>
 <%=NOT_titulo%>

<% 'INICIO DA PAGINAÇÃO Response.Write "" Response.Write "" paginacao = 1 while paginacao < rs.Pagecount + 1 if intpagina = paginacao then Response.Write "" else Response.Write "" end If paginacao = paginacao + 1 wend Response.Write "" Response.Write "
"%> <%=paginacao%> <% Response.Write "" %> <%=paginacao%> <%Response.Write "
" 'FIM DA PAGINAÇÃO %>

 

<% SELECIONA="SELECT * FROM Agenda where AGE_Tipo = 'capa' order by AGE_data" set rs=Conexao.execute(SELECIONA) '=============================| Agenda lista| x = 0 while not rs.eof and x <= 0 AGE_id = rs("ID_Age") AGE_data = FormatDateTime(rs("AGE_data"), 2) AGE_atividade = rs("AGE_atividade") AGE_foto = rs("AGE_foto") AGE_local = rs("AGE_local") AGE_texto = rs("AGE_texto") %> <% x = x + 1 rs.movenext wend %>

<% SELECIONA="SELECT * FROM Artigos order by ART_data Desc" set rs=Conexao.execute(SELECIONA) '=============================| Notícia lista| x = 0 while not rs.eof and x <= 2 id = rs("ID_ART") ART_data = FormatDateTime(rs("ART_data"), 2) ART_titulo = rs("ART_titulo") ART_credito1 = rs("ART_credito1") %> <% x = x + 1 rs.movenext wend %>
Ch2design