Foros del Web » Programando para Internet » ASP Clásico »

Problema con carga o muestra de vector

Estas en el tema de Problema con carga o muestra de vector en el foro de ASP Clásico en Foros del Web. Hola Gente!!!! Tengo un tema con un vector. Resulta que como no sé la cantidad de elementos que le llegarán, no puedo conocer las dimensiones ...
  #1 (permalink)  
Antiguo 25/11/2004, 08:07
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 19 años, 8 meses
Puntos: 2
Sonrisa Problema con carga o muestra de vector

Hola Gente!!!!
Tengo un tema con un vector.
Resulta que como no sé la cantidad de elementos que le llegarán, no puedo conocer las dimensiones del mismo, entonces lo he declarado sin dimensionar y lo redimensioné con el valor de una variable maximo que le llega a la pagina.
El problema parecía estar resuelto, pero cuando quiero mostrar los datos que contiene, en modo de prueba antes de mandar basura a la base de datos, resulta que no muestra nada.....
Aquí va mi pequeño codigo....

dim max, i, j
dim Llegaorden()
if Request.Form("Maximo")<>"" Then max=Cint(Request.Form("Maximo")) else max=0 end if
Redim Llegaorden(max)
i=1
j=0

Esto solo en definición y toma del valor maximo para redimensionar. Luego, para cargar el vector, lo siguiente:

While (i<=max)
'----------------carga---------------
If(Request.Form("pica"&i)=SI) Then Llegaorden(j)=Request.Form("orden"&i) End if
'--------------muestra de prueba-----
Response.Write("Valor de i: "&i)
Response.Write(" Valor de J: "&j)
Response.Write(" Contenido del vector: ")
Response.Write(Llegaorden(j)
i=i+1
j=j+1
Wend
i=0

Aclaro que lo que le llega por form "pica" es el valor de una casilla de verificación que indica que una de las opciones dinámicas se ha elegido para el ingreso. Luego, el tema de concatenarle el indice que recorre el puntero es porque los campos de la pagina anterior toman valores concatenados de un contador que se incrementa en el loop de la consulta.
Por lo que si en la tabla hay dos elementos para ese recordsert mis campos ocultos y casillas de verificación serían orden1, orden2, pica1, pica2.

Espero que se entienda y por favor, ayudenme con esto, ya que lo hice en otra página con varios vectores estáticos y no tuve ningún problema, pero con este me estoy volviendo loca!!!!!

Muchisimas gracias a todos!!!!
__________________
Why can't we not be sober?
www.partitorium.com.ar
  #2 (permalink)  
Antiguo 25/11/2004, 09:19
 
Fecha de Ingreso: noviembre-2004
Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 19 años, 6 meses
Puntos: 0
primero lo primero
Response.Write(Llegaorden(j)

te falto cerra un parentesis
Response.Write(Llegaorden(j))
  #3 (permalink)  
Antiguo 25/11/2004, 09:58
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 19 años, 8 meses
Puntos: 2
Lo he hecho... gran descuido el mio.... no muestra nada.
__________________
Why can't we not be sober?
www.partitorium.com.ar
  #4 (permalink)  
Antiguo 25/11/2004, 10:08
 
Fecha de Ingreso: noviembre-2004
Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 19 años, 6 meses
Puntos: 0
si ni siquiera te muestra

valor de I:
valor de J:

quiere decir que esta saliendo del bucle while sin entrar
y la unica causa de no pasar por el bucle es
cuando max vale cero, es decir cuando
maximo es igual a "" segun tu primera comprobacion
esto te esta diciendo que estas pasando NADA desde el formulario
en la variable Maximo

if Request.Form("Maximo")<>"" Then
max=Cint(Request.Form("Maximo"))
else
max=0
end if
  #5 (permalink)  
Antiguo 25/11/2004, 10:59
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 19 años, 8 meses
Puntos: 2
Claro, pero me muestra todo excepto el contenido del vector. Ahora, por si acaso estaba mostrandolo mal, configuré el insert, pero tira el error de cierre con una coma antes, es decir que el vector está vacío.... aunque a max le llega 1 y a Orden le llega 25....
Algo debo tener mal en la carga.... eso es seguro, pero no lo encuentro
__________________
Why can't we not be sober?
www.partitorium.com.ar
  #6 (permalink)  
Antiguo 26/11/2004, 04:58
 
Fecha de Ingreso: noviembre-2004
Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 19 años, 6 meses
Puntos: 0
proba de cambiar esto
If(Request.Form("pica"&i)=SI) Then Llegaorden(j)=Request.Form("orden"&i) End if

por esto
If(Request.Form("pica'" & i "'")=SI) Then Llegaorden(j)=Request.Form("orden'" & i & "'") end if
  #7 (permalink)  
Antiguo 26/11/2004, 07:43
Avatar de verinchi  
Fecha de Ingreso: septiembre-2004
Ubicación: Buenos Aires
Mensajes: 647
Antigüedad: 19 años, 8 meses
Puntos: 2
Ahora esto:
Error de compilación de Microsoft VBScript error '800a03ee'

Se esperaba ')'

/sistema/procesadores/serv_principal.asp, line 27

If(Request.Form("pica'"&i"'")=SI) Then Llegaorden(0)=Cint(Request.Form("orden'"&i"'")) End if
-------------------------^
__________________
Why can't we not be sober?
www.partitorium.com.ar
  #8 (permalink)  
Antiguo 26/11/2004, 07:59
 
Fecha de Ingreso: noviembre-2004
Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 19 años, 6 meses
Puntos: 0
falto un &
If(Request.Form("pica'" & i &"'")=SI) Then Llegaorden(0)=Cint(Request.Form("orden'"&i"'")) End if
  #9 (permalink)  
Antiguo 26/11/2004, 08:00
 
Fecha de Ingreso: noviembre-2004
Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 19 años, 6 meses
Puntos: 0
y otro al final

If(Request.Form("pica'" & i &"'")=SI) Then Llegaorden(0)=Cint(Request.Form("orden'" & i &"'")) End if
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:18.