Hur ska man lagra det som kunden lagt i kundvagnen på bästa sätt? Det går ju med databas eller textfil men det är både platskrävande och kraftkrävande. Tänkte använda session-variabler men hur?

/ Carl

Om du ska använda session-variabel så bör du använda en array på sidan.
Exempel: Skapa en array i global.asa och spara den sen till en session-variabel (Snabbt kodat, felstavningar kan finnas osv)

Global.asa:
Dim arrKorg(30,4)
Session("MinKorg") = arrKorg
Session("ArtCounter") = 0

korg.asp:
arrKorg = Session("MinKorg")
varArtCounter = Session("ArtCounter")
varArtCounter = varArtCounter + 1

arrKorg(varArtCounter,0) = ArtikelNr
arrKorg(varArtCounter,1) = ArtikelNamn
arrKorg(varArtCounter,2) = Pris
arrKorg(varArtCounter,3) = Antal
arrKorg(varArtCounter,4) = Storlek

Session("MinKorg") = arrKorg
Session("ArtCounter") = varArtCounter


Hoppas detta gav dig något ljus.

/Janne

Hej du
En sak jag rétar mig på när man är ute och handlar på internet det är det att kundvagnen oftast inte kommer ihåg vad man har lagt i den nästa gång man kommer in där. Du kanske skulle ha så att varuid nr erna sparas i encookie eller nåt.
/jonber

Tack..men mitt webbhotel stödjer inte global.asa. Kan man inte skapa en sessionvariabel-array?

/ Carl

använd ett dictionary...blir lättast så...
kolla in exemplet på www.asp101.com

Utan global.asa

korg.asp:
arrKorg = Session("MinKorg")
varArtCounter = Session("ArtCounter")

If Not IsArray(arrKorg) Then
Dim arrKorg(30,4)
varArtCounter = 0
End If

varArtCounter = varArtCounter + 1

arrKorg(varArtCounter,0) = ArtikelNr
arrKorg(varArtCounter,1) = ArtikelNamn
arrKorg(varArtCounter,2) = Pris
arrKorg(varArtCounter,3) = Antal
arrKorg(varArtCounter,4) = Storlek

Session("MinKorg") = arrKorg
Session("ArtCounter") = varArtCounter


/Janne

Tack, nu ska det nog funka ska testa båda era förslag

/ Carl

När jag kör detta exemplet du gav mig så får jag "type mismatch" på raden härunder.
<code>
Session("MinKorg") = arrKorg
</code>

Vad ska man göra?

/ Carl

Fungerar perfekt hos mig. Hur ser din kod ut?

/Janne

<code>
<%
If Not IsArray(arrKorg) Then
Dim arrKorg(30,3)
varArtCounter = 0
Session("MinKorg") = arrKorg
Session("ArtCounter") = varArtCounter
End If

If Request.QueryString("do") = "add" THEN

'Lägga till i kundvagnen

'hämtar kudvagnsvariabler
arrKorg = Session("MinKorg")
varArtCounter = Session("ArtCounter")
varArtCounter = varArtCounter + 1

'produkt id
arrKorg(varArtCounter,0) = Request.QueryString("prod")
'produktens namn
arrKorg(varArtCounter,1) = Request.Form("namn")
'produktens pris
arrKorg(varArtCounter,2) = Request.Form("pris")
'antal som beställt
arrKorg(varArtCounter,3) = Request.Form("antal")

'sparar dem igen
Session("MinKorg") = arrKorg
Session("ArtCounter") = varArtCounter

End If
%>
</code>
Det är just när man sparar i variablerna man får fel.

Fungerar detta bättre?

<%
arrKorg = Session("MinKorg")
varArtCounter = Session("ArtCounter")

If Not IsArray(arrKorg) Then
Dim arrKorg(30,3)
varArtCounter = 0
End If

If Request.QueryString("do") = "add" THEN

'Lägga till i kundvagnen

'hämtar kudvagnsvariabler

varArtCounter = varArtCounter + 1

'produkt id
arrKorg(varArtCounter,0) = Request.QueryString("prod")
'produktens namn
arrKorg(varArtCounter,1) = Request.Form("namn")
'produktens pris
arrKorg(varArtCounter,2) = Request.Form("pris")
'antal som beställt
arrKorg(varArtCounter,3) = Request.Form("antal")

'sparar dem igen
Session("MinKorg") = arrKorg
Session("ArtCounter") = varArtCounter

End If
%>