array + classe + session

[renatoprg 0]

Pessoal, boa noite

peguei esse codigo aqui no site e está funcionando perfeitamente:
http://imasters.com.br/artigo/7880/asp/array_de_objeto_em_asp/

Nesse codigo acima eu crio uma classe e um array, gostaria de jogar essa array em uma session e depois pegar os valores em outra pagina....

no final do codigo acima inclui:
<%session("vetor") = arrayObjCliente%>

mas em OUTRA pagina quando faço o inverso:
<%arrayObjCliente = session("vetor")%>
nao da erro nenhum

mas na linha:
<%Response.Write("Nome:" & arrayObjCliente(i).getNome & "<br/>")%>

aparece o erro:
Objeto necessário

Acredito que seja por causa da classe

Qual a finalizade desse codigo:
Tenho uma consulta ao Banco de Dados muito pesada que gostaria de jogar em uma array e as demais pagina nao precisar abrir o Banco novamente

Obrigado

[hargon 64]

Realmente um array de classe não funciona muito bem com Session. Se não me engano isso não é permitido.

 

Para resolver de imediato salve este retorno em um arquivo texto ou XML temporário.

[xanburzum 169]

teste assim, para analisarmos:

<%
Dim vetor
vetor = array( ) "inicia sem valor
ReDim preserve vetor ( UBound( vetor )+1) 
vetor ( Ubound( vetor ) ) = "Novo Item 1"
ReDim preserve vetor ( UBound( vetor )+1)
vetor ( Ubound( vetor ) ) = "Novo Item 2"
ReDim preserve vetor ( UBound( vetor )+1)
vetor ( Ubound( vetor ) ) = "Novo Item 3"


Dim i
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next


Dim tmpvetor
tmpvetor = array()
response.write 
for i = LBound( vetor ) to UBound ( vetor )
if i <> 2 then
Redim preserve tmpvetor ( UBound(tmpvetor)+1 )
tmpvetor ( UBound ( tmpvetor ) ) = vetor( i )
end if
next
vetor = tmpvetor
tmpvetor = array()

"vamos ler agora
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next
session("vetor") = vetor "salva no session


vetor = session("vetor") 

numeto da Array
response.write 
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next
%>