<%@ Language=VBScript%>
<!--#INCLUDE file="ADOVBS.inc"-->
<%
	Response.Buffer=true
	dim idxTabb, idxTabbInt, tab, indexArray, MAX_INCOGN_PER_PAGE, maxIncognitasTabbLeft, idxTabbLeft
	dim qryStr
	maxIncognitas = 0
	indexArray = 0
	idxTabb = 0
	idxTabb = Request.Form("idxTabb")
	idxTabbInt = CInt(idxTabb)

	'Se obtiene las incognitas del tab seleccionado
	maxIncognitas = Request.Form("incognitas")(idxTabbInt)

	indexArray = getIndexArray(idxTabbInt - 1)

	qryStr ="?"
	qryStr = qryStr & "maxIncognitas=" & maxIncognitas & "&"
	qryStr = qryStr & getQueryString(indexArray,(indexArray + maxIncognitas)-1)
	select case idxTabb
		case "1"						
'			qryStr = qryStr & getQueryString(indexArray,(indexArray + maxIncognitas)-1)
'			qryStr = "El tam de la collection: "&Request.form("incognita").Count & " inicia barrido en: "&indexArray&" termina en: "&(maxIncognitas * 3)
'			strrr="uti_console.asp?mensaje=El qryStr queda: " & qryStr 
'			Response.Redirect(strrr)
			tab = "question1.asp"&qryStr
		Case "2"
'			qryStr = qryStr & getQueryString(indexArray,(indexArray + maxIncognitas)-1)			
'			qryStr = "El tam de la collection: "&Request.form("incognita").Count & " inicia barrido en: "&indexArray&" termina en: "&(maxIncognitas)
'			strrr="uti_console.asp?mensaje=El qryStr queda: " & qryStr 
'			Response.Redirect(strrr)
			tab = "question2.asp"&qryStr
		Case "3"
'			qryStr = qryStr & getQueryString(indexArray,maxIncognitas)			
'			qryStr = "El tam de la collection: "&Request.form("incognita").Count & " inicia barrido en: "&indexArray&" termina en: "&(maxIncognitas * 3)
'			strrr="uti_console.asp?mensaje=El qryStr queda: " & qryStr 
'			Response.Redirect(strrr)
			tab = "question3.asp"&qryStr
		Case "4"
'			qryStr = qryStr & getQueryString(indexArray,maxIncognitas)	
'			qryStr = "El tam de la collection: "&Request.form("incognita").Count & " inicia barrido en: "&indexArray&" termina en: "&(maxIncognitas * 3)			
'			strrr="uti_console.asp?mensaje=El qryStr queda: " & qryStr 
'			Response.Redirect(strrr)
			tab = "question4.asp"&qryStr
		Case "5"
'			qryStr = qryStr & getQueryString(indexArray,maxIncognitas)			
'			qryStr = "El tam de la collection: "&Request.form("incognita").Count & " inicia barrido en: "&indexArray&" termina en: "&(maxIncognitas * 3)
'			strrr="uti_console.asp?mensaje=El qryStr queda: " & qryStr 
'			Response.Redirect(strrr)
			tab = "question5.asp"&qryStr
		Case Else						
'			qryStr = qryStr & getQueryString(indexArray,maxIncognitas)			
'			strrr="uti_console.asp?mensaje=El qryStr queda: " & qryStr 
'			Response.Redirect(strrr)
			tab = "question6.asp"&qryStr
	End Select
		
	Response.Redirect(tab)

Function getQueryString(start,endd)
	dim auxQry
	dim idx
	idx = 1
	str =""
'strrr="uti_console.asp?mensaje=Son: " & Request.form("incognita").Count&" Empieza: "&start&" Termina el barrido: "&endd
'Response.Redirect(strrr)	
	for n = start to endd
		auxQry = auxQry & "i" & idx & "="&Request.form("incognita")(n)&"&"
'		str = str & "i" & idx & "="&n'Request.form("incognita")()
		idx = idx + 1
	next	

	auxQry = Left(auxQry,Len(auxQry)-1)
	getQueryString = auxQry
End Function

' Para obtener el index de acuerdo al tabb seleccionado
function getIndexArray(endTabb)
	dim idx
	idx = 1
	for n = 1 to endTabb		
		idx = idx + Request.form("incognitas")(n)
	next
	getIndexArray = idx
end function
%>