Indkøbskurv

Hele indkøbskurven ser således ud :

<%
if Request.Cookies("steinshoppingcart") <> "" then
Set Connshop = Server.CreateObject("ADODB.Connection")
    Connshop.Open MM_database_STRING

whatitems = Request.Cookies("steinshoppingcart")
whatitems = replace(whatitems, ", ", " or PID = ")

set rsshop = Connshop.Execute("select * from produkter where PID = "& whatitems &"")

SQL = "SELECT SUM(Ppris) AS total FROM produkter where PID = "& whatitems &""
Set rspris = Connshop.Execute(SQL)
pris = CSng(rspris("total"))

response.write "<table width='100%'  border='0' cellpadding='4' cellspacing='1' bgcolor='#000000'>"
response.write "<tr>"
response.write "<td bgcolor='#9DACBF'><b>Indk&oslash;bskurv</b></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='#FFFFCC'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
do while not rsshop.eof
response.write "<tr valign='top'>"
response.write "<td>"& rsshop("Poverskrift") &"</td>"
response.write "<td><div align='right'>kr. "& rsshop("Ppris") &".-</div></td>"
response.write "</tr>"
  rsshop.MoveNext
loop
response.write "<tr valign='top'>"
response.write "<td>&nbsp;</td>"
response.write "<td>&nbsp;</td>"
response.write "</tr>"
response.write "<tr valign='top'>"
response.write "<td><b>Total</b></td>"
response.write "<td><div align='right'><b>kr. "&pris  &".-</b></div></td>"
response.write "</tr>"
response.write "<tr valign='top'>"
response.write "<td colspan='2'><div align='right'><br>Check ud/ret</div></td>"
response.write "</tr>"
response.write "</table></td>"
response.write "</tr>"
response.write "</table>"
Connshop.close
end if
%>

jamen jeg kigger lige lidt her så... :o)

Jeg kan ikke lige umiddelbart gennemskue om du smider antallet af dine varer ned i din cookie også. Det smarte kunne være hvis du vil fortsætte med at kun benytte "een cookie" at finde nogle separatorer der er unikke for "een varelinie" og for varer og antal således at du kunne splitte din cookie når du indlæser den på een side forstået på den måde at når du sætter en cookie gør du således:

1*vare XX|2*vare XX| osv osv

så kan du når du indlæser lave en split først på een varelinie og efterfølgende på antal og varen...

arrVareLinier = Split(Request.Cookie("dincookie"), "|")

if isarray(arrVareLinier) = True then
  for i = lbound(arrVareLinier) to ubound(arrVarelinier)
      arrVare = Split(arrVareLinier(i)
      response.write "Antal: " & arrVare(0) & "<br>"
      response.write "Vare: " & arrVare(1) & "<br>"

  next
else
  'returnerede ikke array
end if

ellers kan du prøve at lave cookies med keys?

http://www.w3schools.com/asp/asp_cookies.asp

/hiks

i linien hvor du splitter en enkelte varelinie er der en lille fejl:

arrVare = Split(arrVareLinier(i), "*")

skal det være... :o)

/hiks

Ok tusinde tak, men hvordan får jeg så åbnet mit recordset??

whatitems = Request.Cookies("steinshoppingcart")
whatitems = replace(whatitems, ", ", " or PID = ")
set rsshop = Connshop.Execute("select * from produkter where PID = "& whatitems &"")

ok et forslag kommer her:

<%

Sub writeLine(pAntal, pID)

    set rsshop = Connshop.Execute("select * from produkter where PID = "& pID &"")
    pris = FormatNumber(rsshop("pPris")), 2)
   
    'læg til totalen
    total = total + (pris * pAntal)
   
    'skriv række
    with response
        .write "<tr valign='top'>"
        .write "<td>" & rsshop("Poverskrift") & "</td>"
        .write "<td><div align='right'>kr. " & pris & ".-</div></td>"
        .write "</tr>"
    End with
   
    rsshop.MoveNext
           
    rsshop.Close
   
End Sub

dim total, arrVareLinier, arrVare

if Request.Cookies("steinshoppingcart") <> "" then

    'åben db
    Set Connshop = Server.CreateObject("ADODB.Connection")
    Connshop.Open MM_database_STRING

    'varelinie ser sådan ud:
    '1*varenr XX|2*varenr XX|
    arrVareLinier = Split(Request.Cookie("steinshoppingcart"), "|")
       
    if isarray(arrVareLinier) = False then
        'returnerede ikke array
        Response.Write "Kurven er ikke gyldig!"
        'slutter udførsel
        Response.End
    end if   

    with response
        .write "<table width='100%'  border='0' cellpadding='4' cellspacing='1' bgcolor='#000000'>"
        .write "<tr>"
        .write "<td bgcolor='#9DACBF'><b>Indk&oslash;bskurv</b></td>"
        .write "</tr>"
        .write "<tr>"
        .write "<td bgcolor='#FFFFCC'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
   
    for i = lbound(arrVareLinier) to ubound(arrVarelinier)
        arrVare = Split(arrVareLinier(i), "*")
        Call writeLine(arrVare(0),arrVare(1))
    next
       
        .write "<tr valign='top'>"
        .write "<td>&nbsp;</td>"
        .write "<td>&nbsp;</td>"
        .write "</tr>"
        .write "<tr valign='top'>"
        .write "<td><b>Total</b></td>"
        .write "<td><div align='right'><b>kr. " & total  &".-</b></div></td>"
        .write "</tr>"
        .write "<tr valign='top'>"
        .write "<td colspan='2'><div align='right'><br>Check ud/ret</div></td>"
        .write "</tr>"
        .write "</table></td>"
        .write "</tr>"
        .write "</table>"

    Connshop.close
    set arrVareLinier = Nothing
    set arrVare = Nothing
    set connshop = Nothing
end if

%>

/hiks

og lige et par tilføjelser - det kræver som jeg har skrevet at du laver din cookie om til formattet: '1*varenr XX|2*varenr XX|

og der mangler lige et:

End With ' lige før Connshop.close

/hiks

ok det er gået lidt stærkt kan jeg se. Jeg har lige lavet et par smårettelser mere:

<%

Sub writeLine(pAntal, pID)

    set rsshop = Connshop.Execute("select * from produkter where PID = "& pID &"")
    pris = FormatNumber(rsshop("pPris")), 2)
   
    'læg til totalen
    total = total + (pris * pAntal)
   
    'skriv række
    with response
        .write "<tr valign='top'>"
        .write "<td>" & rsshop("Poverskrift") & "</td>"
        .write "<td><div align='right'>kr. " & pris & ".-</div></td>"
        .write "</tr>"
    End with
   
    rsshop.Close
   
End Sub

dim total, arrVareLinier, arrVare, cookieShop

cookieShop = Request.Cookies("steinshoppingcart")

if cookieShop <> "" then
   
    'fjerner sidste | - hvis der er et... :o)
    'således at der ikke bliver fejl når der splittes
    If Right(cookieShop, 1) = "|" then
        cookieShop = Left(cookieShop, Len(cookieShop) - 1)
    End if
   
    'åben db conn
    Set Connshop = Server.CreateObject("ADODB.Connection")
    Connshop.Open MM_database_STRING

    'varelinie ser sådan ud:
    'antal*varenr XX|antal*varenr XX|
    arrVareLinier = Split(cookieShop, "|")
       
    if isarray(arrVareLinier) = False then
        'returnerede ikke array
        Response.Write "Kurven er ikke gyldig!"
        'slutter udførsel
        Response.End
    end if   

    with response
        .write "<table width='100%'  border='0' cellpadding='4' cellspacing='1' bgcolor='#000000'>"
        .write "<tr>"
        .write "<td bgcolor='#9DACBF'><b>Indk&oslash;bskurv</b></td>"
        .write "</tr>"
        .write "<tr>"
        .write "<td bgcolor='#FFFFCC'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>"
   
        for i = lbound(arrVareLinier) to ubound(arrVarelinier)
            'splitter ved *
            arrVare = Split(arrVareLinier(i), "*")
            Call writeLine(arrVare(0), arrVare(1))
        next
       
        .write "<tr valign='top'>"
        .write "<td>&nbsp;</td>"
        .write "<td>&nbsp;</td>"
        .write "</tr>"
        .write "<tr valign='top'>"
        .write "<td><b>Total</b></td>"
        'udskriv totalen...
        .write "<td><div align='right'><b>kr. " & total  &".-</b></div></td>"
        .write "</tr>"
        .write "<tr valign='top'>"
        .write "<td colspan='2'><div align='right'><br>Check ud/ret</div></td>"
        .write "</tr>"
        .write "</table></td>"
        .write "</tr>"
        .write "</table>"
    end with
   
    'lukker og slukker :o)
    Connshop.close
    set arrVareLinier = Nothing
    set arrVare = Nothing
    set connshop = Nothing
end if

%>

/hiks

Ok tusinde tak - jeg tester lige

Hej Hiks,

Det virker helt perfekt, men kan jeg få antal til at stå ud fra de listede produkter?

hvis varenr1 koster kr. 150.-

2x varenr1  kr. 300.-

ja erstat sub'en med dette:

Sub writeLine(pAntal, pID)

    set rsshop = Connshop.Execute("select * from produkter where PID = "& pID &"")
    pris = FormatNumber(rsshop("pPris")), 2)
   
    'læg til totalen
    total = total + (pris * pAntal)
   
    'skriv række
    with response
        .write "<tr valign='top'>"
        .write "<td>" & pAntal & " x " & rsshop("Poverskrift") & "</td>"
        .write "<td><div align='right'>kr. " & pris & ".-</div></td>"
        .write "</tr>"
    End with
   
    rsshop.MoveNext
           
    rsshop.Close
   
End Sub

eller mere rafineret:

Sub writeLine(pAntal, pID)

    set rsshop = Connshop.Execute("select * from produkter where PID = "& pID &"")
    pris = FormatNumber(rsshop("pPris")), 2)
   
    'læg til totalen
    total = total + (pris * pAntal)
   
    'skriv række
    with response
        .write "<tr valign='top'>"
        .write "<td>" & pAntal & " x " & rsshop("Poverskrift") & " à kr. " & pris & "</td>"
        .write "<td><div align='right'>kr. " & (pris * pAntal) & ".-</div></td>"
        .write "</tr>"
    End with
   
    rsshop.MoveNext
           
    rsshop.Close
   
End Sub

/hiks

Tusind tak for hjælpen, det virker helt perfekt!!!

bliver desværre nødt til at smutte, men giver nogle points imorgen!! og igen tak!!

svar :o)

/hiks