RF Programação

Caso resolvido, pode encerrar o tópico.

Consegui resolver o problema , mas agora tá dando um erro meio estranho:
Aparece os links (1, 2, 3, 4) e só depois que clico em um deles é que aparece o resto dos links (1, 2, 3, 4, 5, 6, 7, 8)
Alguém já viu isso?

Amigo, estou usando o seu código, parece ser mais simples... mas o problema persiste, carrega a primeira página normalmente mas não carrega as páginas seguintes, ficando o resultado em branco nas demais páginas. Acredito que possa ser o meu Select com os parâmetros BETWEEN, pois testei sem e funcionou.
Alguma ajuda? Preciso fazer a comparação entre datas durante a busca.
Segue o código:

<%
Set conn = CreateObject("ADODB.Connection")
abrir ="Driver={MySQL ODBC 3.51 Driver}; SERVER=xxxx; DATABASE=xxxxx; UID=xxxx; PWD=xxxx;"
conn.open abrir
%>

<%
Session.LCID = 1046
XXXPalavra = request.form("Palavra")
	  dim dteInicial	  
	  dteInicial = Request.Form("txtDataInicial")
	  dteInicial = Year(dteInicial) & "-" & Month(dteInicial) & "-" & Day(dteInicial)
	 
	  dim dteFinal	  
	  dteFinal = Request.Form("txtDataFinal")
	  dteFinal = Year(dteFinal) & "-" & Month(dteFinal) & "-" & Day(dteFinal)
%>

<%
Set rs = Server.CreateObject("ADODB.Recordset")
Const numpag=5 'quantidade por pagina
Conn.CursorLocation=3 'AdUseClient

intCurrPage=cint(Request.QueryString("CurrPage"))

if intCurrPage=0 then intCurrPage=1

'AQUI SEU SELECT ***************************************
set rs = conn.execute ("SELECT * FROM tabela WHERE NOME like '%"+XXXPalavra+"%' and DATA BETWEEN '"& dteInicial &"' and '"& dteFinal &"' ORDER BY NOME ASC")


IF rs.EOF then 
Response.Write "<div align=""center"" class=""TextoNegritoCinzaEscuro"">NENHUMA COBERTURA CADASTRADA</span></div>"
else
rs.PageSize=numpag
rs.AbsolutePage=intCurrPage
end if 

a=0 
i=0
while a < numpag and not rs.EOF
a=a+1
i=i+1
'Conteúdo************************************************************
%>
<TD bgcolor="#D3D3D3" width="370" background="img/fundo_barra.jpg" style="background-repeat:repeat-x">
<font face="Verdana" size="2" color="#000000">
<% =rs("NOME") %>
<% NOME=rs("NOME") %>
</font>
</TD>

<%
Rs.MoveNext()
Wend
%>
<div style="float:left;" class="TextoPreto2"><b>Páginas:</b>
<%
for a = 1 to rs.PageCount
if a <> intCurrPage then 
Response.Write "<a class=""LinkVermelhoNegrito"" href='"&pagina&"?Currpage=" & a & "'>" & a & "</a>&nbsp;"
else
Response.Write "<span class=""TextoPreto2""><b>[&nbsp;"& a & "&nbsp;]&nbsp;</b></span>"
end if
next
%>
</div>

E ae gente, alguém sabe pq a paginação dá problema quando uso os parâmetros BETWEEN?
O BETWEEN que uso para fazer buscas entre datas, funciona perfeitamente.

Opa! Problema resolvido, o # é só no access que funciona, agora tá funcionado. Pode fechar o tópico!