I vareliste.asp:
<SCRIPT>
function ikurv(id){
antal = document.vareliste.antal[id-1].value;
produkt = document.vareliste.produkt[id-1].value;
side = document.vareliste.kategori.value;
document.location.href = \'ikurv.asp?produkt=\' + produkt + \'&antal=\' + antal + \'&side=\' + side;
}
</SCRIPT>
<!-- Formen -->
<form name=\"vareliste\">
<input type=\"hidden\" name=\"kategori\" value=\"<%=tabel%>\">
<table border=\"0\" cellspacing=\"0\" bordercolor=\"#111111\" width=\"760\" >
<tr>
<td width=\"377\"><font face=\"Verdana\">Produkt:</font></td>
<td width=\"100\"><font face=\"Verdana\">Pris:</font></td>
<td width=\"50\"><font face=\"Verdana\">Antal:</font></td>
<td width=\"264\"> </td>
</tr>
<%
rs.open \"Select * from [processor] order by navn\",dataconn
antal = 1
do while not rs.eof
%>
<tr>
<td width=\"377\"><a href=\"vare.asp?vare=<%=server.URLEncode(rs(\"produktnummer\"))%>\"><font face=\"Verdana\" size=\"1\"><%=RS(\"navn\") & \", \" & RS(\"stats\")%></a></font></td>
<td width=\"100\"><font face=\"Verdana\" size=\"1\"><b><%=RS(\"pris\")%></b><br>(<%=RS(\"pris\")*0.75%>)</font></td>
<td width=\"50\">
<input type=\"text\" name=\"antal\" size=\"2\" maxlength=\"2\" value=1>
<input type=\"hidden\" name=\"produkt\" value=\"<%=RS(\"produktnummer\")%>\"></td>
<td width=\"264\">
<font size=\"1\" face=\"Verdana\"><a href=\"java script:ikurv(<%=antal%>)\">Læg i kurv</a></font></td>
</tr>
<%
antal = antal + 1
rs.MoveNext
loop
rs.Close
%>
</table>
</form>
Dette i ikurv.asp:
<%
if session(\"varer\") = \"\" then
session(\"varer\") = antal
session(\"pris\") = (pris*antal)
else
session(\"varer\") = cint(session(\"varer\")) + antal
session(\"pris\") = cint(session(\"pris\")) + (pris*antal)
end if
for i = 1 to antal
session(\"pro\"&produkt) = session(\"pro\"&produkt) & \"1\"
next
%>
Samt andet til at undgå fejl.
Dvs. Produkterne gemmes i sessions.
Session(produktnummer) = 11111
Er 5 stk. af det produkt med produktnummer (udtaget fra databasen).
Mail hvis der er problemer, da det er svært at overskue kode i denne lille tekstbox!
