Me Ajudem A Implemetar Algumas Coisas

[mestre fyoda]

Me ajudem a implementar os campos :

nome -> nome da pessoa

snome -> sobrenome

senha-> senha atual (mantem )

novasenha -> senha nova

c_senha -> confirma a senha nova

login -> mantem

email -> email

Para o usuario poder fazer qualquer modificação , ele tera que digitar a senha ( por medida de segurança ) .

alterar.asp

<!--#include file="restrito.asp"-->

<!--#include file="conectar.asp"-->

<% AbreConexao

If Request.Form("enviado") = "sim" Then

login = Replace(Request.Form("login"), "'", "/")

senha = Replace(Request.Form("senha"), "'", "/")

Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"'")

If not RS.EOF AND login <> Session("login") Then

Response.Write "Este login já está cadastrado!<BR><a href=alterar.asp>Voltar</a>"

Else

Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&senha&"' WHERE login = '"&Session("login")&"'")

Response.Write "Dados alterados"

End If

Else

Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'")%>

<form method="POST" action="alterar.asp">

<input type="hidden" name="enviado" value="sim">

Login: <input type="text" name="login" value="<%=dados("login")%>" size="20"><BR>

Senha: <input type="password" name="senha" value="<%=dados("senha")%>" size="20"><BR>

<input type="submit" value="Alterar">

</form>

<% End If

FechaConexao %>

[showtime]

brother, o q você quer fazer ?

[EDSONET]

O que você quer dizer com implementar??? Seja mais claro!!!

[dark0]

Me ajudem a implementar os campos :

nome -> nome da pessoa

snome -> sobrenome

senha-> senha atual (mantem )

novasenha -> senha nova

c_senha -> confirma a senha nova

login -> mantem

email -> email

Para o usuario poder fazer qualquer modificação , ele tera que digitar a senha ( por medida de segurança ) .

alterar.asp

<!--#include file="restrito.asp"-->

<!--#include file="conectar.asp"-->

<% AbreConexao

If Request.Form("enviado") = "sim" Then

login = Replace(Request.Form("login"), "'", "/")

senha = Replace(Request.Form("senha"), "'", "/")

Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"'")

If not RS.EOF AND login <> Session("login") Then

Response.Write "Este login já está cadastrado!<BR><a href=alterar.asp>Voltar</a>"

Else

Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&senha&"' WHERE login = '"&Session("login")&"'")

Response.Write "Dados alterados"

End If

Else

Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'")%>

<form method="POST" action="alterar.asp">

<input type="hidden" name="enviado" value="sim">

Login: <input type="text" name="login" value="<%=dados("login")%>" size="20"><BR>

Senha: <input type="password" name="senha" value="<%=dados("senha")%>" size="20"><BR>

<input type="submit" value="Alterar">

</form>

<% End If

FechaConexao %>

cara..

pelo que eu vi, seu codigo ta meio "atrapalhado"

comece assim:

monte uma pagina, que peça LOGIN E SENHA.

nela, você coloca só um formulario HTML, que tenha espaço pro cara digitar usuario e senha.

alguma coisa assim bem basica. E na mesma pagina, você testa, no começo dela, se o usuario e senha são validos. por ex:

login.asp

<%
if request("logar") <> "" then
'conecta no banco:
url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
'depois de conectado, faz o sql, e verifica se o usuario e a senha estao corretos.
sql = "select * from tabela where usuario='"&request("usuario")&"' and senha='"&request("senha")&"'"
'executa o sql
set rs = conexao.execute(sql)
'testa se o sql encontrou alguma coisa:
if rs.eof = true then
'significa que não encontrou... usuario errado
response.write "Usuario/Senha invalidos"
response.write "<br>volte e redigite!"
else
'o sql encontrou, manda ele pra pagina de alteração..e cria uns sessions, prafacilitar
session("usuario") = request("usuario")
session("senha") = request("senha")
session("campo_do_bd") = rs("campo_bd")
'e assim, coloca os campos que tem no seu banco, que ele podera alterar
end if
else
%>
<html>
<body>

<form method="POST">
	<p>usuario:<input type="text" name="usuario" size="20"></p>
	<p>senha:<input type="text" name="senha" size="20"></p>
	<p><input type="submit" value="Logar" name="logar"></p>
</form>
</body>
</html>
<%end if%>

pronto. agora, na pagina de alterar, você testa se a session não esta vazia, e coloca os campos, pra ele digitar as alterações.. e depois faz um update..

sql = "update tabela set campo1='"&campo1&"',campo2='"&campo2&"' where condicao='"&condicao&"'"
set rs = conexao.execute(sql)

ali no update, você pode acrescentar campos, separando por virgulas.

tá aí o caminho das pedras...

abraços

[showtime]

hehe .. valewæ pelo meio .. cara .. segue os conselhos do dark0 parceiro