Por Favor Preciso De Uma Ajudinha Com Db Access

[esm]

Olá eu peguei um script muito bom de clessificados mais o db access que veio nele já tinha alguns anuncion só que ao apagar os anuncios e arrumar as categorias e deichar tudo em ordem eu não consigo mais cadastrar anuncios novos ele da erro no db ...

ele mando o email de confirmação do anuncio para a minha caixa de email que tem um link que é para confirmar o anuncio e liberar ele mais ai da esta mensagem...

error

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID='.

/clajp/approve.asp, line 24

Por favor se alguém puder me ajudar eu ficaria muito grato!

Obrigado

;)

[slipknot]

tipo cara pelo que parece você deletou algo q não devia..ele tah pedidno aquele tal de ID= ....ve onde ele é criado...achu q você deve terretirado ele sem perceber....esse ID deve controlar a sessao do cara....

[jissa]

Ouuu.. alterou a pagina (pode ser que envia o valor ou que recupera o valor) e não ta recuperando o valor para comparacao do ID, ou ta passando valores em Branco... ou limpou uma tabela do DB e e o programa ta fazendo referencia a um campo solicitado...

bem.. resumindo .. fica dificil assim

[esm]

posso colocar os codigos aqui .. daria para você dar uma olhada?

[esm]

Se der para você dar uma olhada o arquivo ta aqui...

Arquivo zip

Obrigado

[jissa]

Desculpa cara minha conexao é discada.. e o arquivo tem 3.qualquer coisa de MB....

Muita areia pro meu caminhaozinho...

sorry...

[Lucky]

coloca aqui só o começo da página que deu erro, até a linha 30 mais ou menos... dai a gente examina...

[esm]

<%
Dim RS,Con,Cstring,SQL,idnumber,rec

if Request.Querystring("id") = "" then%>
error
<% end if

if Request.Querystring("rand") = "" then%>
error
<% end if
  
idnumber = Request.Querystring("id")
rec = Request.Querystring("rand")

SQL = "SELECT * FROM Tbladd WHERE ID=" & idnumber

CString = "DBQ=" & Server.Mappath("market.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set CON = server.CreateObject("adodb.connection")
Con.open Cstring
Set RS = Server.CreateObject("ADODB.Recordset")

if Request.Querystring("rand") = REC then

RS.Open SQL,Con,1,2
  
RS("Random")    = "0"    
  
RS.Update
RS.Close

Response.Redirect("default.asp")

else%>
error
<%end if%>

esta é a pagina que quando é mandado o email para a pessoa que postou o anuncio confirme cadastrro e assim libere o anuncio...

A menssagem da pagina:

error

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID='.

/clajp/approve.asp, line 24

[Lucky]

Confira se a tabela tem uma coluna chamada ID e tambem se o idnumber tem algum valor...

Este valor tem que vir no link passado pela página anterior...

escreva assim:

response.write SQL

'RS.Open SQL,Con,1,2

para ver o que o SQL está passando e veja se o valor apos o ID= esta ali...