paginação

[Guest --Dé --]

estou tentando adaptar um arquivo que peguei mas o caminho que ele usa para o banco é diferente doque eu uso alendo mais o meu banco tem senha alguém poderia me ajuadar como indico o caminho local neste arqui e autentique a senha do banco.

codigo que tenho:

<!--#INCLUDE file="conexao.asp"-->
<% 
'Efetuando a conexão com a base de dados criada
Set conexao = Server.CreateObject("AdoDb.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("clientes.mdb") 
conexao.open 

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,
'pois vamos utilizar algumas funções deste objeto 
Set RS = Server.CreateObject("adodb.recordset")
%>
<!------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------->
<%
RS.PageSize = 3 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos
SQL = "select * from contatos" 
RS.Open SQL,conexao,3,3

'Vamos agora verificar exceções do tipo "fim de arquivo" (EOF), se a página atual é menor 
'que zero, se é maior que o número total de páginas, etc.
IF RS.EOF then 
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
ELSE
   'Definindo em qual pagina o visitante está
   IF Request.QueryString("pagina")="" then 
      intpagina=1 
   ELSE
      IF cint(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
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 
RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
intrec=0
%>
<!------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------->
<style type="text/css">
<!--
.style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: xx-small; font-weight: bold; }
.style3 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: xx-small; }

-->
</style>
  <table width="300" border="1" cellspacing="1" cellpadding="2">
  <%
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo 
While intrec < RS.PageSize and not RS.EOF %> 
<tr>
    <td class="style3"><%response.write RS("nome")%></td>
    <td class="style3"><%response.write RS("email")%></td>
</tr>
 <% RS.MoveNext
   ' Acrescenta +1 ao contador
   intrec=intrec+1 
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then 
      response.write " " 
   END IF
Wend 'fim do loop
%>
</table>
<table width="300" border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
  <tr>
    <td align="center"><%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 
IF intpagina > 1 then 
%>
      <a href="modelo.asp?pagina=<%=intpagina-1%>" class="style2">Anterior</a></td>
    <td align="center"><% 
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,RS.PageCount) <> 0 then 
%>
      <a href="modelo.asp?pagina=<%=intpagina + 1%>" class="style2">Próxima</a>
      <% 
END IF
%>
</td>
  </tr>
</table>

codigo da conecção que estou usando

Set conexao = Server.CreateObject ("ADODB.Connection")
    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\Paginação\dados_cript.mdb; Jet OLEDB:Database Password="&chr(51)&chr(108)&chr(95)&chr(100)&chr(56)&chr(45)&chr(99)&chr(55)&chr(95)&chr(103)&chr(49)&chr(50)&chr(45)&chr(98)&chr(49)&chr(57)&" "

Aguardo obrigado

[jothaz]

Retorna algum erro?

Se retornar favor postar para facilitar a ajuda.

[Marcos-rj]

você tentou substituir a conexao que veio no código pela sua?