<% '************************************************************************ '** 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"erro1.asp" End If %> <%'Incluimos o config%> <%=nomedapagina%>

<%=nomedapagina%> - Editar cadastro

<%'Criamos o objeto RS, selecionamos o usuário pelo login e a senha Set RS = Server.CreateObject("ADODB.RecordSet") Query = "SELECT * FROM membros WHERE sua_senha='"&session("pass")&"' and seu_login='"&session("user")&"' " RS.Open Query, Conexao, 3, 3 'criamos um conjunto de formularios%>
Seu Nome " size="30" class="input2">
Seu E-mail " size="30" class="input2">
Endereço do site  " size="30" class="input2">
Endereço do banner " size="30" class="input2">
Texto " size="30" class="input2">
Sua Senha: " size="20" class="input2"> " size="12">
   
<%rs.close 'Fechamos RS set rs = Nothing 'Distruimos RS%>
<%'Incluimos o Rodape%>