insert fejl i database

Med det her script skal jeg trække noget dataud fra en tabel der er lige et sessioID og skrive det ind i anden, og er der flere linjer der skal skrives ind skal de have det sammen ID.

Her er mit script:

<%
sql="INSERT INTO shop_ordre(sessionsID,oprettet,kundeID) VALUES('"&Session.SessionID&"',GETDATE(),'"&Session("brugerid")&"')"
rs.Execute(sql)

sql="SELECT ordreID FROM shop_ordre WHERE SessionsID='"&Session.SessionID&"'"
set Record = rs.Execute(sql)

ordreID=Record("ordreID")

sql="SELECT * FROM shop_varekurv WHERE SessionsID='"&Session.SessionID&"'"
set Record2 = rs.Execute(sql)
do while not Record2.EOF

    pris=Record2("pris")
    pris="" & pris
    pris=Replace(pris, ",", ".")

    sql="INSERT INTO shop_ordrelinjer(ordreID,vareID,varenummer,model,storrelse,antal,pris,billede) VALUES("&ordreID&",'"&Record2("vareID")&"','"&Record2("varenummer")&"','"&Record2("model")&"','"&Record2("storrelse")&"','"&Record2("antal")&"',"&pris&",'"&Record2("billede")&"')"
    rs.Execute(sql)
Record2.movenext
loop

'Response.Redirect("index.asp?side=orderbekraftelse_mail")
%>