Hjælp til indkøbsvogn
HejJeg er i gang med at lave en butik, hvor jeg skal have en indkøbsvogn. Jeg har fundet et eksempel på en indkøbsvogn, som jeg erbejder ud fra, men nu får jeg en fejl, som jeg ikke helt kan gennemskue...håber der er nogle kloge hoveder der kan hjælpe mig.
Fejlen er:
Microsoft VBScript compilation error '800a03f2'
Expected identifier
/datronic/frameset/vogn.asp, line 33
for (i = 0; i < vareantal; i++) {
----^
Min kode for vogn.asp er her:
--------
<%
Option Explicit
Dim Conn, DSN, sltid, strSQL, rs1, rs2, rs3, KatID, intKatId, column, R
Response.Buffer=True
%>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil--><html>
<head>
<title>Indkøbsvogn</title>
</head>
<body>
<td>
<h1>Indkøbsvogn</h1>
<%
vareantal = Session("vareantal")
undefined = Session("garbage")
totalpris = 0
if (vareantal == undefined || vareantal == 0) {
Response.write("Din indkøbsvogn er tom.")
Response.end()
}
%>
Din indkøbsvogn indeholder følgende varer:<br>
<table width=100%>
<%
for (i = 0; i < vareantal; i++) {
if (Session("antal"+i) == 0) {
continue
}
%>
<form action=rediger.asp method=post>
<tr>
<td>
<input type=hidden name=vare value=<%=i%>>
<input type=text name=antal value=<%=Session("antal"+i)%> size=3>
</td>
<td>
<a href=vis_varer.asp?album=<%=Session("vare"+i)%>>
<%
res = con.execute("SELECT Titel, Pris FROM vare WHERE id=" + Session("vare"+i))
%>
<%=res.Fields("Titel")%></a>
</td>
<td align=right>
<%
varepris = res.Fields("Pris")
%>
<%=varepris%> kr. pr. stk
</td>
<td align=right>
<%=Math.round(varepris * Session("antal"+i) * 100) / 100%> kr.
<%
totalpris += Math.round(varepris * Session("antal"+i) * 100) / 100
%>
</td>
<td>
<input type=submit value="Opdater">
</td>
</form>
</tr>
<%
}
%>
<tr>
<td> </td>
<td><b>Total</b></td>
<td> </td>
<td align=right><b><%=totalpris%> kr.</td>
</tr>
</table>
<p>
Hvis du vil ændre antallet af bestilte album, så indtast det ønskede antal i feltet ved
albummet og klik på knappen "Opdater".
<p>
<b>Klikker du ikke på knappen "Opdater" bliver din opdatering ikke registreret!</b>
<p>Hvis du vil fjerne et album fra indkøbskurven, skal du indtaste 0 i feltet,
og klikke på knappen "Opdater".
<p>
Klik <a href=afsend.asp>her</a> for at afsende ordren.
</td>
</table>
</body>
</html>
--------
Linie 33 hvor fejlen er, er denne linie:
32 <%
33 for (i = 0; i < vareantal; i++) {
34 if (Session("antal"+i) == 0) {
35 continue
36 }
37 %>
Håber der er nogen der kan hjælpe....
/Annette
