20. september 2006 - 13:11
Der er
1 løsning
Opdater en dum cookies
MenuID = Request.Querystring("MenuID")
Antal = Request.Form("Antal")
'Opdater Antal
If Antal <> "" Then
If Request.Cookies("Menukort") <> "" Then
NewString = Split(Request.Cookies("Menukort"),",")
for i=0 to Ubound(NewString)
If NewString(i) <> "" Then
NewArr = Split(NewString(i),"-")
If MenuID = NewArr(0) then
NewCookie = NewCookie & NewArr(0)&"-"&Antal&","
Else
NewCookie = NewCookie & MenuID&"-"&Antal&","
End If
End If
next
Response.Cookies("Menukort") = NewCookie
Else
Response.Cookies("Menukort") = MenuID&"-"&Antal&","
End If
End If
ja som man kan se virker det fint nok når man skal opdater men ikke hvis den skal tilføjes
20. september 2006 - 13:56
#1
If Antal <> "" Then
If Request.Cookies("Menukort") <> "" Then
NewString = Split(Request.Cookies("Menukort"),",")
for i=0 to Ubound(NewString)
If NewString(i) <> "" Then
NewArr = Split(NewString(i),"-")
If MenuID = NewArr(0) then
Str1 = NewArr(0)&"-"&NewArr(1)
Str2 = NewArr(0)&"-"&Antal
Response.Cookies("Menukort") = Replace(Request.Cookies("Menukort"),Str1,Str2)&","
FoundIt = "Yes"
Exit For
End If
End If
next
If FoundIt <> "Yes" Then
Response.Cookies("Menukort") = Request.Cookies("Menukort")&","&MenuID&"-"&Antal&","
End If
Else
Response.Cookies("Menukort") = MenuID&"-"&Antal&","
End If
End If
