Gracias
jercer .
Funciono yo sabia que era algo asi pero no estaba muy seguro paso el codigo que funciona con la corrección pa si alguien lo necesita.....
1 pág formulario introduce datos nuevos.
entra.asp
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p> </p>
<form name="form1" method="post" action="cesto.asp">
<p>Clave:
<input type="text" name="a">
</p>
<p>Info:
<input type="text" name="b">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<p>
<%
'Y ahora las variables de objeto
for each clavex in Session("Nombre")
Response.Write( clavex & "<br>")
next
Response.Write("Tienes " & Session.StaticObjects.Count & " objetos en tu sesión.<br>")
%>
</p>
</body>
</html>
2 pág Se cargan los datos en Dictionary y a la vez en una sesion
cesto.asp
<%
Response.Write "Sesión:"& Session.SessionID
%>
<html>
<head>
<title>Cesto</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<center>
<%
Dim objDic
if not IsObject(Session("Nombre")) then
Set Session("Nombre") = Server.CreateObject ("Scripting.Dictionary")
end if
clavey=Request.Form ("a")
info=Request.Form ("b")
%>
<%
Session("Nombre").Add clavey, info
Dim claves
For each claves in Session("Nombre")
Response.Write ( claves &" - " & Session("Nombre").Item (claves)& " <br>")
Next
%>
<p><br>
<%
Response.Write "Hay " & Session("Nombre").Count & " elementos en Diccionario"
%>
<br>
<%
Response.Write "Último Producto adquirido : <b>"&(Session("Nombre").Item(clavey))&"</b>"
%>
<br><br><b>Vamos a ver si funciona la sesion:</b> <br>
<%
'Y ahora las variables de objeto
for each clavex in Session("Nombre")
Response.Write( clavex & "<br>")
next
Response.Write("Tienes " & Session.StaticObjects.Count & " objetos en tu sesión.<br>")
%>
</p>
<p><a href="entra.asp" target="_self">Volver a Formulario</a></p>
</center>
</body>
</html>
Espero que a alguien le se de utilidad...
