Hmmm, jeg har tænkt lidt over det og laver det om så det er når jeg lægger vare i kurven at jeg tjekker om der findes en streng. Dette har jeg også selv skrevet mig frem til, men hvordan forøger jeg antallet?
hvis dit virker, er det ikke så bare at i din "for each linesEntry in basketArr", der skal du sætte din basketArr(iLoop)= det samme, men plusse numbers op?
for each linesEntry in basketArr 'regner med dette her er en split af f.x: "0207000069:1:0:0"
Synes dog at dit tjek på hvorvidt searchString er = en værdi i din basket burde tages samtidig med at du tilføjer varer i din kurv.
if searchString =basketArr(iLoop) then 'split din basketArr(iLoop) 'plus numbers op 'gem din sessionværdi else 'tilføj endnu et vare i din session end if
' a basket is found, check if any product is in it first and add number searchString = itemId & vbTab & ":" & vbTab & numbers & vbTab & ":" & vbTab & param1 & vbTab & ":" & vbTab & param2 basketArr = split(session.Contents("Basket.Content"),",")
Dim iLoop, bolFound bolFound = False
For iLoop = LBound(basketArr) to UBound(basketArr) If CStr(basketArr(iLoop)) = CStr(searchString) then
for each linesEntry in basketArr 'regner med dette her er en split af f.x: "0207000069:1:0:0" basketArr(iLoop)=array(0) & ":" & array(1)+1 & ":" & array(2) & ":" & array(3) next
Hehe ja undskyld, skulle nok have sagt at array(0) etc, bare er mig der har placeret dem der. Du skal bruge den array, som de er taget fra. Ved ikke helt hvad det er.
Kan du vise mig alt det kode du bruger til at tilføje varer til kurv, måske har du allerede vist det, men bare for at være på den sikre side.
Og du behøver ikke vise mig det kode du bruger til at skrive din kurv ud.
function addtobasket(itemId,numbers,param1,param2)
if session.Contents("Basket.Content") <> "" then
' a basket is found, check if any product is in it first and add number searchString = itemId & vbTab & ":" & vbTab & numbers & vbTab & ":" & vbTab & param1 & vbTab & ":" & vbTab & param2 basketArr = split(session.Contents("Basket.Content"),",")
Dim iLoop, bolFound bolFound = False
For iLoop = LBound(basketArr) to UBound(basketArr) If CStr(basketArr(iLoop)) = CStr(searchString) then
for each linesEntry in basketArr 'regner med dette her er en split af f.x: "0207000069:1:0:0" basketArr(iLoop)=array(0) & ":" & array(1)+1 & ":" & array(2) & ":" & array(3) next
Kan ikke sige om dette virker, men hvis du forstår hvor jeg vil hen med det, kan du vel selv rette det til. Elelrs må du sige til.
<% function addtobasket(itemId,numbers,param1,param2)
if session.Contents("Basket.Content") <> "" then
' a basket is found, check if any product is in it first and add number searchString = itemId & vbTab & ":" & vbTab & numbers & vbTab & ":" & vbTab & param1 & vbTab & ":" & vbTab & param2 basketArr = split(session.Contents("Basket.Content"),",")
function addtobasket(itemId,numbers,param1,param2)
if session.Contents("Basket.Content") <> "" then
' a basket is found, check if any product is in it first and add number searchString = itemId & vbTab & ":" & vbTab & numbers & vbTab & ":" & vbTab & param1 & vbTab & ":" & vbTab & param2 basketArr = split(session.Contents("Basket.Content"),vbTab & "-" & vbTab)
Dim iLoop, bolFound bolFound = False
For iLoop = LBound(basketArr) to UBound(basketArr) If CStr(basketArr(iLoop)) = CStr(searchString) then 'split basketArr(iLoop)
response.Write("Der er fundet en matchende streng!") exit for
Er bange for jeg ikke er smart nok, eller nok inde i din kode, til lige at sige hvad der går galt, når jeg ikke kan sidde med det.
Håber dog det lykekdes for dig. Hvis du vil have hjælp til denne spørgsmål, bliver du nok nødt til at spørge igen. Den er nok begravet for alle de andre.
Tak for hjælpe so far... men umiddelbart - så tror jeg at jeg vælger at skrive det om til at brug af et array, det er væsentlig mere overskueligt at holde styr på. Er dog stødt på et lille problem men det bliver i et nyt spørgsmål .-)
Smid et svar så får du lidt point for ulejligheden.
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.
