Arreglos en Global.asa

La unica manera que tengas un arreglo GLOBAL a todas las paginas ASP es que
lo cargues en una vaariable APPLICATION.

Global.asa
sub application_start
'abre conexion BD
'abre recordset
Application("matriz") = Recordset.GetRows()
'eso ultimo devuelve una matriz o arreglo
'con los datos del recordset

'cierra recordset
'cierra BD
end sub

En tu aplicacion ASP
fulano.asp
<%
dim arr_rs ' el arreglo de datos de application
dim max1
dim max2
set arr_rs = APPLICATION("matriz")
'o
'arr_rs = APPLICATION("matriz")
'una de esas dos formas, no recuerdo cual

'abre BD y RS nuevos
rs_neo = RS.GetRows()

max1 = ubound( arr_rs , 2 )
max2 = ubound( rs_neo , 2 )

'suponiendo que abres un nuevo RS con datos que no tiene el arreglo original
'la 1ra columna es fija, solo puedes alterar la 2da
redim preserve arr_rs( ubound(arr_rs,1) , max1 + max2 )

%>

Por alli van las flechas
Salu2
MV

"edmundoho" wrote in message
news:

Hola a todos!!!

Necesito saber como declaro un arreglo en el global.asa, y como lo
redimenciono en las páginas asp para cargar datos de una bd.

Gracias por su ayuda.