Registro não apaga!
Fala aí galera, sussa?
Criei um sistema de notícias para minha página, e tanto a inserção como a exclusão das mesmas eu programei por ASP.
A inserção funciona direitinho, mas estou tento problemas na hora de excluí-la.
A listagem aparece direitinho, mas quando eu clico no botão "apagar", a página simplesmente recarrega (como se estivesse apagado e recarregando) e volta a exibir a notícia na listagem, sem excluí-la.
Alguém sabe como resolver?
<%@ Language=VBScript %><%Option Explicit %><% Response.Expires = 0 %><% If IsEmpty(Session("admin")) Then Response.Redirect "./index.asp" End If%><html><head><title>Lista Telefônica Unificada do Estado de São Paulo</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../style.css" rel="stylesheet" type="text/css"><script>function submitonce(theform){//if IE 4+ or NS 6+if (document.all||document.getElementById){//screen thru every element in the form, and hunt down "submit" and "reset"for (i=0;i<theform.length;i++){var tempobj=theform.elements[i]if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")//disable emtempobj.disabled=true}}}</script></head><body><%'Criar conexão com banco de dadosdim listeuDBset listeuDB = Server.CreateObject("ADODB.Connection")listeuDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("XXXXX.mdb")listeuDB.open%><%'Declarar variáveisDim id,titulo,categorias,fontenome,fonteurl,acao,news_todas,news_atual,news,id_atualacao = Request.QueryString("acao")id = Request.QueryString("noticia")%><%'Apagar noticiaacao = "X"Select Case acaoCase "apagar"listeuDB.Execute("DELETE FROM noticias WHERE id=" &Request.QueryString("noticia"))%><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Notícia removida!</font><%End Select%><%'Criar tabelaset news = listeuDB.Execute("SELECT * FROM noticias ORDER BY data DESC")%></font></font> <table width="600" border="1" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td width="80"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ID</font></div></td> <td width="220"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Título</font></div></td> <td width="125"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Categoria</font></div></td> <td width="100"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Fonte</font></div></td> <td width="75"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Apagar?</font></div></td> </tr> <tr> <%While not news.EOFset news_atual = listeuDB.Execute("SELECT * FROM noticias WHERE id=" &news("categorias"))%> <td width="80"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=news("id")%></font></div></td> <td width="220"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=news("titulo")%></font></div></td> <td width="125"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=news("categorias")%></font></div></td> <td width="100"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="..\news_detalhes2.asp?noticia=<%=news("id")%>" target="_blank"><%=news("fontenome")%></a></font></div></td> <td width="75"><div align="center"> <form method=post action="./con_news.asp?acao=apagar¬icia=<%=news("id")%>" onsubmit="submitonce(this)"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <input type=submit value="Apagar!"> </font> </form> </div></td> </tr> <%news.MoveNextWend%></table><%listeuDB.Closeset listeuDB = Nothing%></body></html>Discussão (5)
Carregando comentários...