Postagens
Male
***************************************************************************
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> .</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> ."
End If
FOR I = PI TO PF
If CInt(I) <= CInt(FctTotalPaginas) THEN
If CInt(PaginaCorrente) = CInt(I) THEN
response.write "<b>" & I & "</b> . "
Else
response.write "<a href="&VarURLPaginacao&"?PN=" & I & "&FctIntervalo=" & FctIntervalo & FctStrAdicional & " ><b>" & I & "</b></a> . "
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> "
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> </a>"
End If
End If
End Function
'########################################################################################################
'--> FIM SUB paginacao
'########################################################################################################-->
***************************************************************************
Quem puder me ajudar eu agradeço...
Preciso muito...
