<% '************************************************************************ '** 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%> <% 'Recebe todos os campos editar = Request("editar") nome1 = Request("n") email2 = Request("e") ima1 = Request("i") ativa = Request("ativa") site = Request("s") eb = Request("eb") t = Request("t") es = Request("es") cb = Request("cb") se = Request("se") bs = Request("bs") cre = Request("cre") cre1 = cint(cre) + bs 'Atualiza o banco de dados com as informações obitdas dados = "UPDATE membros SET conta='"&ativa&"', creditos = '"&cre1&"', bonificacao = '"&bs&"', clicks='"&cb&"', seu_nome='"&nome1&"', sua_senha='"&se&"', seu_email='"&email2&"', imagem='"&ima1&"', site='"&site&"', hit='"&eb&"', exibicao_seu='"&es&"', texto='"&t&"' WHERE tc_id LIKE '"&editar&"' " conexao.Execute(dados) %> <%'Redireciona para admin Response.Redirect ("admin.asp")%>