Ik krijg deze melding, ik heb van alles geprobeerd maar zou echt niet weten hoe dit komt.
Het lijk mij dat de aray groot genoeg is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 3]'
zodra ik regel 38 als commentaar neer zet loop hij wel goed door.
wie kan mij helpen, alvast bedankt
Het lijk mij dat de aray groot genoeg is:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 3]'
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| Const nummeraantalitems = 10
Const maxnummmeritems = 20
Const PRODCODE = 0
Const PRODOMSCHRIJVING = 1
Const PRODPRIJS = 2
Const PRODSUBPRIJS = 3
redim winkelwagen(nummeraantalitems - 1, maxnummmeritems - 1)
'Als sessie winkelwagen niet is aangemaakt dan aanmaken
If IsEmpty(Session("winkelwagen")) Then
Session("winkelwagen") = winkelwagen
Session("Teller") = 0
Else
'lokale array gelijk zetten aan sessie van de winkelwagen
winkelwagen = Session("winkelwagen")
End If
'laadt de waarde van teller in een lokale variabele
prodnummer = Session("teller")
'Haalt de waarde uit txtboxes uit vorige pagina op
qryprodCode = request.form("hidprodcode")
qryprodOmschrijving = request.form("hidprodOmschrijving")
qryprodPrijs = request.form("hidprodPrijs")
qryprodAantal = Request.Form("txtaantal")
'qryProdSubPrijs = qryprodPrijs * qryProdAantal
qryProdSubPrijs = 1
'Voeg gekozen product aan lokale array toe
winkelwagen(PRODCODE, prodNummer) = qryprodcode
winkelwagen(PRODOMSCHRIJVING, prodNummer) = qryprodomschrijving
winkelwagen(PRODPRIJS, prodNummer) = qryprodPrijs
winkelwagen(PRODSUBPRIJS, prodNummer) = qryProdSubPrijs
'Zet sessie winkelwagen gelijk aan lokale array
session("winkelwagen") = Winkelwagen
'verhoogd de teller met 1 voor de sessie variabele
Session("Teller") = Session("Teller") + 1 |
zodra ik regel 38 als commentaar neer zet loop hij wel goed door.
wie kan mij helpen, alvast bedankt