<% '************************************************************************ '** 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%>
Nome " size="30">
E-mail " size="30">
Senha ">
Data inicial <%=RS("data")%>
Imagem " size="30">
Url " size="30">
Texto " size="30">
Ativa Sim Não Conta <%if RS("conta")= "Ativado" Then%>Ativada<% else %> Desativada<% end If %>
Exibição do Banner " size="14">
Exibição no site " size="14">
Cliques do banner " size="14">
Crédito do membro " size="14">
Bonificação do site