Hjælp med insert sætning?

Jeg erkommet til at rettet noget i min sætning så jeg bare ikke kan få skidtet til at virke mere:

<%
  Session("Customer") = Session("Customer")
  Session("CustomerRef") = Session("CustomerRef")
  Session("OrderNumber") = Session("OrderNumber")
  Session("EjTYPE") = Session("EjTYPE")
  Session("EjPrice") = Session("EjPrice")
  Session("EjID") = Session("EjID")

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

Dim CustomerRefText
Dim CustomerText

CustomerRefText = Session("CustomerRef")
CustomerText = Session("Customer")
OrderNumberText = Session("OrderNumber")
EjTypeText = Session("EjType")
EjPriceText = Session("EjPrice")
EjIDText = Session("EjID")
Session("MainType") = Session("MainType")
Session("FIRST") = "A"
Session("SECOND") = "U"
Session("INLET_TYPE") = "1"
Session("OUTLET_TYPE") = "1"
Session("DN") = Session("DN")
Session("PN") = Session("PN")
Session("LENGTH") = Session("LENGTH")
Session("InletEnd") =     Session("InletEnd")
Session("OutletEnd")  =     Session("InletEnd")
Session("INLET_MATR") ="St 37.0"
Session("OutLET_MATR") ="St 37.0"
Session("Liner")  =     Session("Liner")
Session("TOTALPRISKOM") = Session("TOTALPRISKOM")

strSQL = "Insert into orderspec ("

strSQL = strSQL & "EJ, "
strSQL = strSQL & "EJID, "
strSQL = strSQL & "FIRST, "
strSQL = strSQL & "SECOND, "
strSQL = strSQL & "INLET_TYPE, "
strSQL = strSQL & "OUTLET_TYPE, "
strSQL = strSQL & "LINER, "
strSQL = strSQL & "INLET_MATR, "
strSQL = strSQL & "OUTLET_MATR, "
strSQL = strSQL & "DN, "
strSQL = strSQL & "PN, "
strSQL = strSQL & "LENGTH, "
strSQL = strSQL & "Ordernummer, "
strSQL = strSQL & "Antal, "
strSQL = strSQL & "SpecMarking, "
strSQL = strSQL & "Doc31b, "
strSQL = strSQL & "DocPED, "
strSQL = strSQL & "Price) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Session("Type") & "', "
strSQL = strSQL & clng(Session("EJID")) ,
strSQL = strSQL & "'" & Session("FIRST") & "', "
strSQL = strSQL & "'" & Session("SECOND") & "', "
strSQL = strSQL & "'" & Session("INLET_TYPE") & "', "
strSQL = strSQL & "'" & Session("OUTLET_TYPE") & "', "
strSQL = strSQL & "'" & Session("LINER") & "', "
strSQL = strSQL & "'" & Session("INLET_MATR") & "', "
strSQL = strSQL & "'" & Session("INLET_MATR") & "', "
strSQL = strSQL & "'" & Session("DN") & "', "
strSQL = strSQL & "'" & clng(Session("PN")) & "', "
strSQL = strSQL & "'" & Session("LENGTH") & "', "
strSQL = strSQL & "'" & Session("OrderNumber") & "', "
strSQL = strSQL & "'" & Request.Form("Antal") & "', "
strSQL = strSQL & "'" & Request.Form("SpecMarking") & "', "
strSQL = strSQL & "'" & Request.Form("Doc31B") & "', "
strSQL = strSQL & "'" & Request.Form("DocPED") & "', "
strSQL = strSQL & "'" & Session("TOTALPRISKOM") & "') "

response.write strSQL

Conn.Execute(strSQL)


set rsCreateOrder = Nothing
set Conn = Nothing
Response.Redirect "ordershow.asp?id=" & Session("OrderNumber")


%>