<%@ Language=VBScript %>
<!--#INCLUDE file="ADOVBS.inc"-->
<%
	dim lon_folio, str_proceso
	dim sqlQuery, rs, conn, bln_muestra, bln_capmanual, str_instruccion
	dim testId

	dsn= application("bd_sieps")

	set conn = server.CreateObject ("ADODB.Connection")
	set rs = server.CreateObject ("ADODB.Recordset")

	conn.Open dsn

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

	str_prueba_actual = Request.Cookies("sieps")("clave_prueba")
	bln_capmanual=False
	str_tabla=""
		
	sqlQuery = "SELECT * FROM pruebas_seleccionadas WHERE soli_folio =" & lon_folio
	On Error Resume Next
	rs.Open sqlQuery, conn,adOpenForwardOnly,adLockReadOnly,1
	handleError(conn)
	IF rs.EOF = false then ' si existe
		rs.MoveFirst
		If str_prueba_actual = "" Then
			str_clave_nueva = rs.Fields(1)
			bln_muestra = True
			If bln_capmanual = False AND str_clave_nueva = "BETA" Then
				str_clave_nueva = rs.Fields(2)
				If str_clave_nueva = Empty Then
					bln_muestra = False
				End If
			End If
		   
		Else
			For I = 1 To 30
				If rs.Fields(I) = str_prueba_actual Then
					if isnull(rs.Fields(I + 1))then
						str_clave_nueva=""
					else
						str_clave_nueva = rs.Fields(I + 1)
					end if        
					If bln_capmanual = False AND str_clave_nueva = "BETA" Then
						str_clave_nueva = rs.Fields(I + 2)
					End If
					
					If str_clave_nueva = Empty Then
						bln_muestra = False
					Else
						bln_muestra = True
					End If
					Exit For
				End If
			Next
		End If
	end if
	rs.Close

	If bln_muestra = True Then
		If bln_capmanual = True Then 
			Select Case str_clave_nueva
				Case "KOST"
					str_instruccion="pf16a_instruccion.asp"
				Case "VPER"
					str_instruccion="pf16a_instruccion.asp"
				Case "16PF"
					str_instruccion="pf16a_instruccion.asp"
				Case "PFB"
					str_instruccion="pf16a_instruccion.asp"
				Case "16PC"
					str_instruccion="pf16a_instruccion.asp"
				Case "TERM"
					str_instruccion="pf16a_instruccion.asp"
				Case "DOMI"
					str_instruccion="pf16a_instruccion.asp"
				Case "BETA"
					str_instruccion="pf16a_instruccion.asp"
				Case "ADES"
					str_instruccion="pf16a_instruccion.asp"
				Case "ORTO"
					str_instruccion="pf16a_instruccion.asp"
				Case "FIGS"
					str_instruccion="pf16a_instruccion.asp"
				Case "EAPR"
					str_instruccion="pf16a_instruccion.asp"
				Case "CCAQ"
					str_instruccion="pf16a_instruccion.asp"
				Case "CATE"
					str_instruccion="pf16a_instruccion.asp"
				Case "MBTI"
					str_instruccion="pf16a_instruccion.asp"
				Case "MATA"
					str_instruccion="pf16a_instruccion.asp"
				Case "MATB"
					str_instruccion="pf16a_instruccion.asp"
				Case "MMPI"
					str_instruccion="pf16a_instruccion.asp"
				Case "LIFO"
					str_instruccion="pf16a_instruccion.asp"
				
			End Select
			Response.Cookies("sieps")("clave_prueba")=str_clave_nueva
		Else
			Select Case str_clave_nueva
				Case "KOST"
					str_instruccion="kostick_instruccion.asp"
				Case "VPER"
					str_instruccion="vp_instruccion.asp"
				Case "16PF"
					str_instruccion="pf16a_instruccion.asp"
				Case "PFB"
					str_instruccion="pf16b_instruccion.asp"
				Case "16PC"
					str_instruccion="pf16c_instruccion.asp"
				Case "TERM"
					str_instruccion="term1_instruccion.asp"
				Case "ADES"
					str_instruccion="auto_instruccion.asp"
				Case "FIGS"
					str_instruccion="figs_instruccion.asp"
				Case "EAPR"
					str_instruccion="estilos_instruccion.asp"
				Case "CCAQ"
					str_instruccion="caq_instruccion.asp"
				Case "CATE"
					str_instruccion="catell_instruccion.asp"
				Case "MBTI"
					str_instruccion="mbti_instruccion.asp"
				Case "MATB"
					str_instruccion="ravenbasico_instruccion.asp"
				case "MATA"
					str_instruccion="ravenavanzado_instruccion.asp"
				Case "MMPI"
					str_instruccion="mmpi_instruccion.asp"
				Case "MMPA"
					str_instruccion="mmpia_instruccion.asp"
				Case "MMP2"
					str_instruccion="mmpi2_instruccion.asp"
				Case "LIFO"
					str_instruccion="lifo_instruccion.asp"
				Case "IPV"
					str_instruccion="ipv_instruccion.asp"
				Case "MBTI"
					str_instruccion="mbti_instruccion.asp"
				Case "GORD"
					str_instruccion="gordon_instruccion.asp"
				Case "KUDV"
					str_instruccion="kuder_vocacional_instruccion.asp"
				Case "KUDP"
					str_instruccion="kuder_personal_instruccion.asp"
				Case "ANGE"
					str_instruccion="angelini_instruccion.asp"
				Case "EDWA"
					str_instruccion="edwards_instruccion.asp"
				Case "DOMI"
					str_instruccion="domino70_instruccion.asp"
				Case "DO40"
					str_instruccion="domino48_instruccion.asp"
				Case "WOND"
					str_instruccion="wonderlic_instruccion.asp"
				Case "PDAT"
					str_instruccion="datverbal_instruccion.asp"
				Case "ORTO"
					str_instruccion="TestStart.asp"	
					testId = "ORTO"
			End Select
			Response.Cookies("sieps")("clave_prueba")=str_clave_nueva
		End If
	else
		Response.Redirect("aplicacion_termina.asp")
	End If

	conn.Close
	Session("testId") = testId
	Session.timeout = 1440
'	sendMensajeToConsole("El booleano muestra: "&bln_muestra&" El booleano capmanual: "& bln_capmanual&" La clave de la prueba a comenzar es: "&str_clave_nueva&" Redirige a: "&str_instruccion)
	Response.Redirect(str_instruccion)
	'Response.Redirect("uti_marco.asp")

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
%>
