erro 80040e14

[formalivre 0]

estou me deparando com o seguinte erro em minha aplicação:Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'CATEGORIAS.COD ='. /versao_nova/artigo/objestado.asp, line 14será que alguém pode me ajudar.obrigado.

<%'FAZ A CONEXÃO, SEM NENHUM SEGREDO.Set conexao = Server.CreateObject("ADODB.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados_01.mdb")conexao.Open DSNtest'RESGATA O ID DO ESTADO SELECIONADO PARA FAZER A SELAÇÃO DA COMBO DOIS (CIDADE).codcategoria = request("codcategoria")'AQUI ESTÁ NOSSO SELECT.sql = "SELECT CATEGORIAS.COD, CATEGORIAS.CATEGORIA, TITULOS.TITULO, TITULOS.CODTITULO, ANUNCIOS.CODANUNCIO, ANUNCIOS.ANUNCIOS "sql = sql & "FROM (CATEGORIAS INNER JOIN TITULOS ON CATEGORIAS.COD = TITULOS.CODCATEGORIA) "sql = sql & "INNER JOIN ANUNCIOS ON TITULOS.CODTITULO = ANUNCIOS.CODTITULO WHERE CATEGORIAS.COD = " & codcategoria & " order by titulos.titulo"set rs = conexao.Execute(sql)%><!-- AUI MONTAMOS NOSSA COMBO DE CIDADE, CONFORME O ESTADO SELECIONADO --><table cellpadding="0" cellspacing="0" border="0"> <tr> <td> <select style="width:200" id="cidade" name="cidade" onChange="dadoscidade(this.value);"> <% while not rs.EOF 'if CStr(codcategoria) = Cstr(rs("COD")) then ' selected = "selected" 'else ' selected = "" 'end if %> <option value="<%Response.Write(rs("COD") & "|" & rs("CATEGORIA") & "|" & rs("TITULO") & "|" & rs("CODTITULO") & "|" & rs("CODANUNCIO") & "|" & rs("ANUNCIOS"))%>" <%'=selected%>><%=server.HTMLEncode(rs("TITULO"))%></option> <% rs.MoveNext wend rs.close set rs = nothing %> </select> </td> </tr></table>

[Schneider 0]

Cara, fiz uma alteracao e testei o sql aqui e funcionou.

 

sql = "SELECT CATEGORIAS.COD, CATEGORIAS.CATEGORIA, TITULOS.TITULO, TITULOS.CODTITULO, ANUNCIOS.CODANUNCIO, ANUNCIOS.ANUNCIOS "sql = sql & "FROM CATEGORIAS INNER JOIN TITULOS ON (CATEGORIAS.COD = TITULOS.CODCATEGORIA) "sql = sql & "INNER JOIN ANUNCIOS ON (TITULOS.CODTITULO = ANUNCIOS.CODTITULO) WHERE CATEGORIAS.COD = " & codcategoria & " order by titulos.titulo"set rs = conexao.Execute(sql)