<%
nMaxRows = 25 'Aqui setamos quantos registros serão listados por página
cNextLabel = "»"
cPreviousLabel = "«"
Call AbreConexao()
Tabela.CursorLocation = 3 'Definimos o cursor a ser utilizado
Tabela.PageSize = nMaxRows
Tabela.CacheSize = nMaxRows
Tabela.ActiveConnection = Conexao
Tabela.Open "SELECT codigo,titulo,inicio,estado,cidade FROM tbl_eventos USE INDEX(fim) WHERE autorizado='S' AND fim > '"&SqlDate(date)&"' ORDER BY inicio"
Color = False
PageName = Request.ServerVariables("SCRIPT_NAME")
SortField = Request.Form("_SortField")
MaxPage = Tabela.PageCount
nrTotalRows_ = Tabela.RecordCount
ActualPage = min( max( int( "0" & Request.Form( "page" ) ), 1 ), MaxPage )
If Request.Form("_SortOrdem") = "DESC" Then
SortOrdem = "ASC"
Else
SortOrdem = "DESC"
End IF
if len( SortField ) > 0 then Tabela.Sort = SortField
cSearchFieldName = Request.form( "_PGC_Fields" )
cSearchOperator = Request.form( "_PGC_Operator" )
cSearchText2Search = Request.form( "_PGC_Text2Search" )
cSearchType = Request.form( "FieldType" )
if len( cSearchText2Search & "" ) > 0 then
Text2SearchOk = false
select case cSearchType
case "D": if IsDate( cSearchText2Search ) then
Text2SearchOk = true
Criteria = "#" & CDate( cSearchText2Search ) & "#"
if cSearchOperator = "like" then cSearchOperator = "="
end if
case "N": if IsNumeric( cSearchText2Search ) then
Text2SearchOk = true
Criteria = CDbl( cSearchText2Search )
if cSearchOperator = "like" then cSearchOperator = "="
end if
case "B": if IsNumeric( cSearchText2Search ) then
Text2SearchOk = true
Criteria = iif( CBool( cSearchText2Search ), "true", "false" )
if cSearchOperator <> "=" and cSearchOperator <> "<>" then cSearchOperator = "="
end if
case "C": Text2SearchOk = true
if cSearchOperator = "like" then
Criteria = "'%" & replace( cSearchText2Search, "'", "''" ) & "%'"
else
Criteria = "'" & replace( cSearchText2Search, "'", "''" ) & "'"
end if
end select
if Text2SearchOk then
Criteria = cSearchFieldName & " " & cSearchOperator & " " & Criteria
Tabela.filter=Criteria 'Processa a pesquisa
if Tabela.eof then
ActualPage = MaxPage
else
ActualPage = Tabela.AbsolutePage
if ( Tabela.AbsolutePosition mod nMaxRows ) > 1 and ActualPage < MaxPage then
ActualPage = ActualPage + 1 'Se sobram registros, some uma página
end if
end if
else
cSearchText2Search = " não encontrado! "
end if
end if
%>
ARLS Libertas 35 - Eventos
Carregando... Por favor espere até que esta página seja carregada por completo.
Eventos
Veja lista de eventos a serem realizados por todo o Brasil.
