Rapper

bom esse aqui é o código sem as tabelas: <form name="selecao" method="post" action="noticias.asp"> <% sql = "SELECT * FROM noticias ORDER BY id DESC" set rsz = server.createobject("adodb.recordset") rsz.open sql,conexao,3,3 IF (rsz.EOF) THEN %> NADA PRA LISTA <% ELSE total = rsz.recordcount x = 0 IF total > 10 THEN total = 10 END IF do while x < total titulo = rsz("titulo") id = rsz("id") %> TABELA COM OS RESULTADOS (<%=id%>, <%=titulo%>) <% x = x + 1 rsz.movenext Loop END IF rsz.close set rsz = nothing %> LINK de DELETAR <a href="noticias.asp?acao=excluir">deletar</a> </form>

num da na mesma usa <%=id%> ? tipo eu não to usando botão, to tentando faze usando um LINK. tipo: (<a href=link?acao=excluir>deletar</a>)

sim essa ID, é a chave-primaria da tabela noticias. e já dei um select antes pra pegar ela na "checkbox". :/

meu check box ta assim <input type="checkbox" name="selecionar" value="<%=id%>">

o request.form("selecionar") é a CHECKBOX, que ta com o valeu <%=id%> eu dei um response.write e não "escreveu" nada, não retorno nenhum valor na tela.

bom eu mexi no código e fico assim: <% acao = Request.Querystring("acao") IF acao = "excluir" THEN id = Request.Form("selecionar") conexao.execute("DELETE FROM noticias WHERE id IN (" & id & ")") Response.Redirect("noticias.asp") END IF %> sendo a checkbox do formulario, ta com o VALUE= <%=id%> e o name= Selecionar e ta dando o mesmo erro: [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id IN ()'. obs:. não sei se muda em algo, mas não é "botao/input" que tou usando e sim um "link" (<a href=link?acao=excluir>deletar</a>) mas que ta dentro do form.

Ae fazendo favor alguém pode me informa se há algo de errado aqui ? <% acao = Request.Querystring("acao") IF acao = "excluir" THEN check = Replace(Request.Form,"&selecionar=",",") check = Replace(check,"selecionar=","") set excluir = Server.CreateObject("ADODB.Command") conexao.execute("DELETE FROM noticias WHERE id IN (" & check & ")") excluir.Execute() Response.Redirect("noticias.asp") END IF %> ta dando o erro: [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id IN ()'.

já resolvi o poblema já, era uma falha no <input ...>, valeu pelos posts!

tipo pelo que eu entendi um exemplo é assim: <% sql = "select * from tabela WHERE login = '"&login&"'" set rs = server.createobject("adodb.recordset") rs.open sql,conexao,3,3 senha = rs("senha") login = rs("login") rs.close set rs = nothing %> ai você usa <%=login%> e <%=senha%> pegar as infos correspondentes. ai você pode ter uma noção e tal, bom pelo que entendi foi isso, caso não seja poste ai.

nada :/

não apareceu nada :/

tenta assim, acho que tinha um " a mais! sql = "select * from users where nivel='"&nProfessor&"' And nivel='"&nDiretor&"'"

tipo se usar <% Response.Expires = 0 %> ?

Cara entra na sessão Scripts -> ASP, no site da ScriptBrasil, e procura por lá. ta tudo dividido por sessão, facil de achar!

ae fazendo favor, bom o código pra mim certamente ta certinho: <% acao = Request.Querystring("acao") IF acao = "salvar" THEN categoria = Request.Form("categoria") texto = Replace(Replace(Request.Form("texto"), "'" , "''"),chr(13),"<br>") aprovado = Replace(Request.Form("aprovado"), "'" , "''") conexao.execute("UPDATE noticias SET categoria='"&categoria&"', texto='"&texto&"', aprovado='sim' WHERE id="&id&"") Response.Redirect("noticias.asp") END IF %> mas toda vez que aperto pro salvar ele da erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] O campo 'noticias.Categoria' não pode ser uma seqüência de caracteres de comprimento nulo. a linhado erro é = conexao.execute("UPDATE noticias SET categoria='"&categoria&"', texto='"&texto&"', aprovado='sim' WHERE id="&id&"") mas a "combo" ta com as informações correta da categoria e tudo. mas mesmo assim da sempre esse erro! valeu ai desde já!

Ae fazendo favor, como que funciona pra tipo apagar somente os resultados que ta "chakados", tipo tem que coloca uma "checkbox" na "tabela do db" num sei, alguém poderia me explica como coloca, como funciona ? Desdeja valeu!

é memorando bom eu peguei essa parte do código que você passo e adaptei nele e tirei algumas parte deu nisso: <% sql = ("SELECT leituras FROM noticias WHERE id = '"&id&"'") set rs = server.createobject("adodb.recordset") IF leituras >= 0 THEN conexao.execute("UPDATE noticias SET leituras = CINT(leituras + 1) WHERE id="&id&"") END IF set rs = nothing %> pelo menos deu certo "conto" normal, seria isso mesmo o correto!? ah! e valeu pela ajuda a todos.

tipo tenta usa MEMORANDO, no access.

Bom eu reformulei o código pois esse acima ai tava dando errado, pois a "lógica dele ta erra" (eu acho). bom eu fiz esse aqui mas num sei se ta certo também: <% id = Request.Querystring("id") sql = ("SELECT * FROM noticias WHERE id = "&id&"") set rst = server.createobject("adodb.recordset") rst.open sql,conexao,3,3 IF (rst.EOF) THEN Response.Redirect("default.asp") ELSE titulo = rst("titulo") noticia = rst("texto") por = rst("por") data = rst("data") id = rst("id") sql = ("SELECT leituras FROM noticias WHERE id = '"&id&"'") set rsj = server.createobject("adodb.recordset") rsj.open sql,conexao,3,3 IF leituras >= 0 THEN conexao.execute("UPDATE noticias SET leituras="leituras +1" WHERE id="&id&"") END IF rsj.close set rsj = nothing %> bom ele ta dando erro: Erro de compilação do Microsoft VBScript (0x800A03EE) ')' esperado /textos.asp, line 66, column 47 conexao.execute("UPDATE noticias SET leituras="leituras +1" WHERE id="&id&"") ele fala que espera um ')' mas onde pode ser esse parenteses ?

Porque ao invés de cliar um novo tópico, não edito o anterior ? :/

alguém pode me ajuda aqui fazendo favor, ta dando erro, não sei se o código ta certo, pois não manjo muito. <% id = Request.Querystring("id") sql = ("SELECT * FROM noticias WHERE id = "&id&"") set rst = server.createobject("adodb.recordset") rst.open sql,conexao,3,3 IF (rst.EOF) THEN Response.Redirect("default.asp") ELSE titulo = rst("titulo") noticia = rst("texto") por = rst("por") data = rst("data") id = rst("id") sql = ("SELECT * FROM noticias WHERE leituras = '"&leituras&"' AND id = '"&id&"'") set rsu = server.createobject("adodb.recordset") IF (rsu.EOF) THEN conexao.execute("INSERT INTO noticias (leituras) VALUES ('0')") ELSE conexao.execute("UPDATE noticias SET leituras=leituras +1 '"&leituras&"'") END IF rsu.close set rsu = nothing %> O ERRO É: Operação não permitida quando o objeto está fechado. teste.asp, line 66 onde linha 66 = IF (rsu.EOF) THEN desde já valeu ai pela colaboração!

Ae fazendo favor, alguém pode me explica como posso faze um contador de "clicks", tipo tenho uma tabela +/- assim. [noticia, autor, fonte, titulo, clicks] ai gostaria de saber quando eu clicar em uma "noticias/id" comar +1 nessa "noticia/id". bom desde já valeu!