Agenda de atividades
<% Set rs = server.CreateObject("ADODB.Recordset") 'Busca os produtos em que a categoria foi armazenada na variavel vcategoria rs.Open "SELECT * FROM Agenda order by cdate(AGE_data) Desc", Conexao, 3, 3 rs.PageSize = 8 rs.CacheSize = 6 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_Age") AGE_data = FormatDateTime(rs("Age_data"), 2) AGE_atividade = rs("AGE_atividade") AGE_local = rs("AGE_local") AGE_texto = rs("AGE_texto") AGE_foto = rs("AGE_foto") AGE_link = rs("AGE_link") AGE_url = rs("AGE_url") %> <%rs.Movenext intRec = intRec + 1 Wend %>
<%=AGE_data%>
<% if AGE_foto <> "" then Response.Write("") end if %> <%=AGE_atividade%>
<%=AGE_local%>
VER MAIS INFORMAÇÕES »

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