<%
'************************************************************************
'** 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%>
<%
editar = Request("editar")
'Recebe Editar e cria um sql com isso
Set RS=Server.CreateObject("ADODB.RecordSet")
Query = "SELECT * FROM membros WHERE tc_id LIKE "&editar&" "
RS.Open Query, Conexao, 3, 3
'Se rs("bonficacao") for igual bonif ele segue
if RS("bonificacao") = bonif then
'Boni é Zero
boni = "0"
'Senão
else
'Boni é bonif
boni = bonif
end if'Fecha SE
%>
<%=nomedapagina%> - Editar
<%=nomedapagina%>
- Administração - Editar cadastro
<%'Cria formulario com as informações obtidas%>