Indkøbskurv !!!
Jeg har et lille problem !!Jeg overfører antal og varenr til indkøbskurven, men jeg kan ikke finde ud af at gøre det med prisen....
Her er koden !!
<%
\' Nedenst. linie er indsat i filen global.asa i session_onstart metoden
\' set session(\"shoppingBasket\") = Server.CreateObject(\"Scripting.Dictionary\")
dim indkoebskurv
set indkoebskurv = session(\"shoppingBasket\")
\' indkoebskurv refererer nu til samme objekt som session(\"shoppingBasket\").
\' Det er også tilladt at bruge session(\"shoppingBasket\") direkte f.eks.
\' session(\"shoppingBasket\").RemoveAll
\'indkoebskurv.RemoveAll
dim antalVarer
antalVarer = indkoebskurv.Count
if antalVarer = 0 then
response.write(\"Din indkøbskurv er tom\")
else
response.write(\"Du har \" & antalVarer & \" forskellige varer i din indkøbskurv <br>\")
dim vareliste
vareliste = indkoebskurv.Keys
dim antalListe
antalliste = indkoebskurv.Items
dim Prisliste
Prisliste = indkoebskurv.KEYS
\' vareliste og antalListe er arrays, ikke collections. Man kan derfor ikke bruge for each til at gennemloebe dem
%>
<table border=\"1\" align=\"center\">
<tr align=\"center\">
<td><b>Varenummer </b></td>
<td><b>Antal </b></td>
<td><b>Pris </b></td>
</tr>
<%
dim total
dim taeller
for taeller = 0 to antalVarer - 1 %>
<tr align=\"center\">
<td><% =vareliste(taeller)%> </td>
<td> <% =antalListe(taeller)%> </td>
<td><%=FORMATCURRENCY(TOTAL)%> </td>
</tr>
<% next %>
</table>
<% end if %> <a href=\"Index.htm\">Vil De bestille flere varer?</a>
<p><a href=\"valgAfKundetype.asp\">Bestil varerne</a>
</div>
<p align=\"center\"> </p>
<p align=\"center\"> </p>
</td>
