<!--#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">
</HEAD>

<BODY>

<%
	ID_Reg = Request.QueryString("ID_Reg")
	
	set rsRegistro = server.CreateObject("ADODB.Recordset")
	sql = "SELECT Mod_ID, Mod_Nombre, Amb_ID, Amb_Nombre, Reg_Nombre, Reg_FechaIni, Reg_FechaFin, Reg_Notas " & _
		  "FROM t_Registros INNER JOIN (t_Modulos INNER JOIN t_Ambientes ON t_Modulos.Mod_ID = t_Ambientes.Amb_Modulo) ON t_Registros.Reg_Ambiente = t_Ambientes.Amb_ID " & _
		  "WHERE Reg_ID=" & ID_Reg & ";"
	'Response.Write sql
	rsRegistro.open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText

	%>
	<table border=0 width=100%>
		<tr class=top>
			<td width=16%>LISTA</td>
				<td width=68%>
					<a href="Alarmas.asp" title="Ver listado de Alarmas en curso">Alarmas</a>
				</td>
			<td width=16%>MAPA</td>
		</tr>

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

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

		<tr class=top>
			<td><a href="RegistrosAmbiente.asp?ID_Amb=<% =rsRegistro("Amb_ID") %>" title="Ver listado de los Registros">Registros</a></td>
			<td class=title><% =rsRegistro("Reg_Nombre") %></TD>
			<td><a href="RegistrosAmbiente.asp?ID_Amb=<% =rsRegistro("Amb_ID") %>" title="Ver listado de los Registros">Registros</a></td>
		</tr>

		<tr>
			<td class="opcion" valign="top"><!-- OPCIONES -->
				<table width="100%">
					<tr class="menu"><td align=center>Opciones</td></tr>
					<tr><td><a href="ListadoSensores.asp?ID_Amb=<% =rsRegistro("Amb_ID") %>&ID_Reg=<% =ID_Reg %>" title="Ver Sensores">Sensores</a></td></tr>
					<tr><td><a href="ListadoControles.asp?ID_Amb=<% =rsRegistro("Amb_ID") %>" title="Ver Controles">Controles</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 align=left width=81%>
					<tr>
						<td class=label width=20%>Nombre</td>
						<td class=text width=61%><% = rsRegistro("Reg_Nombre") %></td>
					</tr>
					<tr>
						<td class=label>Inicio</td>
						<td class=text><% = rsRegistro("Reg_FechaIni") %></td>
					</tr>
					<tr>
						<td class=label>Fin</td>
						<td class=text><% = rsRegistro("Reg_FechaFin") %></td>
					</tr>
					<tr>
						<td class=label>Notas</td>
						<td class=text><% = rsRegistro("Reg_Notas") %></td>
					</tr>
				</table>
			</td>
		</tr>
	</table>


</BODY>
</HTML>