Arrrgh.. det driller
Er der en venlig sjæl der kan hjælpe ???I linje 81 får jeg fejlen:
Microsoft VBScript compilation error '800a0400'
Expected statement
indkobskurv.asp, line 81
Case strID
^
Hvad gør jeg forkert ????
Her er koden
<%
Sub AddItemToCart(iItemId, iItemCount)
if shopcart.Exists (iItemId) then
shopcart(iItemId) = shopcart(iItemId) + iItemCount
else
shopcart.Add iItemId,iItemCount
end if
End Sub
Sub RemoveItemFromCart(iItemID)
If shopcart.Exists(iItemID) Then
If shopcart(iItemID) <= iItemCount Then
shopcart.Remove iItemID
Else
shopcart(iItemID) = shopcart(iItemID) - iItemCount
End If
Else
Response.Write "Couldn't find any of that item your cart.<BR><BR>" & vbCrLf
End If
End Sub
Sub RemoveAllFromCart
For each Key in shopcart
shopcart.RemoveAll
Next
End Sub
Sub ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal
sTotal = 0
For Each Key in shopcart
aParameters = GetItemParameters(Key)
Response.write"<TR vAlign=top>"
Response.write"<TD ALIGN=left><font size=1 face='Verdana, Arial, Helvetica, sans-serif'>"& Key &"</font></TD>"
Response.write"<TD ALIGN=Center><font size=1 face='Verdana, Arial, Helvetica, sans-serif'>"&aParameters(2)&"</font></TD>"
Response.write"<TD ALIGN=Center><font size=1 face='Verdana, Arial, Helvetica, sans-serif'>"&shopcart(Key)&"</font></TD>"
Response.write"<TD width=50 ALIGN=Left><font size=1 face='Verdana, Arial, Helvetica, sans-serif'>"& FormatNumber((shopcart(Key) * aParameters(3))) &"</font></TD>"
Response.write"<TD width=50 ALIGN=Left><font size=1 face='Verdana, Arial, Helvetica, sans-serif' color='#990000'><a href= '?action=add&item=" & Key & "&count=1' style='COLOR: #663399'>+1</a></font></TD>"
Response.write"<TD width=50 ALIGN=Left><font size=1 face='Verdana, Arial, Helvetica, sans-serif' color='#990000'><a href= '?action=del&item=" & Key & "&count=1' style='COLOR: #663399'>-1</a></font></TD>"
Response.write"<TD width=50 ALIGN=Left><font size=1 face='Verdana, Arial, Helvetica, sans-serif' color='#990000'><a href= '?action=del&item=" & Key & "&count=" & shopcart(Key) & "' style='COLOR: #663399'>Slet</a></font></TD>"
Response.write"</TR>"
sTotal = sTotal + (shopcart(Key) * aParameters(3))
Next
Response.write"<table width=213 border=0 rules=none height=55 style='HEIGHT: 55px; WIDTH: 213px'>"
Response.write"<TR>"
Response.write"<td align=left><font face='Verdana, Arial, Helvetica, sans-serif' size=1><STRONG>Total: </STRONG></font>"
Response.write"<TD align=Right><font face='Verdana, Arial, Helvetica, sans-serif' size=1>"
Response.write"<INPUT id=Total name=Total style='HEIGHT: 22px; WIDTH: 139px align: Right' readOnly value="& FormatNumber(sTotal,2)&"> "
Response.write"</font></TD></td>"
Response.write"</TR>"
Response.write"</table>"
End Sub
Function GetItemParameters(iItemId)
Dim aParameters
'Her hentes fra databasen
Dim RS,strDNS,strSQL,strID
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("shop.mdb")
'strSQL = "SELECT id, navn, Pris FROM produkter where id="& Request.QueryString("item")
strSQL = "SELECT id, navn, Pris FROM produkter"
Rs.Open strSQL, strDSN, 1
'/ test af parems .....................................................
Select Case iItemID
Do While Not rs.EOF
strID = CStr(rs("id"))
Case strID
aParameters = Array(CStr(rs("id")), CStr(rs("navn")), CDbl(rs("Pris")))
Rs.Movenext
Loop
End Select
'aParameters = Array(CStr(rs("id")), CStr(rs("navn")), CDbl(rs("Pris")))
' Return array containing product info.
GetItemParameters = aParameters
rs.Close
set rs = nothing
End Function
'/ test af parems .....................................................
'Function GetItemParameters(iItemID)
'Dim aParameters ' Will contain 3 string values : image path, description, price
' However we need to keep price so it can be converted to a
' single for computation hence no currency symbol. This array
' can also be expanded to contain any other information about the
' product that you might want to pull from the DB.
' Select Case iItemID
' Case 1
' aParameters = Array("./images/shop_shirt.gif", "ASP 101 T-Shirt", "15.00")
' Case 2
' aParameters = Array("./images/shop_kite.gif", "ASP 101 Kite", "17.50")
' Case 3
' aParameters = Array("./images/shop_watch.gif", "ASP 101 Watch", "35.00")
' Case 4 ' Not in use because we couldn't draw a pen in a few seconds!
' aParameters = Array("./images/shop_pen.gif", "ASP 101 Pen", "5.00")
' End Select
'' Return array containing product info.
'GetItemParameters = aParameters
'End Function
%>
<HTML>
<head>
<title>Indkobskurven</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="hojre">
</head>
<body bgcolor="#ffffff">
<FORM action="AfgivOrdre.asp" method="post" id = ordre name=ordre target = "_parent">
<table style="HEIGHT: 35; WIDTH: 424" >
<TR>
<td align="left" vAlign=top height="8" width="85"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><STRONG>Best.nr.</STRONG></font></td>
<td align="left" vAlign=top height="8" width="156"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><STRONG>Vare</STRONG></font></td>
<td align="left" vAlign=top height="8" width="70"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><STRONG>Antal</STRONG></font></td>
<td align="left" vAlign=top height="8" width="95"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><STRONG>Pris</STRONG></font></td>
</TR>
<TR>
<TD align="left" height="19" width="85"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></TD>
</TR>
<%
Dim total
Dim shopcart
Dim sAction
Dim iItemId
Dim iItemCount
if IsObject(Session("cart")) then
set shopcart = Session("cart")
else
set shopcart = Server.CreateObject("Scripting.Dictionary")
end if
sAction = CStr(Request.QueryString("action"))
iItemId = CStr(Request.QueryString("item"))
iItemCount = CInt(Request.QueryString("count"))
' Select action based on user input
Select Case sAction
Case "add"
AddItemToCart iItemId, iItemCount
ShowItemsInCart
'Case "add1"
' AddItemToCart iItemId, iItemCount
' ShowItemsInCart1
Case "del"
RemoveItemFromCart iItemID
ShowItemsInCart
Case "delAll"
RemoveAllFromCart
ShowItemsInCart
Case Else
End Select
' Return cart to Session for storage
Set Session("cart") = shopcart
%></table>
<table height=16 width=200>
<TR>
<td width = 100 align=left height="12"><font size=2 face="Verdana, Arial, Helvetica, sans-serif">
<a href= "?action=delAll" style="COLOR: #663399">Slet alt</a></font></td>
<td width = 100 align=right height="12"><font size=2 face="Verdana, Arial, Helvetica, sans-serif">
<a target ="hovedside" href= "AfgivOrdre.asp?" style="COLOR: #663399">Bestil</a></font></td>
</TR>
</table>
</FORM></TABLE>
</body>
</HTML>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="20%">Test af varebestilling:</td>
<td width="20%"> </td>
<td width="20%"> </td>
<td width="20%"> </td>
<td width="20%"> </td>
</tr>
<tr>
<td width="20%"> </td>
<td width="20%"> </td>
<td width="20%"> </td>
<td width="20%"> </td>
<td width="20%"> </td>
</tr>
<tr>
<td width="20%">Varenummer:</td>
<td width="20%">Produkt:</td>
<td width="20%">Pris:</td>
<td width="20%">Bestil:</td>
<td width="20%"> </td>
</tr>
<tr>
<td width="20%">1</td>
<td width="20%">
<img height="80" src="billed1.jpg" width="70"></td>
<td width="20%"> </td>
<td width="20%"><a href="?action=add&item=1&count=1">Bestil</a></td>
<td width="20%"> </td>
</tr>
</table>
/Help
