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

<% 
dim str_password, str_empresa
dim str_consulta, str_destino, str_provider, str_bd
str_password = Request.Form("txt_password")
str_empresa =Request.Form("txt_empresa")


str_bd= application("bd_sieps")


if str_password = EMPTY OR str_empresa = 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_password <> EMPTY OR str_empresa = EMPTY THEN
	STR_CONSULTA = "SELECT empr_clave, empr_nombre FROM empresa WHERE empr_password = '" & str_password & "' And empr_clave='" & str_empresa &"'"
	res_datos.Open STR_CONSULTA,cnn,adOpenForwardOnly,adLockReadOnly,1

	if res_datos.EOF = false then
		Response.Cookies("sieps")("empresa") = res_datos("empr_Clave")
		Response.Cookies("sieps")("nombre_empresa") = res_datos("empr_nombre")
		res_datos.Close
		cnn.Close
		Response.Redirect "usuario.asp"
	else
		res_datos.Close
		cnn.Close
		call manda_error
	END IF
end if

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