 <%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<% 
DIM clave, fullName, status
DIM sqlQuery, str_estatus, wichPage, titlePage
DIM int_w, int_h
int_w="100%"
int_h="100%"

str_bd= application("bd_sieps")
clave = session("empresa")
fullName= session("nombre_empresa")

wichPage = Request.QueryString("inbox")

clave= Request.Cookies("sieps")("empresa")
fullName=Request.Cookies("sieps")("nombre_empresa")

SET RES_DATOS = server.CreateObject("ADODB.Recordset")
SET cnn = SERVER.CreateObject("ADODB.CONNECTION")

cnn.Open str_bd

sqlQuery = switchInbox(wichPage) 

dim strrr
strrr="uti_console.asp?mensaje=" & "clave Empresa: "&clave&". full name: "&fullName&". wichPage: "&wichPage&". Query: "&sqlQuery
'Response.Redirect(strrr)
On Error Resume Next		
RES_DATOS.Open sqlQuery, cnn,adOpenStatic,adLockReadOnly,1
sendError(cnn.Errors)
str_registros = trim(cstr(res_datos.RecordCount)) & " Registros encontrados..."

function switchInbox(inbox)
	dim sql 
	select case inbox
	case "empresa"
		titlePage = "Listado de Empresas"
		sql = "SELECT empr_clave AS clave, empr_nombre AS nombre, empr_estatus AS status "
		sql = sql & "FROM empresa WHERE empr_estatus='Activo' ORDER BY empr_clave ASC "
	case "division"
		
	end select	
	switchInbox = sql
end function

sub sendError(errors)
	dim objErr
	dim str_c
	dim strrr
	for each objErr in errors
'		str_c="State of conn: "&Cnn.State
'		str_c=str_c & " --> ConnectionString: "&Cnn.ConnectionString
'		str_c=str_c & " --> Mode: "&Cnn.Mode
'		str_c=str_c & " --> Provider: "&Cnn.Provider
'		str_c=str_c & " --> Pueba select: " & str_nombre
'		str_c=str_c&" Errores: "
		str_c=str_c&"Description: "
		str_c=str_c&objErr.Description  
	  
		str_c=str_c&"Native error: "
		str_c=str_c&objErr.NativeError 
		  
		str_c=str_c&"SQL state: "
		str_c=str_c&objErr.SQLState
	next
	if Len(str_c) > 1 then
		strrr="uti_console.asp?mensaje=" & "El Estado de la conexion antes del insert: \n" & str_c 
		Response.Redirect(strrr)
	end if
end sub
%>
<html>
	<head>
		<title>SIEPS WEB</title>
		<!--#INCLUDE FILE="uti_utilerias_cliente.asp"-->
		<script type="text/javascript" src="js/lib/prototype-1.6.0.2.js"></script>
		<link REL="stylesheet" TYPE="text/css" HREF="stylesheet.css">
		<script LANGUAGE="javascript">
		<!--
		function iniciar()
		{
			var image1
			image1= new Image;
			image1.scr="images/btn_nuevo_1.gif";
			image2= new Image;
			image2.scr="images/btn_salir_1.gif";
		}
		-->
		</script>
	</head>

	<body class="body" bgColor="slategray">
		<!--#INCLUDE FILE="uti_fondo.asp"-->

		<table valign="center" border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr>
				<td width="100%" align="middle" valign="top">
					<table border="0" width="100%" cellspacing="0" cellpadding="2">
						<tr>
							<td width="70%" align="left">
								<table border="0" width="100%" cellspacing="0" cellpadding="1">
									<tr>
										<td width="100%" align="left">
											<font class="etiqueta_roja"><%=fullName%></font>
										</td>
									</tr>
									<tr>
										<td width="100%" align="left">
											<font class="titulo_modulo"><%=titlePage%></font>
										</td>
									</tr>
								</table>
							</td>
							<td width="30%" align="right" valign="center">
								<table border="0" width="100%" bordercolor="dimgray" borderColorDark="white" cellspacing="0" cellpadding="0">
									<tr>
										<td width="100%" align="right" valign="top">
											<img alt="Ayuda en línea" border="0" style="border-color: DarkBlue; margin:0;margin-right:4px; cursor:hand" src="images/img_ayuda.gif" onclick="ver_ayuda()" WIDTH="24" HEIGHT="24">&nbsp;
										</td>
									</tr>
								</table>
							</td>
						</tr>
					</table>
				</td>
			</tr>
			<tr  bgColor="#EFEFEF">
				<td align="right" >
					<a href="new.asp?action=new&wichPage=<%=wichPage%>">
						<img id="btn_cancelar" src="images/btn_nuevo_0.gif" style="vertical-align:middle" WIDTH="74" HEIGHT="26" />
					</a>
					<a href="registro_listado.asp" >
						<img id="btn_salir" src="images/btn_salir_0.gif" style="vertical-align:middle" WIDTH="74" HEIGHT="26"/>
					</a>
				</td>
			</tr>
		</table>
		<table valign="top" border="0" width="100%" height="100%" cellspacing cellpadding="2">
			<tr height="100%">
				<td align="center" valign="top">
					<table border="0" width="99%" valign="top" bordercolor="dimgray" bgColor="white" cellspacing="0" cellpadding="2" background borderColorDark="white">
						<tr>
							<td width="100%" align="middle" valign="top">
								<table  id="tableRegisters" border="1" width="100%" bordercolor="white" bgColor cellspacing="0" cellpadding="2">
									<tr bgColor="gainsboro">
										<td width="20%" align="middle"><a class="link" href="#"><b>Clave</b></a></td>
										<td width="65%" align="middle"><a class="link" href="#"><b>Nombre</b></a></td>
										<td width="15%" align="middle"><a class="link" href="#"><b>Estatus</b></a></td>
									</tr>

										<%
										i=0
										if res_datos.RecordCount>0 then  res_datos.MoveFirst
										if res_datos.EOF= FALSE THEN
											Do Until RES_DATOS.EOF 
												clave = RES_DATOS.Fields("clave")
												fullName= RES_DATOS.Fields("nombre")
												status= RES_DATOS.Fields("status")
										
												if i=0 then 
													Response.Write("<tr bgcolor='white'>")
													i=1
												else
													Response.Write("<tr bgcolor='WhiteSmoke'>")
													i=0
												end if
										%>									
													<td width="20%" align="center">
														<a class="link" href="new.asp?wichPage=<%=wichPage%>&action=edit&clave=<%=clave%>">
															<%=clave%>
														</a>
													</td>
													<td width="65%" align="left"><font class="eti_tim_10"><%=fullName%></font></td>
													<td width="15%" align="middle"><font class="eti_tim_10"><%=status%></font></td>
												</tr>
										<%
												res_datos.MoveNext
											loop
										end if
										res_datos.Close
										cnn.Close
										%>

									<table border="0" width="100%" bordercolor="white" bgColor cellspacing="0" cellpadding="2">
										<tr>
											<td><i><font class="eti_tim_10"><%=str_registros%></font></i></td>
										</tr>
									</table>
							</td>
						</tr>
					</table>
				</td>
			</tr>
		</table>
		<!--#INCLUDE FILE="uti_calce.asp"-->
		<%	int_ancho_ayuda="370"%>

		<!--#INCLUDE FILE="uti_ayuda_inicio.asp"-->

		<table Align="center" width="96%" border="0" cellspacing="0" cellpadding="4">
			<tr>
				<td width="100%" align="left" valign="top" cellspacing="0" cellpadding="0">
					<font class="titulo-listado">Listado de Divisiones:</font>
						<br><br>
						<font class="etiqueta_normal">
						En este módulo se capturan y actualizan las divisiones de la empresa o institución que solicitan evaluaciones psicológicas con el fin de clasificar los registros y obtener estadísticas por este concepto.
						<br>Deberá tener al menos una división capturada.
						<br><br>
						<b>Opciones:</b>
						<br><br>
						<b><i>Nuevo:</i></b><br>
						Para capturar un registro nuevo presione el botón <i>Nuevo</i> que se encuentra en la barra superior de la pantalla.
						<br><br>
						<b><i>Cambios:</i></b><br>
						Seleccione del listado la clave del registro deseado y en la siguiente pantalla realice los cambios.
						<br><br>
						<b><i>Eliminar:</i></b><br>
						Seleccione del listado la clave del registro deseado y en la siguiente pantalla confirme la eliminación.
						<br><br>
						<b><i>Salir:</i></b><br>
						Para regresar a la pantalla anterior presione el botón <i>Salir</i> que se encuentra en la barra superior.
						<br><br>
						
					</font>
				</td>
			</tr>
		</table>
		<!--#INCLUDE FILE="uti_ayuda_fin.asp"-->
	</body>
</html>

