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
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
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
