<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<%
Response.Buffer=true
DIM STR_CONSULTA, int_folio, str_proceso
DIM int_w, int_h
int_w="100%"
int_h="100%"

str_empresa= Request.Cookies("sieps")("empresa")

lon_folio= Request.Cookies("sieps")("folio")

str_bd= application("bd_sieps")

SET rs = server.CreateObject("ADODB.Recordset")
SET conn = SERVER.CreateObject("ADODB.CONNECTION")

conn.Open str_bd

str_filtro = ""

STR_CONSULTA = "SELECT * FROM pruebas_seleccionadas WHERE soli_folio = " & lon_folio
On Error Resume Next
rs.Open STR_CONSULTA, conn, adOpenStatic, adLockReadOnly, 1
handleError(conn)
if rs.EOF=false then
    For F = 1 To 30
        if str_filtro <> empty then str_filtro = str_filtro & " OR "
        str_filtro = str_filtro & "prue_clave ='" & rs.Fields(f) & "'"
    Next
else
sendMensajeToConsole("No hay pruebas seleccionadas para este candidato. Verifique")
end if

rs.Close

sub handleError(connectionRef)
	dim objErr
	dim str_c
	dim strrr, flag
	flag = 0

	if connectionRef.Errors.Count <> 0 Then
		str_c = str_c & "Count: " 
		str_c = str_c & connectionRef.Errors.Count
		for each objErr in connectionRef.Errors
			if objErr.Number <> 0 then ' Number = 0 el error es meramente informativo
				str_c = str_c & " Number: "
				str_c = str_c & objErr.Number			
				
				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
				flag = 1
			end if
		next		
		if flag <> 0 then
			' clean up		
			if conn.State = adStateOpen then
				conn.Close
			end if
			
			set rs = Nothing
			set conn = Nothing
			set connectionRef = nothing
			
			strrr = "uti_console.asp?mensaje=" & "Error: " & str_c 
			Response.Redirect(strrr)
		end if		
	end if	
end sub	
	
sub sendMensajeToConsole(mensaje)
	dim strrr
	strrr="uti_console.asp?mensaje=" & mensaje
	Response.Redirect(strrr)
end sub
%>

<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link REL="stylesheet" TYPE="text/css" HREF="stylesheet.css">
</head>
<!--#INCLUDE FILE="uti_utilerias_aplicacion.asp"-->
<script LANGUAGE="javascript">
<!--

function abortar()
{
	location.href="aplicacion_termina.asp"
}

function iniciar()
{
	image1= new Image;
	image1.scr="images/btn_iniciar_1.jpg";
}

//-->
</script>
<form name="form1" id="form1" method="post" action="uti_marco.asp?prueba=auto_aplica.asp&amp;nombre=Auto Descripción">
<body class="body" topmargin="6" bottommargin="6" leftmargin="6" rightmargin="6" bgColor="slategray" onLoad="iniciar" onkeydown="evento()">
<!--#INCLUDE FILE="uti_fondo.asp"-->

<table width="100%" border="0" bgcolor="white" cellspacing="0" cellpadding="0">
		<tr>
			<td width="100%" align="center">
				<br><br>
				<font class="titulo_instrucciones">Bienvenido<br>
				</font>
				<br>
				<table width="85%" Align="center" valign="top" border="0" borderColor="white" borderColorLight="#666666" cellspacing="0" cellpadding="4">
					<tr>
						<td valign="top">
							<font class="eti_azul_11">
								&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;A continuación iniciará la aplicación de tests psicológicos y/o de habilidades y preferencias. Los resultados servirán al interesado para conocer sus fortalezas, habilidades y áreas de oportunidad en el desempeño de las actividades y responsabilidades planeadas.
								<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Trate de contestar las pruebas de forma espontánea y sincera para que los resultados sean lo más cercanos a la realidad.
								<br><br>Los test que aplicará son los siguientes:
							</font>
						</td>
				    </tr>
				 </table>
				 <br>
				<table valign="top" border="1" width="350" bordercolor="white" bgColor cellspacing="0" cellpadding="2">
					<tr bgColor="gainsboro">
						<td width="85%" align="middle"><b><font class="eti_azul_11_b">Nombre de Prueba</font></b></td>
						<td width="15%" align="middle"><b><font class="eti_azul_11_b">Tiempo</font></b></td>
					</tr>

						<%
						STR_CONSULTA = "SELECT prue_clave, prue_nombre, prue_tiempo FROM pruebas WHERE " & STR_FILTRO & " ORDER BY prue_orden" 
						rs.Open STR_CONSULTA, conn,adOpenForwardOnly,adLockReadOnly,1

						DBL_TIEMPO_TOTAL=0
						i=0
						int_contador=0
						if rs.EOF= FALSE THEN
							Do Until rs.EOF 
								int_contador=int_contador+1
								str_clave= rs.Fields("prue_clave")
								str_nombre= rs.Fields("prue_nombre")
								str_tiempo= rs.Fields("prue_tiempo")
								dbl_hora = Mid(STR_TIEMPO, 1, 2)
								dbl_minutos = Mid(STR_TIEMPO, 3, 2)
								dbl_Segundos = Mid(STR_TIEMPO, 5, 2)
								tiempo_actual = dbl_hora & ":" & dbl_minutos & ":" & dbl_Segundos
								DBL_HORA_SEG = (dbl_hora * 60 * 60)
								DBL_MIN_SEG = (dbl_minutos * 60)			
                				dbl_hora = Mid(STR_TIEMPO, 1, 2)
								dbl_minutos = Mid(STR_TIEMPO, 3, 2)
								dbl_Segundos = Mid(STR_TIEMPO, 5, 2)
								tiempo_actual = dbl_hora & ":" & dbl_minutos & ":" & dbl_Segundos

				                DBL_TIEMPO_TOTAL = DBL_TIEMPO_TOTAL + (DBL_HORA_SEG + DBL_MIN_SEG + dbl_Segundos)
														
								if i=0 then 
									Response.Write("<tr bgcolor=''>")
									i=1
								else
									Response.Write("<tr bgcolor='WhiteSmoke'>")
									i=0
								end if
								%>	
									<td align="left"><font class="eti_azul_11"><%=str_nombre%></font></td>
									<td align="middle"><font class="eti_azul_11"><%=tiempo_actual%></font></td>
								</tr>
						<%
								rs.MoveNext
							loop
						end if
						rs.Close
						conn.Close
						%>
					</tr>
				</table>
				<br>
				<table width="85%" Align="center" valign="top" border="0" borderColor="white" borderColorLight="#666666" cellspacing="0" cellpadding="4">
					<tr>
						<td style="text-align:center;" valign="top">
                          
                          <p>                            <font class="eti_azul_11">
                            El sistema le mostrará en forma consecutiva las pruebas para que las resuelva. 
                            <br><br>
                            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cada test contiene instrucciones y ejemplos que le ayudarán a comprender
                              la forma en que se resuelve. <b>Deberá leer cuidadosamente todas las instrucciones y practicar con los ejemplos</b> antes de iniciar cada prueba.
                            </font></p>
						</td>
				    </tr>
				 </table>
				
				<br>
				<table align="center">
					<tr>
						<td width="100%" align="middle">
							<a href="uti_siguiente.asp">
								<img alt="Iniciar prueba" border="0" name="pic_iniciar" onMouseOut="document.pic_iniciar.src='images/btn_iniciar_0.jpg'" onMouseOver="document.pic_iniciar.src='images/btn_iniciar_1.jpg'" src="images/btn_iniciar_0.jpg" WIDTH="79" HEIGHT="27">
							</a>
							<br>
						</td>
 					</tr>
				</table>
			</td>
		</tr>
</table>
<!--#INCLUDE FILE="uti_calce.asp"-->
</body>
</form>
</html>