Almacenar un vector en Application!!!

[u_goldman]

Esto me funciona...

Código asp:

<script language="vbscript" runat="server">  
sub application_onstart
    Application.Lock
    'App Vars
    Application("val") = null
    Application.Unlock
end sub
</script>
 

Código asp:

<&#37;
Sub IteraArreglo(arr)
    if isArray(arr) then
        for i = 0 to uBound(arr)
            Response.Write("Indice " & i & ": " & arr(i) & "<br />")
        next
        Response.Write("<hr/>")
    else
        Response.Write("Este no es un arreglo")
        Response.Write("<hr/>")
    end if
End Sub
 
Application("val") = null
IteraArreglo(Application("val"))
 
'---------------
Dim arr(1)
arr(0) = 1
arr(1) = 2
 
Application("val") = arr
call IteraArreglo(Application("val"))
'-----------------------------
 
'------------------------------
Dim otroArreglo
Dim cadena
cadena = "1;2;3;4;5;6;7;8;9;10"
otroArreglo = split(cadena, ";")
 
Application("val") = otroArreglo
 
call IteraArreglo(Application("val"))
'----------------------------------
%>
 

A ver si te ayuda en tu búsqueda


Salud!