Remover todos Application.contents

[woodstock 0]

Olá Pessoal,

 

estou tentando de uma maneira pratica remover todos os Application.Contents criado por uma ferramenta que estou desenvolvendo, estou tentando usando o "for" mas ele apaga somente a metade, apaga uma, pula outra, apaga uma, pula outra e assim por diante.

 

só que com os mesmos comandos, eu crio as 9 Applications.Contents que desejo.

 

fiz um código simples, exemplificando o que esta me ocorrendo, quem puder me ajudar, crie uma pagina teste.asp com o codigo abaixo:

 

<%SELECT CASE request("a")CASE "criar"for x = 1 to 9Application("teste" & x) = "var" & xnext%>criando...<%CASE "remover"for each item in Application.Contents	Application.contents.Remove(item)next%>removendo...<%END SELECT%>Exibe Sessoes da Aplicação existentes<br /><% for each item in Application.Contents %><%=item%>: <%=Application(item)%><br /><% next %>

Agora, roda a pagina, para executar os comandos, adicione os querystring na barra de endereços

 

a=criar ' para criar as sessoes da aplicação

a=remover ' para remover as sessoes da aplicação

 

valeu pessoal, abraços!!!

[woodstock 0]

alguem sabe ai??? =\

 

Po, consegui assim

 

<%CASE "remover"while not Application.Contents.Count = 0	Application.contents.Remove(Application.Contents.Count)wend%>