Her er koden der viser produktet - inden man trykker "bestil produktet":
[... unødvendig kode for jer]
<form method="post" action="varer.asp?mode=tilkurv&kode=<%=rs("id")%>&pris=<%=rs("pris")%>" target="kurv">
<table width="29%" border="0" class="tabel" height="20%">
<tr>
<td colspan="8"><img src="<%=(rs.Fields.Item("stinavn").Value)%>"></td>
</tr>
<tr>
<td colspan="8"><b>Produkt:</b> <%=(rs.Fields.item("produktnavn").value)%>
</tr>
<tr>
<td colspan="8"><b>Beskrivelse:</b> <%=(rs.Fields.Item("beskrivelse").Value)%>
</tr>
<tr>
<td colspan="8"><b>Pris:</b> <%=formatnumber(rs("pris"),2)%>
</tr>
<tr>
<td colspan="9"> Stk:
<input type="text" size="6" name="antal">
</td>
</tr>
<tr>
<td colspan="9">
<input type="submit" value="Bestil produkt" name="submit">
</td>
</tr>
</table>
</form>
<%
End If
%>
<%
Conn.Close
set Conn = Nothing
%>
-------------------------- og koden der skal opdatere datene med antal og pris:
[... unødvendig kode for jer]
If Request("mode") = "tilkurv" Then
'\\ Start Tjekker om Antallet man har skrevet er et tal eller ingen tegn
If IsNumeric(request.form("antal")) or request.form("antal") = "" Then
'\\ Start Skriver antallet i en variabel
if request.form("antal") = "" then
antal = 1
else
antal = request.form("antal")
end if
'// Slut Skriver antallet i en variabel
'\\ Start Tjekker om stregkoden allerede er lagt i db'en en gang
if session("kode" & request("kode")) = "" then
'\\ Start hvis ikke stregkoden findes i en session
if session("kurvnr") = "" or session("kurvnr") = 0 then
session("kurvnr") = 1
else
session("kurvnr") = session("kurvnr") + 1
end if
session("vare" & session("kurvnr")) = request("kode") & " " & antal
session("kode" & request("kode")) = session("kurvnr")
'// Slut hvis ikke stregkoden findes i en session
else
'\\ Start hvis stregkoden findes i en session
antal2 = Split(session("vare" & session("kode" & request("kode"))), " ")
session("vare" & session("kode" & request("kode"))) = request("kode") & " " & Int(antal) + antal2(1)
'// Slut hvis stregkoden findes i en session
end if
'// Slut Tjekker om stregkoden allerede er lagt i db'en en gang
end if
'// Slut Tjekker om Antallet man har skrevet er et tal
end if
'// Slut ASP'en når man lægger noget i indkøbskurven
'\\ Start ASP'en tom indkøbskurv
if request("mode") = "tomkurv" then
for i = 1 to session("kurvnr")
tekst = Split(session("vare" & i), " ")
session("kode" & tekst(0)) = ""
session("vare" & i) = ""
next
session("kurvnr") = 0
%>
<script language="JavaScript">
top.side.location.reload(true);
</script>
<%
end if
'// Slut ASP'en tom indkøbskurv
- som I kan se benytter jeg asp?mode=tilkurv - men nu virker den bare ikke mere med at opdatere.. viser bare den sædvanlige fejlside.
