RF Programação

Tõ com dificuldades em gravar as datas no padrão do mysql (yyyy/mm/dd), trata-se de um request no bd para alterar a data, achei alguns scripts mas nao deram certo.
Tô bem perdido, que puder me ajudar eu agradeço.

<%
DATA = replace(request.form("DATA"), "'", "")
set rs = conexao.execute("UPDATE TABELA SET DATA ='" & DATA & "' WHERE ID="& ID &"")
%>

<input name="DATA" type="text" size="18" value="<%= rs("DATA") %>">

Olá amigos... Tô com um problema no meu código, estou precisando colocar uma paginação em ASP com banco MySQL, mas não tá funcionando o link das páginas na paginação (ex: página 1 2 3 4). A página 1 carrega normal mas os demais links não funcionam...

<%
Session.LCID = 1046
XXXPalavra = request.form("Palavra")
If Request.Form("Palavra")<>"" Then
	  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)
%>
<%
dim conexao
Sub Abreconexao()
%>

<!--#Include File="conexao.asp"-->

<%
End Sub
Sub Fechaconexao()
conexao.Close()
Set conexao = Nothing
End Sub
%>
<%
Call Abreconexao()

'pega a pagina atual
pagina = request.ServerVariables("SCRIPT_NAME")

'NÚMERO DE REGISTROS POR PÁGINA...
pageSize = 10

if(len(Request.QueryString("p")) = 0 )then
  paginaAtual = 1
else
  paginaAtual = CInt(Request.QueryString("p"))
end if

' conta o número de registros...
sql = "SELECT COUNT(*) AS total FROM tabela WHERE NOME like '%"+XXXPalavra+"%' and DATA BETWEEN '"& dteInicial &"' and '"& dteFinal &"'  LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize
set rs = conexao.execute(sql)

'total de registros
recordCount = Cint(rs("total"))

'calculamos o numero de paginas...
pageCount = Clng(recordCount / pageSize)

If pageCount < 1 then
pageCount = 1
end if

rs.Close()

Flag1 = INT(paginaAtual / pagesize)

PI = INT(Flag1 * pagesize)

IF PI = 0 THEN
PI = 1
END IF
PF = PI + pagesize - 1
%>

<%
' selecionamos os registros...
sql = "SELECT * FROM tabela WHERE NOME like '%"+XXXPalavra+"%' and DATA BETWEEN '"& dteInicial &"' and '"& dteFinal &"'  LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize

set rs = conexao.execute(sql)
do while not rs.eof	  
%>

<div align="center">
<TABLE BORDER=0 width="681">
<% ID= rs("ID") %>

<tr>
<TD bgcolor="#D3D3D3" width="120" background="img/fundo_barra.jpg" style="background-repeat: repeat-x">
<font face="Verdana" size="2" color="#000000">
<a href="user_resultado_consulta.asp?ID=<%=ID%>" style="color: #3366CC">
Nome <% NOME=rs("NOME")%>
<% =rs("NOME")%>
</a>
</font>
</TD>

<TD bgcolor="#D3D3D3" width="499" background="img/fundo_barra.jpg" style="background-repeat: repeat-x">
<font face="Verdana" size="2" color="#000000">
<% =rs("DATA") %>
<% DATA=rs("DATA") %>
</font></TD></tr>

<tr><TD bgcolor="#F9F9F9" width="666" colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px">
<font face="Arial,Verdana" size="2" color="#808080"><% ASSUNTO=rs("ASSUNTO")%>
<% =ASSUNTO%>
</font></TD></tr>

<TR><TD width="666" colspan="3"> </TD></tr>
</table>

<%
rs.MoveNext()
loop

rs.Close()
set rs = nothing
Call Fechaconexao()
set conexao = nothing

Response.Write "<br>( Página " & paginaAtual & " de " & pagecount & " )"

' cria os links de paginas...
IF CInt(paginaAtual) > 1 THEN
Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> "
Else
Response.Write "<font color=""#ADADAD"">Primeira</font> "
END IF

if CInt(paginaAtual) > 1 then
Response.Write "<a href='"&pagina&"?p=" & paginaAtual - 1 &"'><</a> "
Else
Response.Write "<font color='#ADADAD'><</font> "
END IF

for i=1 to pageCount
  Response.Write("<a href='"&pagina&"?p=" & i & "'>" & i & "</a> ")
next
  
IF (CInt(paginaAtual) < pagecount) THEN
	 IF CInt(PF) <> pagecount THEN
   Response.Write "<a href='"&pagina&"?p=" & paginaAtual+1 & "'>></a> "
  END IF
Else
  Response.Write "<font color=""#ADADAD"">></font> "
END IF

IF (CInt(paginaAtual) <> pagecount) THEN
	 IF CInt(PF) <> pagecount THEN
   Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> "
  END IF
Else
  Response.Write "<font color=""#ADADAD"">Última</font> "
  END IF
  
end if
%>

Eu tinha um sistema de busca entre datas no access e agora estou passando para MySQL, o problema é que está dando erro...

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-5.1.31-community]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
/listagem.asp, line 75

<%
Session.LCID = 1046
hora = time()
%>
<%=Response.Write(hora)%>

<table><TR><TD  COLSPAN="4" ALIGN="CENTER" bgcolor="#ffffff"> </TD></TR>
<%
XXXPalavra = request.form("Palavra")
If Request.Form("Palavra")<>"" Then
	  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 conexao = CreateObject("ADODB.Connection")
abrir ="Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=xxx; UID=xxx; PWD=xxx;"
conexao.open abrir
%>
<%
set rs = conexao.execute("SELECT DISTINCT * FROM Processos WHERE NOME like '%"+XXXPalavra+"%' and DATA between #" +  dteInicial + "# and #" + dteFinal + "# ORDER BY NOME ASC")
if rs.eof = TRUE then
%><br><br><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nenhum registro !</font><br><br>
<% else 
Do While not rs.eof
%> 
<% ID= rs("ID") %>

<tr><TD bgcolor="#D3D3D3" width="154" background="img/fundo_barra.jpg" style="background-repeat:repeat-x">
<font face="Verdana" size="2" color="#000000">
<a href="resultado_consulta.asp?ID=<%=ID%>">
Proc. <% PROCESSO=rs("PROCESSO")%>
<% =rs("PROCESSO")%>
</a></font></TD>

<TD bgcolor="#D3D3D3" width="113" background="img/fundo_barra.jpg" style="background-repeat:repeat-x">
<font face="Verdana" size="2" color="#000000">
<% DATA=rs("DATA")%> (<% =DATA %>)
</font></TD>

<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>

<TD bgcolor="#FFFFFF" width="57"><p>
<a href="deletar_processo.asp?id=<%=ID%>"><img src="img/excluir.gif" alt="excluir ítem" border="0"></a> 
<a href="adm_altera_processo.asp?id=<%=ID%>"><img src="img/modificar.gif" alt="modificar ítem" border="0"></a>
</TD></tr>

<tr><TD bgcolor="#F9F9F9" width="625" colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px">
<font face="Arial,Verdana" size="2" color="#808080"><% ASSUNTO=rs("ASSUNTO")%><% =ASSUNTO%>
</font>
</TD>
<TD bgcolor="#FFFFFF" width="37"> </TD></tr>
<TR><TD width="625" colspan="3"> </TD>
<TD width="37"> </TD></tr>

<% 
rs.movenext
loop
end if 
end if
%>
</table>

Seria nessa parte o erro:
set rs = conexao.execute("SELECT DISTINCT * FROM Processos WHERE NOME like '%"+XXXPalavra+"%' and DATA between #" + dteInicial + "# and #" + dteFinal + "# ORDER BY NOME ASC")

Já estou batendo a cabeça...