<%
pg = TRIM(Request("pg"))
If pg = "" Then pg = 1
Call AbreConexao()
'Set con = Server.CreateObject("ADODB.Connection")
'caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Meus documentos compartilhados\Casagrande\site\site novo\dados\ccg.mdb;Persist Security Info=False"
'con.open caminho
sql = "select * from Tbl_Fas where publicar='sim'"
Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.ActiveConnection = con
rs.CursorLocation = 3 ' ou adUseClient
rs.CursorType = 3 'ou adOpenStatic
rs.PageSize = 1 ' número de itens por página
rs.CacheSize = 1
rs.Open sql
rs.AbsolutePage = pg ' informa a primeira página de registros que deve ser mostrada
%>
.:: Fas::.
<% If rs.PageCount > 1 Then %>
<%
For i = 1 to rs.PageCount
If i <> Cint( pg ) Then
%>
|<%=i%>|
<% Else %>
|<%=i%>|
<% End If %>
<% Next %>
<% End If %>
<%
While not rs.eof and rowCount < rs.PageSize
rowCount = rowCount + 1
%>