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

<%

Function HrefModulo(rstModulo)
	if rstModulo("Mod_Imagen") <> "" then
		HrefModulo = "MapaModulo.asp?" 
	else
		HrefModulo = "ListadoAmbientes.asp?" 
	end if
	HrefModulo = HrefModulo & "ID_Mod=" & rstModulo("Mod_ID")
End Function

%>
<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, Mod_Top, Mod_Left, Mod_Width, Mod_Height, Mod_Imagen " & _
				 "FROM q_ListadoModulos;"
	'Response.Write sqlModulos
	rsModulos.open sqlModulos, cn, adOpenStatic

	If rsModulos.Recordcount=1 then
		if IsNull(rsParametros("Prm_Imagen")) then
			response.redirect("ListadoAmbientes.asp?ID_Mod=" & rsModulos("Mod_ID"))
		else
			response.redirect("MapaModulo.asp?ID_Mod=" & rsModulos("Mod_ID"))
		end if
	End if

	If IsNull(rsParametros("Prm_Imagen")) then
		response.redirect("ListadoModulos.asp")
	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><a href="ListadoModulos.asp" title="Ver listado de los Modulos">Modulos</a></td>
			<td class=title>GENERAL</TD>
			<td>Modulos</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;">

				<img src="Mapas\<% Response.Write rsParametros("Prm_Imagen") %>" 
					 width="640" 
					 height="400" 
					 usemap="#Map1" 
					 border="0" 
					 vspace="0"
					 hspace="0">
				<map name="Map1"><%
					Do
						if IsNumeric(rsModulos("Mod_Left")) And _
						   IsNumeric(rsModulos("Mod_Top")) And _
						   IsNumeric(rsModulos("Mod_Width")) And _
						   IsNumeric(rsModulos("Mod_Height")) Then
							%>
							<area shape="rect"
								  coords="<% Response.Write rsModulos("Mod_Left") & ", " & _
															rsModulos("Mod_Top") & ", " & _
															rsModulos("Mod_Left") + rsModulos("Mod_Width") & ", " & _
															rsModulos("Mod_Top") + rsModulos("Mod_Height") %>"
								  title="Ver modulo <% Response.Write rsModulos("Mod_Nombre") %>"
								  href="<% =HrefModulo(rsModulos) %>">
							<%
						end if
						rsModulos.MoveNext								
					Loop Until rsModulos.EOF 
					%>
				</map>
				<%
				rsModulos.MoveFirst
				Do
					if IsNumeric(rsModulos("Mod_Left")) And _
					   IsNumeric(rsModulos("Mod_Top")) And _
					   IsNumeric(rsModulos("Mod_Width")) And _
					   IsNumeric(rsModulos("Mod_Height")) Then
						%>
						<span style=" position: absolute;
									  left: <% Response.Write rsModulos("Mod_Left") %> ;
									  top: <% Response.Write rsModulos("Mod_Top") %> ;
									  width: <% Response.Write rsModulos("Mod_Width") %> ;
									  text-align: center;
									  overflow: hidden;">
							<a style="text-decoration: none; 
									  <%
										if IsNumeric(rsModulos("Alarmas")) Then
											if rsModulos("Alarmas") > 0 then
												Response.Write "color: red;"
											end if
										end if %>" 
							   title="Ver modulo <% Response.Write rsModulos("Mod_Nombre") %>"
								  href="<% =HrefModulo(rsModulos) %>">
							<% Response.Write rsModulos("Mod_Nombre") %></a>
						</span>
						<%
					end if
					rsModulos.MoveNext								
				Loop Until rsModulos.EOF 
				%>
			</td>
		</tr>
	</table>


</body>
</html>