<% IF REQUEST.FORM("SUBMIT")= "" THEN %>
<%FrmMensaje = Request("MEN")%>
Si Desea modificar su Contraseña Digite su contraseña Actual y luego la Nueva

Digite su Cédula                

Digite su Password Actual   

Digite su Password Nuevo  

Confirme Password Nuevo

          Página Anterior        Página Principal

<%=FrmMensaje%>

<%ELSE%> <% DIM RS FrmCedula = Request.Form("TxtCedula") FrmPassword = Request.Form("TxtActual") FrmNueva1 = TRIM(Request.Form("TxtNueva1")) FrmNueva2 = TRIM(Request.Form("TxtNueva2")) SET RS= SERVER.CREATEOBJECT("ADODB.RECORDSET") RS.ACTIVECONNECTION ="DSN=FacAcad; UID=sa; PWD=fca" IF FrmCedula <> "" AND FrmPassword <> "" THEN SQL = "SELECT * FROM ALUMNO WHERE CEDULA = '" & FrmCedula & "'" %> <%= SQL %> <% RS.SOURCE=SQL RS.OPEN() IF RS.EOF THEN RS.CLOSE() RESPONSE.REDIRECT "MODI_CLAVE_ALUM.ASP?MEN=Cédula NO existe..." ELSE RS.CLOSE() SQL = "SELECT * FROM ALUMNO WHERE CEDULA = '" & FrmCedula & "' AND CLAVE = '" & FrmPassword & "'" RS.SOURCE=SQL RS.OPEN() IF RS.EOF THEN RS.CLOSE() RESPONSE.REDIRECT "MODI_CLAVE_ALUM.ASP?MEN=Contraseña Incorrecta..." ELSE RS.CLOSE() IF FrmNueva1 <> FrmNueva2 THEN RESPONSE.REDIRECT "MODI_CLAVE_ALUM.ASP?MEN=NO Coinciden las Contraseñas Nuevas..." ELSE SET COMMAND1= SERVER.CREATEOBJECT("ADODB.COMMAND") COMMAND1.ACTIVECONNECTION ="DSN=FacAcad; UID=sa; PWD=fca" SQL = "UPDATE ALUMNO SET CLAVE = '" & FrmNueva1 & "' WHERE CEDULA = '" & FrmCedula & "'" COMMAND1.COMMANDTEXT = SQL COMMAND1.EXECUTE() SET COMMAND1= NOTHING RESPONSE.REDIRECT "INGRE_VER_CALIF.ASP" END IF END IF END IF ELSE RESPONSE.REDIRECT "MODI_CLAVE.ASP?MEN=Digite Su Identificación y su Contraseña..." END IF END IF %>