<%
outra_vez = request.form("outra_vez")
s1 = request.form("s1")
s2 = request.form("s2")
msg = "Digite e re-digite a nova senha."
If outra_vez = 1 Then
if s1="" or s2="" then
msg = "Um dos campos ou os dois campos de senha não foram digitados!"
elseif s1<>s2 then
msg = "Os dados digitados não conferem!"
elseif len(s1) > 10 then
msg = "A senha deve ser composta de no máximo dez caracteres"
else
Call Altera
msg = "Sua senha foi alterada com sucesso."
sucesso = 1
end if
end if
msg="Prezado(a) "&session("usuario_nome")&",
"&msg
Sub Altera
%>
<%
'sql = "SELECT cod,sala,ativa,habilitado,nome_sala,nome_aluno FROM consulta_usuarios where login = '"&login&"' AND senha = '"&senha&"'"
'Set usuario = Conexao.Execute(sql)
'sql = "SELECT login FROM clientes WHERE cod_usuario='"&session("cod_usuario")&"'"
'Set cliente = Conexao.Execute(sql)
Conexao.Execute "Update login set senha = '"&s1&"' WHERE login = '"&Session("login")&"' AND aluno = "&session("usuario")
Set Conexao= Nothing
End Sub
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
%>
<% If Not IsEmpty(Session("usuario")) then%>Logoff<%end if%>
