Cactus Shop

Goddag
Se lige siden her. www.shopping.krellers.dk
Den fil den snakker om er følgende:

<%
'===============================================
' CactuShop ASP Shopping Cart                   
' ©1999-2001 Cactusoft Ltd. www.cactusoft.com
'===============================================
' All rights reserved.                           
' Use of this code is covered by the terms and   
' conditions in the license agreement. No       
' unauthorized duplication or distribution is   
' permitted. Cactusoft's copyright notices must   
' remain in the ASP sections of the code.       
'===============================================

If session("iCount") = "" then
    session("iCount") = 0
    dim ARYcart(50,2)
    ARYcart(0,1) = 0
    ARYcart(0,2) = 0
    ARYcart(1,1) = 1
    ARYcart(1,2) = 0
    session("ARYcart")= ARYcart
end if

iCount = session("iCount")

if IsArray(session("ARYcart")) then
ARYcart = session("ARYcart")
end if

If thispage<>"basket" then ARYcart3 = ARYcart
%>