Nenhuma resposta neste tópico

[locoman]

Estou com um problema com paginação, somente a primeira pagina funciona, as paginas de 2 endiante retorna o erro a seguir

***************************************************************************
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 5.1 Driver][mysqld-5.1.54-rel12.6-log]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 'and url_subcategoria = '2'' at line 1/funcoes/funcoes.asp, line 271
***************************************************************************

A query que retorna o erro está logo abaixo (LINHAS de 264 à 280)

***************************************************************************
264- if request("url_subcategoria") <> "" then
265-
266-
267- Set RS_Subcategoria = Server.CreateObject("ADODB.Recordset")
268- RS_Subcategoria.CursorLocation = 3
269- RS_Subcategoria.CursorType = 0
270- RS_Subcategoria.LockType = 1
271- RS_Subcategoria.Open "SELECT codigo_subcategoria, h1_subcategoria, nome_subcategoria FROM Subcategorias WHERE sigla_idioma='"&varLang&"' AND codigo_categoria = "&codcat &" and url_subcategoria = '"&request("url_subcategoria")&"'" , Conexao

272- codsubcat = RS_Subcategoria("codigo_subcategoria")
273- 'Fecha e libera da memória o objeto de Recordset
274- RS_Subcategoria.close
275- Set RS_Subcategoria = Nothing
276-
277-
278- 'codsubcat = pega_dadobanco("Subcategorias","codigo_subcategoria","url_subcategoria","'"&request("url_subcategoria")&"'")
279-
280- end if
***************************************************************************

Abaixo:
' FctStrAdicional monta uma string com as variavies relacionados ao produto/busca.
' - As variaveis (CODIGO_SUBCATEGORIA/NOME_SUBCATEGORIA/CODIGO_CATEGORIA/NOME_CATEGORIA/PROCURA).

***************************************************************************
<%


if (request("url_marca") <> "" or url_marca_busca <> "" ) and request("url_categoria") = "" and request("url_subcategoria") = "" then

if request("url_marca") <> "" then

VarStrAdicional = var_url & "m/" & request("url_marca") & "/"

else

VarStrAdicional = var_url & "m/" & url_marca_busca & "/"

end if

elseif request("url_marca") = "" and request("url_categoria") <> "" and request("url_subcategoria") = "" then

VarStrAdicional = var_url & request("url_categoria") & "/"

elseif request("url_marca") = "" and request("url_categoria") <> "" and request("url_subcategoria") <> "" then

VarStrAdicional = var_url & request("url_categoria") & "/" & request("url_subcategoria") & "/"

elseif request("tipo_busca") = "promocao" then


VarStrAdicional = var_url & "promocao/"

elseif request("tipo_busca") = "maisvendidos" then

VarStrAdicional = var_url & "maisvendidos/"

elseif request("tipo_busca") = "lancamentos" then

VarStrAdicional = var_url & "lancamentos/"

elseif request("tipo_busca") = "tag" then

VarStrAdicional = var_url & "t/" & request("tag") & "/"

end if

%>
***************************************************************************

E logo abaixo minha FUCTION DE PAGINAÇÃO

***************************************************************************

<!--'########################################################################################################
'FUNCTION paginacao
' - Monta os links de páginação.
' - Usado onde ha necessidade de paginação
'########################################################################################################

Function paginacao(FctStrAdicional,FctTotalPaginas,FctIntervalo)

'Define qual é a página corrente
If Request.QueryString("PN") = "" THEN
PaginaCorrente = 1
Else
PaginaCorrente = Request.QueryString("PN")
End If

'Captura o endereço da página corrente
var_url = Request.serverVariables("SCRIPT_NAME")
arrayx = split(var_url,"/")

'Monta URL da paginação a partir do endereço capturado
do while I < ubound(arrayx)
I = I + 1

If len(trim(VarURLPaginacao)) = 0 then
VarURLPaginacao = arrayx(i)
End If

If arrayx(I) > VarURLPaginacao then
VarURLPaginacao = arrayx(I)
lngIndexMaiorValor = I
exit do
End If
loop

If RIGHT(VarURLPaginacao,4) <> ".asp" Then
VarURLPaginacao = ""
End If

Flag = INT(FctTotalPaginas / FctIntervalo)
Flag1 = INT(PaginaCorrente / FctIntervalo)
PI = Flag1 * FctIntervalo

If PI = 0 THEN
PI = 1
End If

PF = PI + FctIntervalo - 1
If CInt(Flag1) >= CInt(1) THEN
Response.Write "<a href="&VarURLPaginacao&"?PN=" & PI - 1 & "&FctIntervalo=" & FctIntervalo & FctStrAdicional & " ><B>"&Application("MiddleTxtAnterior")&"</B>&nbsp;.</a>"
End If

If (PaginaCorrente - 1) >= "1" Then
Response.Write "<a href="&VarURLPaginacao&"?PN=" & Request("PN") - 1 & "&FctIntervalo=" & FctIntervalo & FctStrAdicional & " ><B>"&Application("MiddleTxtAnterior")&"</B></a>&nbsp;."
End If

FOR I = PI TO PF
If CInt(I) <= CInt(FctTotalPaginas) THEN
If CInt(PaginaCorrente) = CInt(I) THEN
response.write "<b>" & I & "</b>&nbsp;.&nbsp;"
Else
response.write "<a href="&VarURLPaginacao&"?PN=" & I & "&FctIntervalo=" & FctIntervalo & FctStrAdicional & " ><b>" & I & "</b></a>&nbsp;.&nbsp;"
FctPaginaAtual = Cint(PaginaCorrente)
End If
End If
NEXT

If CDbl(PaginaCorrente) < CDbl(FctTotalPaginas) Then
Response.Write "<a href="&VarURLPaginacao&"?PN=" & FctPaginaAtual + 1 & "&FctIntervalo=" & FctIntervalo & FctStrAdicional &" ><B>"&Application("MiddleTxtProxima")&"</B></a>&nbsp;"
End If

If (CInt(Flag1) < CInt(Flag)) THEN
If CInt(PF) <> CInt(FctTotalPaginas) THEN
Response.Write "<a href="&VarURLPaginacao&"?PN=" & PF + 1 & "&FctIntervalo=" & FctIntervalo & FctStrAdicional &" ><B>"&Application("MiddleTxtProxima")&"</B>&nbsp;</a>"
End If
End If

End Function

'########################################################################################################
'--> FIM SUB paginacao
'########################################################################################################-->
***************************************************************************

Quem puder me ajudar eu agradeço...

Preciso muito...