busca + paginacao

[waag]

Oi pessoal

preciso de uma ajuda, meu codigo abaixo funciona muito bem, serve para buscar informacoes na tabela access. porem estou tentando fazer com que ele faça paginar depois de 10 informacoes por exemplo, ou seja que depois de 10 informacoes aparece uma opcao para ir para uma outra pagina e assim sucesivamente.

muito obrigado

<%
Dim strURL     
Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  
Dim strSQL    
Dim strSearch  
inicio = Timer


function TiraAcento(StrAcento)
 for i = 1 to len(StrAcento) 
  Letra = mid(StrAcento, i, 1)
  Select Case Letra
  
  End Select
  texto = texto & Letra
 next
 TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%>

          <td bgcolor="#FFFFFF"><form action="<%= strURL %>" method="get">
              
                <select name="search" id="search" >
                 
                </select>
              </font>
                <input name="submit" type="submit" value="Buscar" />
              </div>
            </form>
            
            <p align="center"> 
              <%
If strSearch <> "" Then

        strDBPath = Server.MapPath("tabela.mdb")
        
Const adUseClient = 3

 Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT nombre, ciudad " _
  & "FROM ventas " _
  & "WHERE ciudad LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
  & "OR ano LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
  & "ORDER BY precio"

 Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount

 %>

        <%

 rstSearch.Close
 Set rstSearch = Nothing
 cnnSearch.Close
 Set cnnSearch = Nothing
End If

%>

[.Andreia.]

Voce pode pesquisar em http://scriptbrasil.com.br/forum/index.php?showforum=62 tem vários exemplos de paginação