Hi again! I slighlty modified the adding via link to suite my need in this way:
if request.QueryString("dwzIdLink") <> "" then
If (rsCat.Fields.Item("CAT_EXCLUSIVE").Value) = 1 Then
for dwzCart_i = 0 to objCart.cartItems()-1 If (objCart.GetColumnValue(dwzCart_i,"Cat")) = rsCat__iCat Then objCart.RemoveItem(objCart.GetColumnValue(dwzCart_i,"ItemKey")) End if next
End If
objCart.AddItemFromLink end if (that's linked to this: http://www.dwzone.info/Forum/topic.asp?TOPIC_ID=323)
Sometimes, adding new items to cart I get this error:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'row'
F:\WEBSITES\HERGAWEB\PRODUCTS\../dwzCart/dwzCartClass.asp, line 1064
Should I modify something else?
Thanks!
|
|
|