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

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

str_bd= application("bd_sieps")
idx= "http://manemployee.no-ip.org/idx_registro_listado.asp?idx="&str_usuario

if str_password = EMPTY OR str_empresa = EMPTY THEN
	call manda_error
end if

'coneccion a base de datos
SET Cnn = SERVER.CreateObject("ADODB.CONNECTION")
set res_datos = server.CreateObject("ADODB.Recordset")

cnn.Open str_bd

'validacion de usuario
if STR_USUARIO <> empty and str_password <> EMPTY THEN
	STR_CONSULTA = "SELECT Soli_idx, soli_nombre FROM solicitud WHERE empr_clave='" & str_empresa & "' AND Soli_idx = '" & str_usuario & "' AND Soli_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("soli_idx")
		Response.Cookies("sieps")("usuario_nombre") = res_datos("soli_nombre")
		res_datos.Close
		cnn.Close
		Response.Redirect idx
	else
		res_datos.Close
		cnn.Close
		call manda_error
	END IF
end if

'

'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
%>
	