<%
'************************************************************************
'** X-CHANGER - Troca de banners - Ano 2002 **
'** **
'** Sistema de troca de banners desenvolvido pela equipe **
'** Scriptmaster em parceria com a Paraná Design **
'**Contatos: **
'** Alexandre Vahldick - alexandre@paranadesign.com **
'** Renato Augusto V. Elias - averanger@scriptmaster.com.br **
'** Robson Campos De Abreu - jago@scriptmaster.com.br **
'**Sites: **
'** http://www.paranadesign.com **
'** http://www.scriptmaster.com.br **
'************************************************************************
%>
<%response.expires = 0
if session("verifica") < 1 Then
response.redirect"erro2.asp"
End If%>
<%
'Requesita o formulario sim e se ele for igual sim continua
if request.form("sim") = "Sim" then
'Inclui config.asp%>
<%'Requesita Deletar
n = Request.querystring("deletar")
'Executa uma ação de deletar usando a variavel obtida
Conexao.execute("DELETE * FROM membros WHERE tc_id ="&n)
'Inclui o rodape.inc%>
<%'Redireciona para admin
Response.Redirect ("Admin.asp")
'Se nào, requesita nào e se for igual a não continua
elseif request("não") = "Não" then
'Redireciona para admin
Response.Redirect ("Admin.asp")
else
'Mostra mensagem se realemte quer deletar!%>
<%=nomedapagina%>
- Administração - Deletar conta
Você realmente deseja deletar a conta ?
<%end if 'Termina o SE%>