<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
[an error occurred while processing this directive]
<%
' *** Restrict Access To Page: Grant or deny access to this page
If (Session("login") = "") Then Response.Redirect("login.asp")
%>
<%
Dim notfound, passwchanged
notfound = false
passwchanged = false
If (Request.Form("submit") <> "") Then
Set rsUpdateUser = Server.CreateObject("ADODB.Recordset")
rsUpdateUser.ActiveConnection = MM_cnnGSETEL_STRING
rsUpdateUser.CursorType = 1 'adOpenKeyset
rsUpdateUser.CursorLocation = 2 'adUseServer
rsUpdateUser.LockType = 3 'adLockOptimistic
rsUpdateUser.Source = "dUsuarios"
rsUpdateUser.Filter = "idusuario = " & Session("idusuario") & " AND password = '" & Request.Form("oldpassword") & "'"
rsUpdateUser.Open()
If Not rsUpdateUser.EOF Then
rsUpdateUser("password") = Request.Form("password")
rsUpdateUser.Update
passwchanged = true
'Response.Redirect("clientpage.asp")
Else
notfound = true
End If
rsUpdateUser.Close
End If
%>
GSETEL- Grupo de Servicios Telemáticos
Cambio de
contraseña
<% If notfound = True Then %>
El
password tecleado no coincide con su
password actual.
<% End If%>
<% If Not (passwchanged = true) Then %>
<%
Else
%>
Su password
fue cambiado satisfactoriamente.
<%
End If
%>
