---
title: "Kollektioner i Session"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13051-kollektioner-i-session"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ElMaco"
published: "2001-12-07T00:50:00.000Z"
updated: "2001-12-07T10:56:00.000Z"
replies: 4
views: 230
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13051-kollektioner-i-session"
---

# Kollektioner i Session

## #1 — ElMaco, 2001-12-07T00:50Z

Ok, jag vet att man skall vara restriktiv med hur mycket man placerar i Session-objektet, men i detta fallet är det en snabb o enkel lösning. Nu till frågan:

Kan man placera en kollektion i Session-objektet? Jag får felmeddelandet att "default property is missing" när jag försöker. Måste den konverteras till en array?

/M.

Permalänk: https://www.webforum.nu/p/13051

## #2 — mrblonde, 2001-12-07T07:25Z

hur försöker du stoppa in den? visa gärna lite kod oxå.

Men det är dumt att göra så, kan du inte spara ner det i databasen, eller posta värdena istället.

Som variant på att stoppa in en hel collection kan du bygga en sträng och stoppa in istället som du kan separera med ett tecken t ex | sen kan du bara splitta strängen och få fram dina värden. Tar mindre minne.

Permalänk: https://www.webforum.nu/p/300054

## #3 — Vide, 2001-12-07T07:39Z

Vilken typ av kollektion är det?

Permalänk: https://www.webforum.nu/p/300055

## #4 — ElMaco, 2001-12-07T10:52Z

Hm... Språkförbistring. 

Det är inte en kollektion utan ett Dictionary-objekt. (Same same, but different...?) Det är metoderna x.Exists o liknande som jag fortfarande vill behålla.
Eftersom jag sprang in i problemet att dictionary-objektet (kollektionen?) inte ville läggas i Session-objektet så gjorde jag så här:

```
'---för varje rad i filen, gör följande
		Do While oFile.AtEndOfStream <> True
			sLine = oFile.Readline
			'---skapa en array med varje värde i en egen cell. separator -> ";"
			sLine = Replace(sLine, ",", ";")
			If Not Instr(sLine, ";") > 0 Then sLine = sLine & ";"
			aLine = Split(sLine, ";")
			
			'---skriv ut resultat, börja med radnummer			
			Response.Write "<I>" & getExpression("Rad", languageID, 0) & " " & nLine & ":</I> "			
			'If messageRecipients.Exists(Trim(aLine(0))) Then
			'	Response.Write getExpression("Mottagaren", languageID, 0) & " """ & Trim(aLine(0)) & """ " & getExpression("finns redan i sändlistan", languageID, 0) & ". <B>" & getExpression("Ingen import", languageID, 0) & ".</B><BR>" & vbCrLf
			
			
			'---fel antal semikolon, skall vara 2 (-> 3 fält)
			If Ubound(aLine) <> 2 Then
					Response.Write getExpression("Fel antal semikolon", languageID, 0) & ". <B>" & getExpression("Ingen import", languageID, 0) & ".</B><BR>" & vbCrLf
			ElseIf Not InStr(aLine(0), "@") > 0 Then
				Response.Write getExpression("E-postadress saknas", languageID, 0) & ". <B>" & getExpression("Ingen import", languageID, 0) & ".</B><BR>" & vbCrLf
			Else
				Redim Preserve aRecipients(2, UBound(aRecipients, 2)+1)
				'Response.Write "#" & UBound(aRecipients, 2) & "#"
				aRecipients(0, UBound(aRecipients, 2)) = Trim(aLine(0))
				aRecipients(1, UBound(aRecipients, 2)) = Trim(aLine(1))
				aRecipients(2, UBound(aRecipients, 2)) = Trim(aLine(2))
				'messageRecipients.Add Trim(CStr(aLine(0))), Trim(CStr(aLine(1)))
				nImported = nImported + 1
				Response.Write getExpression("Mottagaren", languageID, 0) & " """ & Trim(aLine(0)) & """ " & getExpression("importerades utan problem", languageID, 0) & ".<BR>" & vbCrLf
			End If
			
			nLine = nLine + 1
		Loop
		
		'---lägg tillbaka kollektionen i session
		Session("aRecipients") = aRecipients
```

...och på nästa sida:

```
Set goodCollection = Server.CreateObject("Scripting.Dictionary")
Set noGoodCollection = Server.CreateObject("Scripting.Dictionary")

gc = 0
nc = 0

For j = 1 To Ubound(Session("aRecipients"), 2)
	mMerge.Item("email") = Session("aRecipients")(0, j)
	mMerge.Item("firstname") = Session("aRecipients")(1, j)
	mMerge.Item("lastname") = Session("aRecipients")(2, j)
	Set msg = mMerge.Expand
	If msg.Send(SMTPSERVER) Then
		goodCollection.Add gC, CStr(Session("aRecipients")(0, j))
		gC = gC + 1
	Else
		noGoodCollection.Add nC, CStr(Session("aRecipients")(0, j))
		nC = nC + 1
	End If
Next
```

...men det är som sagt löst nu. Tack iaf.

Permalänk: https://www.webforum.nu/p/300056

## #5 — Vide, 2001-12-07T10:56Z

Man skall kunna lagra en kollektion i en session, det är i application som man inte kan använda det för det är inte trådat.

Ett Dictionary är en kollektion.

Bra att du fick det att fungera iaf... :)

Permalänk: https://www.webforum.nu/p/300057

---

Tråden på webben: https://www.webforum.nu/amne/asp/13051-kollektioner-i-session