
<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->

<% 
dim str_password 
dim str_usuario
dim str_consulta, str_destino, str_empresa, str_provider, str_bd
dim bol_datos 
str_usuario = ""
str_password = ""
bol_datos = false
str_usuario =Request.Form("txt_usuario")
str_password = request.Form("txt_password")
str_empresa=Request.Cookies("sieps")("empresa")

str_bd= application("bd_sieps")

if trim(str_usuario) = empty OR trim(str_password) = EMPTY THEN
	call manda_error
end if

SET Cnn = SERVER.CreateObject("ADODB.CONNECTION")
set res_datos = server.CreateObject("ADODB.Recordset")

cnn.Open str_bd

if STR_USUARIO <> empty and str_password <> EMPTY THEN
	STR_CONSULTA = "SELECT usua_clave, usua_nombre FROM usuario WHERE empr_clave='" & str_empresa & "' AND usua_clave = '" & str_usuario & "' AND usua_password ='" & str_password & "'"
	res_datos.Open STR_CONSULTA,cnn,adOpenForwardOnly,adLockReadOnly,1

	if res_datos.EOF = false then
		Response.Cookies("sieps")("usuario_clave") = res_datos("Usua_Clave")
		Response.Cookies("sieps")("usuario_nombre") = res_datos("usua_nombre")
		res_datos.Close
		cnn.Close
		Response.Redirect "registro_listado.asp"
	else
		res_datos.Close
		cnn.Close
		call manda_error
		
	END IF
end if

SUB manda_error
	str_destino="uti_error.asp?or=usuario.asp&enca=ERROR&mens=" & server.URLEncode("Clave de Usuario o Password no válido") 
	Response.Redirect(str_destino)
end sub
%>
	