Guardar Dictionary en una Session??

Raspinu · #1 (**permalink**) 28/01/2004, 06:38

Estoy creando un carrito y guardo los articulos en un Objeto Dictionary el problema es...
Que los datos se pierden por que no se guardan en una session...

COMO PUEDO GUARDAR EL DICTIONARY EN UNA SESSION???

Tengo esto...
<%
Set objDic = Server.CreateObject ("Scripting.Dictionary")
objDic.Add 2, "Dos"
objDic.Add 3, "Tres"

Dim claves

For each claves in objDic
Response.Write ( claves &" - " & objDic.Item (claves)& " ")
Next
Response.Write "Hay " & objDic.Count & " elementos en Diccionario"
%>

Bien y de aqui no se salir como guardo este objeto "objDic" en una session para poder mostrar enotrasa paginas???

Gracias

jercer · #2 (**permalink**) 28/01/2004, 07:14

En el global asa pon algo como esto:

set Session("diccionario") = Server.CreateObject ("Scripting.Dictionary")

Y despues en tu codigo reemplaza objDic por Session("diccionario")

Raspinu · #3 (**permalink**) 29/01/2004, 07:44

Como puedo hacerlo sin Global.asa

Ahora el codigo que tengo me añade un registro en el Dictionary me lo guarda en una session.
Parece que funciona ya que desde cualquier pagina saco el contenido de del dictionary.
Pero cuando paso por el formulario para añadir un registro al Directory me sustituye el ultimo registro del directory.....

Usease que no puede añadir más ragistros al Dictionary parece ser que se habre un Directory nuevo cada vez y empieza de nuevo por que ? esa es mi duda..

el codigo

<%
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
Set Session("Nombre") = Server.CreateObject ("Scripting.Dictionary")

clavey=Request.Form ("a")
info=Request.Form ("b")
%>
<%
Session("Nombre").Add 2, "Dos"
Session("Nombre").Add 3, "Tres"

Session("Nombre").Add clavey, info

Dim claves

For each claves in Session("Nombre")
Response.Write ( claves &" - " & Session("Nombre").Item (claves)& " ")
Next
%>
 
<%
Response.Write "Hay " & Session("Nombre").Count & " elementos en Diccionario"
%>
 
<%
Response.Write "Último Producto adquirido : "&(Session("Nombre").Item(clavey))&""

%>
 Vamos a ver si funciona la sesion: 
<%

'Y ahora las variables de objeto
for each clavex in Session("Nombre")
Response.Write( clavex & " ")
next
Response.Write("Tienes " & Session.StaticObjects.Count & " objetos en tu sesión. ")

%>


<a href="entra.asp" target="_self">Volver a Formulario</a>
</center>
</body>
</html>

Pregunta...

Porque parece que cada vez se abre un Dictionary nuevo comopuedo conservar el primero y ir añidiendo nuevos registros al Dictionary

GRACIAS

jercer · #4 (**permalink**) 30/01/2004, 07:50

Cambia esta linea:

Set Session("Nombre") = Server.CreateObject ("Scripting.Dictionary")

Por esto:

if not IsObject(Session("Nombre")) then
Set Session("Nombre") = Server.CreateObject ("Scripting.Dictionary")
end if

Raspinu · #5 (**permalink**) 30/01/2004, 10:14

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">

 
<form name="form1" method="post" action="cesto.asp">
Clave:
<input type="text" name="a">

Info:
<input type="text" name="b">


<input type="submit" name="Submit" value="Enviar">

</form>

<%

'Y ahora las variables de objeto
for each clavex in Session("Nombre")
Response.Write( clavex & " ")
next
Response.Write("Tienes " & Session.StaticObjects.Count & " objetos en tu sesión. ")

%>

</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)& " ")
Next
%>
 
<%
Response.Write "Hay " & Session("Nombre").Count & " elementos en Diccionario"
%>
 
<%
Response.Write "Último Producto adquirido : "&(Session("Nombre").Item(clavey))&""

%>
 Vamos a ver si funciona la sesion: 
<%

'Y ahora las variables de objeto
for each clavex in Session("Nombre")
Response.Write( clavex & " ")
next
Response.Write("Tienes " & Session.StaticObjects.Count & " objetos en tu sesión. ")

%>


<a href="entra.asp" target="_self">Volver a Formulario</a>
</center>
</body>
</html>
Espero que a alguien le se de utilidad...