Array como variable de función...

[phillipecw]

Hola a tod@s...

Estoy intentando hacer una función que me permita asignar ciertos valores a variables que yo especifique. Algo como esto:

Código ASP:

<%
dim nombre_variable_1
dim nombre_variable_2
...
dim nombre_variable_n
 
Call nombre_funcion("valor_1", nombre_variable_1, "valor_2", nombre_variable_2, ..., "valor_n", nombre_variable_n)
 
%>
 

Nota: si intento usarlo de esa forma me da error, por lo que tengo que usarlo de esta forma para que ingresen los datos:

Código ASP:

<%
Call nombre_funcion(Array("valor_1", nombre_variable_1, "valor_2", nombre_variable_2, ..., "valor_n", nombre_variable_n))
 
%>
 

Mi función sería algo así:

Código ASP:

<%
Sub nombre_funcion(Campos)
    Dim Indice
    For Indice= 0 To UBound(Campos) Step 2
        Campos(Indice+ 1) = Campos(Indice)
    Next
End Sub
%>
 

Pero en sí, no asigna los valores a las variables, ya que al querer utilizar posteriormente dichas variables, figuran como vacías.

¿Alguien sabe alguna forma de lograrlo?

Se agradece de antemano.

Saludos.

[phillipecw]

Bueno, por si a alguien le sirve, logré hacerlo funcionar:

La función sería la siguiente:

Código ASP:

<%
Sub nombre_funcion(Campos)
    Dim Indice
    For Indice= 0 To UBound(Campos) Step 2
        Execute(""&Campos(Indice+1)&" = Campos(Indice)")
    Next
End Sub
%>
 

Y se llamaría de la siguiente forma:

Código ASP:

<%
Call nombre_funcion("valor_1", "nombre_variable_1", "valor_2", "nombre_variable_2", ..., "valor_n"," nombre_variable_n")
%>
 

Nota: nótese que en la llamada a la función, los "nombre_variable_x" están también con comillas.

Nota 2: para que las variables generadas por el comando "Execute" funcionen, NO DEBEN ESTAR REGISTRADAS PREVIAMENTE.

Saludos.