<!-- #include file="ini.inc" -->
<!-- #include file="Local.inc" -->
<!-- #include file="Piscitrol.inc" -->
<!-- #include file="adovbs.inc"-->

<HTML>

<HEAD>
	<TITLE>TermoNet: Inicio</TITLE>
	<LINK REL="stylesheet" TYPE="text/css" HREF="estilos.css">
</HEAD>

<BODY>

<%

	Session("Login") = Request.Form("textUsuario")
	Session("Password") = Request.Form("textClave")
	Session("Navegar")= Request.Form("bottonradio")

	set Session("cn") = server.CreateObject("ADODB.connection")
	set Session("rsUsuarios") = server.CreateObject("ADODB.Recordset")	'OJO con la memoria del servidor (esta tabla es chica)
	Session("cn").Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;DATA SOURCE=" & BASEDATO & ";Jet OLEDB:Database Password=Password"
	'Session("cn").Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};PWD=Password;DBQ= " & BASEDATO 
	set cn = Session("cn")
	sql = "SELECT * " & _
		  "FROM t_Usuarios " & _
		  "WHERE Usu_Login = '" & Session("Login") & "' And " & _
			    "Usu_Password='" & Session("Password") & "';"
	Session("rsUsuarios").Open sql , cn, adOpenForwardOnly, adLockReadOnly, adCmdText
	set rsUsuarios = Session("rsUsuarios")

	if rsUsuarios.EOF then
		%>
		<table align=center>
			<tr><td>Usuario no encontrado</td></tr>
			<tr><td>&nbsp</td></tr>
			<tr><td><a href="Entrada.asp" title="Reiniciar como un nuevo usuario">Iniciar</a></td></tr>
		</table>
		<%
	else

		Session("Usuario")=rsUsuarios("Usu_ID")

		set Session("rsParametros") = server.CreateObject("ADODB.Recordset")
		sql = "SELECT * FROM t_Parametros;"
		Session("rsParametros").Open sql, cn

		set rsModulos = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT * FROM t_Modulos;"
		rsModulos.open sql, cn

		if rsModulos.EOF then
			%>
			<p>No hay datos de Modulos.</p>
			<%
			Session.Abandon
		Else
		
			if Session("Navegar") = ptNavegarActualizado then
				If Not Session("rsParametros")("Prm_Encendido") Then
					Session("Navegar") = ptNavegarOffLine
					%>
					<table align=center>
						<tr><td>El software Monitor Piscitrol se encuentra apagado.<td></tr>
						<tr><td>Puede continuar en modo Off-Line.</td></tr>
						<tr><td><br></td></tr>
						<tr>
							<td align=left><a href="Alarmas.asp" title="Continuar en modo Off-Line">Continuar</a></td>
							<td align=rigth><a href="Salida.asp" title="Reiniciar como un nuevo usuario">Salir</a></td>
						</tr>
					</table>
					<%
				else
					response.redirect("Alarmas.asp")
				End If

			else
				If Session("Navegar") = ptNavegarOffLine Then
				
					response.redirect("Alarmas.asp")

				end if
			end if

		End If

	End If

%>

</BODY>
</HTML>
