code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| lvstrNr = Request.QueryString("cmdNr")
lvstrType = Request.QueryString("cmdType")
lvstrVoorNaam = Request.QueryString("cmdVoorNaam")
lvstrTussenVoegsel = Request.QueryString("cmdTussenVoegsel")
lvstrAchterNaam = Request.QueryString("cmdAchterNaam")
If IsArray(Session("CCBox")) = False Then
Dim tempAddCCBox(19,2)
tempAddCCBox(1,0) = lstrNr
tempAddCCBox(1,1) = lvstrType
tempAddCCBox(1,2) = lvstrVoorNaam & " " & lvstrTussenVoegsel & " " & lvstrAchterNaam
Session("CCBox") = tempAddCCBox
Else
tempAddCCBox = Session("CCBox")
inCCBox = False
For i = LBound(tempAddCCBox) To UBound(tempAddCCBox)
If tempAddCCBox(i,0) = "" And tempAddCCBox(i,1) = "" And tempAddCCBox(i,2) = "" And Not(inCCBox) Then
tempAddCCBox(i,0) = lstrNr
tempAddCCBox(i,1) = lvstrType
tempAddCCBox(i,2) = lvstrVoorNaam & " " & lvstrTussenVoegsel & " " & lvstrAchterNaam
inCCBox = True
End If
Next
Session("CCBox") = tempAddCCBox
End If |
Dit is een webshop met een cart, wel te verstaan de CCBox waar personen in op geslagen worden. Een winkel waar je personen kunt kopen zeg maar. (om het simpel te houden).
Om de een of andere reden is de CCBox altijd leeg. Dit ligt NIET aan de Session TimeOut! Ziet iemand waar ik een steek laat vallen? Bij voorbaat dank.