<% call abre_conexao hoje = year(now)&"/"&month(now)&"/"&day(now) sql = "SELECT * FROM eventos WHERE data >= #"&hoje&"# ORDER BY data" Set RS = Server.CreateObject("adodb.recordset") RS.PageSize =paginacao RS.Open sql, objconexao,3,3 IF RS.EOF then response.Write "Nenhum registro encontrado" Response.End ELSE 'Definindo em qual pagina o visitante est� IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF Request.QueryString("pagina")<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 z="#FFAAC8" end if do While intrec < RS.PageSize and not RS.EOF %> <% rs.movenext intrec=intrec+1 loop %>

Evento	Foto	Horário	Data
<%=rs("nome")%> " target="blank">Ver Detalhes	" target="blank">" alt='Swing Inner Club' />	<%=rs("horario")%> hs	<%=rs("data")%>