Erro em arquivo para APAGAR REGISTROS

[klebeer_ 0]

Ja vou logo esclarecendo que não sou "EXPERT" em ASP então tenham paciencia, bem tentei fazer um arquivo para deletar os registros, mas o que acontece é que ele não mostra e ja vai direto pra página "default.asp" como é pedido no final do código.

 

 

<!--#include file="StrCOn.asp" -->
<%
Set dados = conexao.execute("Select id,titulo,texto from home order by id DESC;")
While not dados.eof
%>
<a href="deletar.asp?id=<%=dados("id")%><%=dados("titulo")%><%=dados("texto")%>">Excluir</a>
<%
dados.movenext
wend
id = request.QueryString("id")
if id <> "" then
  SQL = "Delete from home where id=" &id
  conexao.execute(sql)
end if
dados.close
set dados = nothing
response.Redirect("default.asp")
%>

Alguem poderia me ajudar

 

Obrigado

[DSerma 19]

você qr q ele mostre os <a> q você faz no Loop .. certo ??

 

Mas... quando você qr q ele redirecione para a outra página ???

 

Do jeito que está.. ele VAI REDIRECIONAR MESMO.... pois ele vai fazer tudo que você pede no loop e logo que terminar vai para a outra página...

 

você deve fazer o seguinte... O tio Dark aki vai ser bonzinho e fazer a função correta pra você...

 

<!--#include file="StrCOn.asp" -->
<%
Set dados = conexao.execute("Select id,titulo,texto from home order by id DESC;")
While not dados.eof
%>
<a href="deletar.asp?Exclui=Sim&id=<%=dados("id")%><%=dados("titulo")%><%=dados("texto")%>">Excluir</a>
<%
dados.movenext
wend
%>
<%
If Request.QueryString("Exclui") = "Sim" Then
id = request.QueryString("id")
if id <> "" then
  SQL = "Delete from home where id=" &id
  conexao.execute(sql)
end if
dados.close
set dados = nothing
response.Redirect("default.asp")
End if
%>

Pronto... agora sim ela vai fazer oq você qr..

 

Ela vai fazer a listagem de tudo que está no banco.. e só quando você clicar em algum link é q ela vai fazer a exclusão e depois será redirecionada para a Default.asp

 

 

Mais mastigado e paciente do que isso.. impossivel..

 

Abraços...