<!--#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_clave = Request.Form("TXT_CLAVE")
str_nombre = replace(replace(Request.Form("TXT_NOMBRE"),"'"," "),chr(34)," ")
str_password = replace(replace(Request.Form("TXT_PASSWORD"),"'"," "),chr(34)," ")
str_telefono = replace(replace(Request.Form("TXT_TELEFONO"),"'"," "),chr(34)," ")
str_email = replace(replace(Request.Form("TXT_EMAIL"),"'"," "),chr(34)," ")
str_proceso= Request.QueryString("proceso")
int_estatus = Request.Form("RDO_ESTATUS")
if int_estatus=1 then
	str_estatus="Activo"
else
	str_estatus="Desactivo"
end if
if Request.Form("CHK_G_ADMINISTRADOR")= "on" then
	int_g_administrador=1
else
	int_g_administrador=0
end if
if Request.Form("CHK_G_APLICACION")= "on" then
	int_g_aplicacion=1
else
	int_g_aplicacion=0
end if
if Request.Form("CHK_G_ACTUALIZACION")= "on" then
	int_g_actualizacion=1
else
	int_g_actualizacion=0
end if
if Request.Form("CHK_G_DIVISIONES")= "on" then
	int_g_divisiones=1
else
	int_g_divisiones=0
end if
if Request.Form("CHK_G_DEPARTAMENTOS")= "on" then
	int_g_departamentos=1
else
	int_g_departamentos=0
end if
if Request.Form("CHK_G_PUESTOS")= "on" then
	int_g_puestos=1
else
	int_g_puestos=0
end if
if Request.Form("CHK_G_CATEGORIAS")= "on" then
	int_g_categorias=1
else
	int_g_categorias=0
end if
if Request.Form("CHK_G_TURNOS")= "on" then
	int_g_turnos=1
else
	int_g_turnos=0
end if
if Request.Form("CHK_G_USUARIOS")= "on" then
	int_g_usuarios=1
else
	int_g_usuarios=0
end if
if Request.Form("CHK_G_PASSWORD")= "on" then
	int_g_password=1
else
	int_g_password=0
end if
if Request.Form("CHK_G_BAJAR")= "on" then
	int_g_bajar=1
else
	int_g_bajar=0
end if
if Request.Form("CHK_S_SOLICITUD")= "on" then
	int_s_solicitud=1
else
	int_s_solicitud=0
end if
if Request.Form("CHK_S_DEPARTAMENTOS")= "on" then
	int_s_departamentos=1
else
	int_s_departamentos=0
end if
if Request.Form("CHK_S_PUESTOS")= "on" then
	int_s_puestos=1
else
	int_s_puestos=0
end if

if Request.Form("SEL_DIVISION")= empty then
	str_division=""
else
	str_division=Request.Form("SEL_DIVISION")
end if

'Response.Write(str_division)

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= ""			

SELECT CASE str_accion
	CASE "aceptar"
		if str_proceso="alta" then ' si es una alta
			STR_CONSULTA = "SELECT * FROM usuario WHERE usua_clave ='" & str_clave  & "' AND empr_clave ='" & str_empresa & "'"
			RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
			IF RES_DATOS.EOF = true then ' si no existe
				STR_CONSULTA = "INSERT INTO usuario(usua_clave, usua_nombre, usua_password, empr_clave, usua_telefono, usua_email, usua_estatus, usua_clave_captura, fecha_captura, usua_g_administrador, usua_g_aplicacion, usua_g_actualizacion,usua_g_divisiones, usua_g_departamentos, usua_g_puestos, usua_g_categorias, usua_g_turnos, usua_g_usuarios, usua_g_bajar, usua_g_password,usua_s_solicitud, usua_s_departamentos, usua_s_puestos, divi_clave) VALUES('" & str_clave & "', '" & str_nombre & "','" & str_password & "', '" & str_empresa & "','" & str_telefono & "','" & str_email & "','" & str_estatus & "','" & str_usuario & "','" & str_fecha_actual & "'," & int_g_administrador & "," & int_g_aplicacion & "," & int_g_actualizacion & "," & int_g_divisiones & "," & int_g_departamentos & "," & int_g_puestos & "," & int_g_categorias & "," & int_g_turnos & "," & int_g_usuarios & "," & int_g_bajar & "," & int_g_password & "," & int_s_solicitud & "," & int_s_departamentos & "," & int_g_puestos & ",'" & str_division & "')"
				Cnn.Execute STR_CONSULTA,,1
			else
				str_mensaje_error= "Ya existe un usuario con esta clave."			
			end if
			RES_DATOS.Close
		else		' si es un cambio
			' busca registro
			STR_CONSULTA = "UPDATE usuario SET usua_nombre='" & str_nombre & "', usua_telefono='" & str_telefono & "', usua_email='" & str_email & "', usua_password ='" & str_password & "', usua_estatus ='"& str_estatus &"', usua_clave_captura ='"& str_usuario &"', fecha_captura ='"& str_fecha_actual & "', usua_g_administrador=" & int_g_administrador & ", usua_g_divisiones=" & int_g_divisiones & ", usua_g_departamentos=" & int_g_departamentos & ", usua_g_puestos=" & int_g_puestos & ", usua_g_categorias=" & int_g_categorias & ", usua_g_turnos=" & int_g_turnos & ", usua_g_usuarios=" & int_g_usuarios & ", usua_g_bajar=" & int_g_bajar & ", usua_s_solicitud=" & int_s_solicitud & ", usua_s_departamentos=" & int_s_departamentos & ", usua_s_puestos=" & int_s_puestos & ", divi_clave='" & str_division & "', usua_g_aplicacion=" & int_g_aplicacion & ", usua_g_actualizacion=" & int_g_actualizacion & ",usua_g_password=" & int_g_password & " WHERE usua_clave ='" & str_clave & "' AND empr_clave ='" & str_empresa & "';"
			'Response.Write(str_consulta)
			Cnn.Execute STR_CONSULTA,,1
		end if
	CASE "eliminar"
		STR_CONSULTA = "SELECT * FROM solicitud WHERE usua_clave ='" & str_clave  & "' AND empr_clave ='" & str_empresa & "'"
		RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
		IF RES_DATOS.EOF = true then ' si no existe
			STR_CONSULTA = "DELETE FROM usuario WHERE usua_clave ='" & str_clave  & "' AND empr_clave ='" & str_empresa & "'"
			Cnn.Execute STR_CONSULTA,,1
		else
			str_mensaje_error= "No es posible eliminar al usuario, esta siendo utilizada por registros de evaluación."			
		end if
		RES_DATOS.Close
END SELECT
Cnn.Close

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

%>
