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

<HTML>
<HEAD>
	<title>Piscitrol: Lista General</title>
	<LINK REL="stylesheet" TYPE="text/css" HREF="estilos.css">
	<% =sReload %>
</HEAD>

<BODY>

	<%
	set rsModulos = server.CreateObject("ADODB.Recordset")

	sqlModulos = "SELECT Mod_Nombre, Mod_ID, Ambientes, Alarmas " & _
				 "FROM q_ListadoModulos;"
	'Response.Write sqlModulos
	rsModulos.open sqlModulos, cn, adOpenStatic

	If rsModulos.Recordcount=1 then
		response.redirect("ListadoAmbientes.asp?ID_Mod=" & rsModulos("Mod_ID"))
	End if

	%>

	<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>Modulos</td>
			<td class=title>GENERAL</TD>
			<td><a href="MapaGeneral.asp" title="Ver mapa de los Modulos">Modulos</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="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=100%>
					<tr class=head>
					<td width=40%>NOMBRE</td>
					<td width=30%>AMBIENTES</td>
					<td width=30%>ALARMAS</td>
					</tr>

					<%
					while not rsModulos.eof
						iAlarmas = rsModulos("Alarmas")
						if rsModulos("Alarmas") = "0" then
							strClass = "data"
						else
							strClass = "alarma"
						end if 
						%> 
						<tr class=<% =strClass %>>
							<td><a href="ListadoAmbientes.asp?ID_Mod=<% =rsModulos("Mod_ID") %>" title="Ver Ambientes del Modulo <% =rsModulos("Mod_Nombre") %>"><% =rsModulos("Mod_Nombre") %></a></td>
							<td><% =rsModulos("Ambientes") %></td>
							<td><% =rsModulos("Alarmas") %></td>
						</tr>

						<%
						rsModulos.MoveNext
					wend
					%>

				</table>

			</td>
		</tr>
	</table>


</body>
</html>