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

<% 
sub sendError(errors)
	dim objErr
	dim str_c
	for each objErr in errors
'		str_c="State of conn: "&Cnn.State
'		str_c=str_c & " --> ConnectionString: "&Cnn.ConnectionString
'		str_c=str_c & " --> Mode: "&Cnn.Mode
'		str_c=str_c & " --> Provider: "&Cnn.Provider
'		str_c=str_c & " --> Pueba select: " & str_nombre
'		str_c=str_c&" Errores: "
		str_c=str_c&"Description: "
		str_c=str_c&objErr.Description  
	  
		str_c=str_c&". Native error: "
		str_c=str_c&objErr.NativeError 
		  
		str_c=str_c&". SQL state: "
		str_c=str_c&objErr.SQLState
	next
	if Len(str_c) > 1 then
		strrr="uti_console.asp?mensaje=" & "El Estado de la conexion antes del insert: \n" & str_c 
		Response.Redirect(strrr)
	end if
end sub

dim str_password 
dim str_usuario
dim str_consulta, str_destino, str_empresa, str_provider, odbcName
dim bol_datos 
str_usuario = ""
str_password = ""
bol_datos = false
dim strrr

str_password = request.Form("TXT_CLAVE")
		
if  trim(str_password) = EMPTY THEN
	call manda_error
end if

odbcName = application("bd_sieps")
dim strConnection
strConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("/bdd/DATOS.mdb")

SET Cnn = SERVER.CreateObject("ADODB.CONNECTION")
'cnn.Provider="Microsoft.Jet.OLEDB.4.0"
strrr="uti_console.asp?mensaje=" & "El origen1 : " & application("bd_sieps") &" El origen2: " & Server.Mappath("/bdd/DATOS.mdb")
'Response.Redirect(strrr)

set res_datos = server.CreateObject("ADODB.Recordset")

On Error Resume Next
'cnn.Open odbcName
cnn.Open strConnection
cnn.Open(Server.Mappath("/bdd/DATOS.mdb"))
sendError(cnn.Errors)

if str_password <> EMPTY THEN
	STR_CONSULTA = "SELECT soli_folio, empr_clave FROM solicitud  WHERE soli_password='"  & str_password & "'"
	res_datos.Open STR_CONSULTA,cnn,adOpenForwardOnly,adLockReadOnly,1
	sendError(cnn.Errors)
	
	if res_datos.EOF = false then
		Response.Cookies("sieps")("folio") = res_datos("soli_folio")
		Response.Cookies("sieps")("empresa") = res_datos("empr_clave")
		res_datos.Close
		cnn.Close
	else
		res_datos.Close
		cnn.Close
		call manda_error		
	END IF
else
	call manda_error
end if

SUB manda_error
	str_destino="uti_error.asp?or=usuario.asp&enca=ERROR&mens=" & server.URLEncode("Clave de acceso incorrecta") 
	Response.Redirect(str_destino)
end sub
%>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<title></title>
<script LANGUAGE="javascript">
<!--
function accion(str_accion)
	{// se queda abierto ingresar clave y en una ventana emergente se abre datos.asp
	 // se debe quitar ingresar clave y solamente redirigir a datos.asp
		window.open ('datos.asp','',config='fullscreen=yes,height=570,width=789,top=0,left=0,scrollbars=yes')
		window.location.href="ingresarclave.asp";
		
	}
-->
</SCRIPT>
</head>
<body onLoad="accion('<%=str_accion%>')">
</body>
</html>	