Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/09/2005, 14:20
nana_01
 
Fecha de Ingreso: octubre-2004
Mensajes: 101
Antigüedad: 19 años, 7 meses
Puntos: 0
error 0x800A03ED

hola a todos............. el problema puede ser muy sencillo pero ya no tengo idea como poder solucionarlo.............


estoy trabajando con arreglos y en el momento de mostrar el arreglo me sale el siguiente error

Microsoft VBScript compilation (0x800A03ED)
Expected '('
/Remuneraciones/Mant_gene_empresa.asp, line 293, column 22


la linea 293 es la siguiente


Redim Preserve PondRem&x(J)

lo ke tengo es lo siguiente

tengo un for de 1 hasta n (numero no mas alto de 10)
aki donde hago una consulta segun un determinado filtro.............
despues muestro el contenido del resultado mediante un while y en el momento de kerer guardar la consulta me aparece el errormostrado anteriormente

lo ke desea eralizar ke el arreglo me kede la de la siguiente manera
PondRem_1(1) PondRem_1(2) PondRem_1(3) PondRem_1(4) ... PondRem_1(9)
PondRem_2(1)
PondRem_3(1)
PondRem_4(1)

les muestro el script

Cita:
For x=1 to I
Sql3 = "exec pa_listar_pond_empresa_generica "&Cint(Generica(x))
Rs3.open Sql3, conexionBD, 1, 2 %>
<tr align="center" class="txt_11_negro_normal">
<td width="49" bgcolor="#E1F4FF"><%=Generica(x)%></td>
<td width="71" align="left" bgcolor="#E1F4FF" class="txt_9_negro_negrita">Pond rem</td>
<% J = 1

While Not rs3.EOF
Redim Preserve PondRem&x(J)
PondRem_&""&x(J) = rs3.fields("POND_I_rem")
'response.write PondRem_x(J)&"<br>"%>
<td width="49" bgcolor="#E1F4FF"><input name="TxtRem<%=J%>_<%=x%>" type="text" class="caja_texto_lock" size="6" maxlength="6" OnKeypress="javascript:solodecimales();" OnkeyDown="PresionaEnter();" value="<%=PondRem_&""&x(J)%>" disabled="disabled"></td>
<% J = J + 1
rs3.movenext
Wend
rs3.close