Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fuca

Registro não apaga!

Por , em ASP Clássico

Recommended Posts

Fuca    0

Fuca
Postado

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&noticia=<%=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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

Noticia é campo texto??Se for:listeuDB.Execute("DELETE FROM noticias WHERE id=" &Request.QueryString('"noticia"'))

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fuca    0

Fuca
Postado

Noticia é campo texto??

Se for:

listeuDB.Execute("DELETE FROM noticias WHERE id=" &Request.QueryString('"noticia"'))

<{POST_SNAPBACK}>

Qual é a sugestão? Colocar aspas simples do lado de fora das aspas duplas?

 

Do lado de fora o código entende como comentários.

 

Do lado de dentro, continua não funcionando.

 

Mais sugestões? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

o codigo nao executa nada?pelo que vi, você tem o codigo de delete dentro de uma funcao.mas você está chamando a funcao que deleta os registros?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fuca    0

Fuca
Postado

Já resolvi!

 

ASP

[*]<%

 

[*]'Apagar noticia

 

[*]acao = "X"

 

[*]Select Case acao

 

[*]Case "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

 

[*]%>

 

Não sei o que aquele 'acao = "x"' estava fazendo ali.

Tirei ele e o codigo funcionou direitinho! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito