<!--#INCLUDE file="ADOVBS.inc"-->

<%
dim str_clave, clie_clave, str_nombre, str_accion, int_estatus, str_usuario, str_fecha_actual, str_estatus
dim STR_CONSULTA, RES_DATOS, Cnn 

str_empresa= Request.Cookies("sieps")("empresa")
str_usuario= Request.Cookies("sieps")("usuario_clave")


str_bd= application("bd_sieps")


str_accion = Request.form("accion")
str_password_actual = Request.Form("TXT_PASSWORD_ACTUAL")
str_password_nuevo = Request.Form("TXT_PASSWORD_NUEVO")

str_fecha_actual = month(now)&"/"&day(now)&"/"& year(now)
set Cnn = server.CreateObject ("ADODB.Connection")
set RES_DATOS = server.CreateObject ("ADODB.Recordset")

Cnn.Open str_bd

str_mensaje_error= ""			

STR_CONSULTA = "SELECT * FROM usuario WHERE usua_clave ='" & str_usuario  & "' AND empr_clave ='" & str_empresa & "' AND usua_password='" & str_password_actual & "'"
RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
IF RES_DATOS.EOF = false then ' si existe
	STR_CONSULTA = "UPDATE usuario SET usua_password='" & str_password_nuevo & "' WHERE usua_clave ='" & str_usuario & "' AND empr_clave ='" & str_empresa & "' AND usua_password ='" & str_password_actual & "';"
	Cnn.Execute STR_CONSULTA,,1
else
	str_mensaje_error= "No se encontró el usuario..."
end if
RES_DATOS.Close
Cnn.Close

if str_mensaje_error <> empty then
	Response.Redirect("uti_error.asp?or=cambiar_password.asp&enca=ERROR&mens=" & server.urlencode(str_mensaje_error))
end if
Response.Redirect("registro_listado.asp")

%>
