Tilføj/Hent fra Session ?

Hej Dj-hubi..

Først tilskriver du din liste nogle komma seperede informationer. Så adskiller du ved, at lave den til et array.

Eksempelvis sådan her:

Session("dinsession") = "ost" & ","

'*********************
' TILFØJ TIL SESSION
'*********************

Session("dinsession") = Session("dinsession") & Session("meretilsession") & ","

'********************************
' UDSKRIFT AF SESSIONS VARIABLER
'********************************

Dinliste = Session("dinsession")

arrDinliste = Split(Dinliste,",")


For t = LBound(arrDinliste) to UBound(arrDinliste)
Response.Write arrDinliste(t) & "<br />"
Next

Som regel gør man det jo dynamisk, så jeg ville nok først tjekke om sessionen var sat/tom - eksempel:
--
val = Request.Form("værdi_som_skal_indsættes_i_sessionen")
If Session("test") = "" Then
  Session("test") = val
Else
  Session("test") = Session("test") & "," & val

Ja men det dur nok bare ikke nhvis jeg skal kunne hente forskellige værdier ud fra den session ...

Session("antal_vare") = Session("antal_vare") & Request.Form("antal") & ","
Hvis den så ud skrives sådan her: 1,3,5,7,9,
Og jeg skal hente ja 5 ud  ?

Jeg ved ikke om det er et dumt spørgsmål, men hvad vil du opnå ved at samle sessionerne,
når du allerede ved at de skal skilles ad igen??

og hvorfor hente en masse andet end det du har brug for?? hvis du eksempelvis kun skal bruge 5, hvad vil du så bruge resten til?? - er det ikke lige til at smide ud??

Jeg er ved at prøve at lave en webshop for at kunne samle
De vare som skal i en indkøbsvogn vil jeg smide ID og det Antal som der skal bestilles i 2 variable Sessions.
Derefter skal den hente dem ud igen så jeg kan vise dem ! ..

ID: 1,2,67,89,6,
Antal: 12,34,56,78,87,
1 skal passe til 12. 2 til 34 osv osv ..

og hvis du ønsker ID 67 så
arrID = Split(Session("ID"),",")
arrAntal = Split(Session("Antal"),",")
For i=LBound(arrID) To UBound(arrID)
  If arrID(i) = 67 Then
    index = i
  End If
Next
Response.Write ("der er bestilt "&arrAntal(index)&" stk af varen med id´et "&arrID("index"))

Du må jo have et eller andet som gør at du ved hvilken ID du vil have fat i ??

Hvis du ønsker skrive dem ud kun så
--
arrID = Split(Session("ID"),",")
arrAntal = Split(Session("Antal"),",")
For i=LBound(arrID) To UBound(arrID)
  Response.Write ("Vare ID "&arrID(i)&" antal "&arrAntal(i))
Next
--
så kommer de jo til at passe sammen så længe du har oprettet dem side om side som tidligere beskrevet

Hvis du skal lave en god indkøbs funktion via sessions skulle du måske tage at kigge på denne her:

http://www.organist.dk/asp/e-shop/

Jeg mener, hvorfor kæmpe den brave kamp, når andre allerede har kæmpet den? :)

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=594

Cart_id = Session("Cart_id")

'Array(Cart_id)
Dim a
a = split(Cart_id, ",")
limit = Ubound(a)
For i = 0 to limit -1
       
        Response.write(a(i))

        SQLstmt = "Select * From catelog Where catelog.id=" & (a(i))
        Set rs = conn.Execute(SQLstmt)
       
        While not rs.eof
       
        Response.write rs("id") & rs("vare_navn")
       
        rs.movenext
        Wend
Next


Fik lavet det selv :)

Men tak for det :)

selv tak det er jo sådan set magen til foreslagene