ASP - Ayuda con preserve

Hola buenas.
Mi problema es el siguiente:
Este codigo esta en una pagina que se actualiza cada vez que compro en una tienda virtual y la cosa es que quiero que me vaya metiendo elementos en un array.La session no me suma y nunca me escribe mas de un elemento, ¿sabeis que pasa?Este es el codigo:

<%
dim cadena()
if session("A")="" then
redim preserve cadena(0)
cadena(0)=Request.QueryString("cod")
session("A")=0
else
session("A")=session("A")+1
redim preserve cadena(session("A"))
cadena(session("A"))=Request.QueryString("cod")
end if
%>
<%for i=0 to i=session("A")
Response.Write (cadena(i))
next%><br>

Hola.

El problema es que el redim preserve se hace sobre un array de la página concreta y no de la sesión. Debes hacer un array de sesión y volcarlo en uno local cada vez que carges la página y viceversa al salir:

<%
if session("A")="" then
dim cadena() 'iniciamos el array local solo la primera vez
session("A")=0
else
session("A")=session("A")+1
cadena=session("array_sesion") 'volcamos el array de sesión en el array local
end if
redim preserve cadena(session("A"))
cadena(session("A"))=Request.QueryString("cod")
session("array_sesion") =cadena 'volcamos el array local en el de sesión
%>

También hay un fallo en el for, te sobra el i= en el límite superior. Quedaría así

For i=0 to session("A")

Espero que esto te ayude. Un saludo.

David Grimaldi.