Jeg har sådan en fejl. -------------------------- Microsoft VBScript runtime error \'800a000d\'
Type mismatch: \'TempArray\'
/Test/ShopCart.asp, line 42
--------------------------
Og her er koden som generer denne fejl. -------------------------------------- If Action=\"AddItem\" then ProductID=Request.QueryString(\"ProductID\") ProductName=Request.QueryString(\"ProductName\") Quantity=Request.QueryString(\"Quantity\") Price=Request.QueryString(\"Price\") CartItems = Session(\"CartItems\") TempArray = Session(\"Cart\")
NewCartItems=CartItems+1 dim TempArray2() ReDim TempArray2(NewCartItems,3) For I = 0 to CartItems TempArray2(I,0)= TempArray(I,0) TempArray2(I,1)=TempArray(I,1) TempArray2(I,2)=TempArray(I,2) TempArray2(I,3)=TempArray(I,3) Next TempArray2(NewCartItems,0)=ProductID TempArray2(NewCartItems,1)=ProductName TempArray2(NewCartItems,2)=Quantity TempArray2(NewCartItems,3)=Price Session(\"Cart\") = TempArray2 Session(\"CartItems\")=NewCartItems Response.Write \"Item Added in Cart<br><br><br><br>\" End If
Når du definerer et array skal di ikke have paranteser med med mindre du svil indsætte værdier med det samme dim TempArray(10,20,30) ...ellers er det nok med dim TempArray
I dit tilfælde skal du kun skrive Dim TempArray2(NewCartItems,3) og slette din redim!
det har stadig problem med det og her der kode som har jeg mest problem med --------- TempArray2(I,0)= TempArray(I,0) TempArray2(I,1)=TempArray(I,1) TempArray2(I,2)=TempArray(I,2) TempArray2(I,3)=TempArray(I,3) ----------
...hmmm så lige at jeg linker til hele \"brugermanualen\" men søg lige på arrays og hey overvej lige at bruge functionen Dictionary istedet for arrays :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
