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

<HTML>

<HEAD>
	<TITLE>Piscitrol: Ambiente</TITLE>
	<LINK REL="stylesheet" TYPE="text/css" HREF="Estilos.css">
	<% =sReload %>
</HEAD>

<BODY>

<%
	Session("ID_Amb") = Request.QueryString("ID_Amb")
	ID_Amb = Session("ID_Amb")
	
	set rsAmbiente = server.CreateObject("ADODB.Recordset")
	sqlAmbiente = "SELECT Mod_ID, Mod_Nombre, Amb_Nombre " & _
				  "FROM t_Modulos LEFT JOIN t_Ambientes ON t_Modulos.Mod_ID = t_Ambientes.Amb_Modulo " & _
				  "WHERE Amb_ID= " & ID_Amb & ";"
	rsAmbiente.open sqlAmbiente, cn, adOpenForwardOnly, adLockReadOnly, adCmdText

	set rsControles = server.CreateObject("ADODB.Recordset")
	sqlControles = "SELECT CCo_Actuador, Con_Ubicacion, Con_ID, Con_Estado, CCo_TxtOn, CCo_TxtOff " & _
				"FROM (t_TipoControles INNER JOIN (t_CatControles INNER JOIN t_Controles ON t_CatControles.CCo_ID = t_Controles.Con_Tipo) ON t_TipoControles.TCo_ID = t_CatControles.CCo_Tipo) INNER JOIN t_ControlesEscenario ON t_Controles.Con_ID = t_ControlesEscenario.CoE_Control " & _
				"WHERE Con_Ambiente=" & ID_Amb & " AND CoE_Escenario Is Null " & _
				"ORDER BY CCo_Actuador, Con_Ubicacion;"
	'Response.Write sqlControles
	rsControles.open sqlControles, cn, adOpenForwardOnly, adLockReadOnly, adCmdText

	Session("PorFecha")=2
	%>
	<table border=0>
		<tr class=top>
			<td width=120px>LISTA</td>
				<td width=520px>
					<a href="Alarmas.asp" title="Ver listado de Alarmas en curso">Alarmas</a>
				</td>
			<td width=120px>MAPA</td>
		</tr>

		<tr class=top>
			<td><a href="ListadoModulos.asp" title="Ver listado de los Modulos">Modulos</a></td>
			<td><% =rsAmbiente("Mod_Nombre") %></TD>
			<td><a href="MapaGeneral.asp" title="Ver mapa General">Modulos</a></td>
		</tr>

		<tr class=top>
			<td><a href="ListadoAmbientes.asp?ID_Mod=<% =rsAmbiente("Mod_ID") %>" title="Ver listado de los Ambientes">Ambientes</a></td>
			<td class=title><% =rsAmbiente("Amb_Nombre") %></TD>
			<td><a href="MapaModulo.asp?ID_Mod=<% =rsAmbiente("Mod_ID") %>" title="Ver mapa del Modulo">Ambientes</a></td>
		</tr>

		<tr>
			<td class="opcion" valign="top"><!-- OPCIONES -->
				<table align=center width="100%">
					<tr class="menu"><td align=center>Opciones</td></tr>
					<tr><td><a href="ListadoSensores.asp?ID_Amb=<% =ID_Amb %>" title="Ver Sensores">Sensores</a></td></tr>
					<tr><td><a href="Salida.asp" title="Reiniciar como un nuevo usuario">Salir</a></td></tr>
				</table>
			</td>
			
			<td align="left" valign="top" colspan="2" style="position: relative;">
				<table width=55%>
					<tr class=head>
						<td width=40%>CONTROL</td>
						<td width=15%>ESTADO</td>
					</tr>

					<%
					While Not rsControles.Eof
						if rsControles("Con_Estado") then
							strClass = "alarma"
							sEstado = rsControles("CCo_TxtOn")
						else
							strClass = "data"
							sEstado = rsControles("CCo_TxtOff")
						end if 

						sControl = rsControles("CCo_Actuador")
						if  rsControles("Con_Ubicacion") <> "" then
							sControl = sControl & " " &  rsControles("Con_Ubicacion")
						end if

						%>

						<tr class=<% =strClass %>>
							<td><% =sControl %></td>
							<td><% =sEstado %></td>
						</tr>

						<%
						rsControles.MoveNext
					Wend
					%>
						
				</table>
			</td>
		</tr>
	</table>


</BODY>
</HTML>