indkøbs kurv igen

oki jeg har lavet et meget simpel script hvor nogle vare bliver listet og man kan trykke på køb.
Der bliver så oprettet 2 sessions en med vare id og en med vare antal.
Det virker nogenlunde, når jeg skriver sql'en ud ser det rigtigt ud men når jeg vil sætte det i databasen kommer fejlen.
Se scriptet og fejlen på http://the-crawler.ath.cx/asp/guestbook/test/kurvtest.asp


Scriptet er her

kurvtest.asp ( lister varene )

<%
response.buffer = true
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("kurv.mdb")
set rs = connect.execute("SELECT * FROM vare")
'id=rs("id")


if not rs.EOF then
Do until rs.EOF
response.write rs("navn") & " - " & "<a href='session2.asp?id=" & rs("id") & "&antal=1" & "'>" & "Køb</a><br>"
rs.MoveNext
Loop
else
response.write "No news Item yet"
end if





select case request("mode")
case "sletsession"

session.abandon

case "tilkurv"

Session("indkob") = Session("indkob") & "<br>"
Session("Antal") = Session("Antal") & "<br>"

arrVarerIKurven = Split(Session("indkob"),"<br>")
arrAntalAfVaren = Split(Session("Antal"),"<br>")

for i = Lbound(arrVarerIKurven) to Ubound(arrVarerIKurven)
SQL = "INSERT INTO Ordlin(Varenavn,Antal) values ('"&arrVarerIkurven(i)&"',"&arrAntalAfVaren(i)&");"

'SQL = "INSERT INTO Ordlin(navn,antal) values ('"&arrVarerIkurven(i)&"','"&arrAntalAfVaren(i)&"');"
response.write sql
Conn.execute(SQL)
next


end select





















For Each item in session.contents

response.write session.contents(item)& "<br>"

next
%>
<br><br><a href="kurvtest.asp?mode=sletsession">Slet session</a>

session2.asp ( viser og smider vare i databasen )


<%
id=request("id")
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("kurv.mdb")
set rs = connect.execute("SELECT * FROM vare WHERE id LIKE '" & id &"'")
Nyindkob=request("id")
Antal=request("antal")


Session("indkob") = Session("indkob") & "|" & NyIndkob
Session("Antal") = Session("Antal") & "|" & Antal











response.write session("indkob")
response.write session("antal")
rs.close
set connect = nothing
%>

<br><br><a href="kurvtest.asp">Tilbage</a>
<br><br><a href="kurvtest.asp?mode=tilkurv">Ind med dem</a>