Codigo Banir Com Erro

[mestre fyoda]

Microsoft JET Database Engine error '80040e14'

Syntax error (comma) in query expression 'id = 15, 16'.

/teste123/sistema em asp/banir_salvar.asp, line 12

<!--#include file="conexao.asp"-->

<%

id = Request("ban")

'Desmarca todos os registros do banco

Set verificar = Server.CreateObject("ADODB.Recordset")

sql = "Select * from usuarios where id = "& id &" "

verificar.open sql, conex, 3,3

If verificar.EOF Then

Response.Write "O usurio no existe!!!"

ElseIf verificar("nivel") = 1 Then ' tire as aspas caso seja valor numrico no BD

Response.Write "O man, no pode excluir usurios de nvel 1..."

Else

while not verificar.eof

verificar("banido") = false

verificar.update

verificar.movenext

wend

'Verifica o que foi selecionado

for each ban in request("ban")

'Marca o campo banido como true de acordo com o id selecionado

Set salvar = Server.CreateObject("ADODB.Recordset")

sql = "Select * from usuarios where id ="&ban

salvar.open sql, conex, 3,3

salvar("banido") = true

salvar.update

next

'Redireciona o usuário para a página anterior

response.Redirect("admin_banir.asp")

end if

%>

[Bicicleta]

Vixi, que código mais loco é esse cara??? hehehehe

Seguinte, note:

for each ban in request("ban")

Request("ban") não é uma coleção, portanto não dá pra dar For Each nele!!! Mesmo que se use isso, só vai passar uma vez, porque você só usa 1 querystring ban não é??

Então ele tá tentando apagar ops ids: 15, 16... só q você tem q passar só uma vez...

Troque aquela linha por estas:

quebra = Split(request("ban"), ",")

For Each ban In Quebra

ban = Trim(ban)

... ' segue o código

Mais pra falar a verdade nem sei se vai funcionar, porque tá uma bagunça que só esse código hein! heehehhe

[Bicicleta]

Cara...

sql = "SELECT * FROM tabela WHRE id IN "& id &""

para se excluir ou selecionar vários registros ao mesmo tempo...

Mais você vai ter q mudar todo o código, isso ai só vai dar problema!

[mestre fyoda]

erro :

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'id ='.

/teste123/sistema em asp/banir_salvar.asp, line 10

[Victor]

erro :

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'id ='.

/teste123/sistema em asp/banir_salvar.asp, line 10

Tente colocar a variavel do id na variavel do banco de dados:

id = RecSet("id")

Caso tenha mais alguma dúvida, posta ae!!!

[]'s

Victor