Hjælp med INSERT INTO Særning!

Jeg kan simpelthen ikke få det til at virke som det skal!


En FØRSTE:

strBuyProdukt = "<a href=AddProdukt.asp?id=" & rsProdukter("id") & ">" & "Smid i kurv" & "</a>"
        response.write ("<tr>")
        response.write ("<td valign='top' height='20'>")
        response.write ("<font face='arial' size='4'><b>") & rsProdukter("ProduktNavn") & ("<br>") & ("</b><font face='arial' size='2'>") & rsProdukter("pris") & " DKK"
        response.write ("</td>")
        response.write ("<td rowspan='2' align='right'>")
        response.write ("<img src='/store/produkter/") & rsProdukter("id") &  ".jpg" & ("' & height='200'>")
        response.write ("</td>")
        response.write ("<tr>")
        response.write ("<td>")
        response.write rsProdukter("text")
        response.write ("</td>")
        response.write ("</tr>")
        response.write ("<tr>")
        response.write ("<td colspan='2'>")
        response.write ("<form name='form1' method='post' action='AddProdukt.asp?id='" & rsProdukter("id") & "'>")
        response.write ("<input type='text' name='antal'>")
        response.write ("<input type='submit' name='submit' value='Tilføj kurv'>")
        response.write ("</form>")
        response.write ("</td>")
        response.write ("</tr>")
Session("ProduktNavn") = rsProdukter("ProduktNavn")
Session("ProduktPris") = rsProdukter("pris")


Den ANDEN:
Session("Ordernummer") = Session("Ordernummer")
Session("ProduktNavn") = Session("ProduktNavn")
Session("ProduktPris") = Session("ProduktPris")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../cgi-data/storedb.mdb")
Conn.Open DSN

strSQL = "Insert into orderindhold("

strSQL = strSQL & "ordernummer, "
strSQL = strSQL & "produktnummer, "
strSQL = strSQL & "produktnavn, "
strSQL = strSQL & "produktPris, "
strSQL = strSQL & "produktantal) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Session("Ordernummer") &"', "
strSQL = strSQL & "'" & Request.QueryString("ID") & "', "
strSQL = strSQL & "'" & Session("ProduktNavn") & "', "
strSQL = strSQL & "'" & Session("ProduktPris") & "', "
strSQL = strSQL & Request.form("ANTAL") & ")"


response.write strSQL

Conn.Execute(strSQL)