Lige et DB Vs ASP problem!

<%
If Session("login") = "JA" Then
  Session("Customer") = Session("Customer")
  Session("CustomerRef") = Session("CustomerRef")
  Session("OrderNumber") = Session("OrderNumber")
  Session("EjTYPE") = Session("EjTYPE")
  Session("EjPrice") = Session("EjPrice")
  Session("EjID") = Session("EjID")
  Session("login") = "JA"
  Session.Timeout = 30
Else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Redirect "http://www.dr.dk"
End If

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")

strSQL = "Insert into orderspec ("

strSQL = strSQL & "EJ, "
strSQL = strSQL & "EJID, "
strSQL = strSQL & "Ordernummer, "
strSQL = strSQL & "Antal, "
strSQL = strSQL & "SpecMarking, "
strSQL = strSQL & "Doc31b, "
strSQL = strSQL & "DocPED, "
strSQL = strSQL & "Price) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & EjTypeText &"', "
strSQL = strSQL & "'10', "
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 & "'100' "

response.write strSQL
Conn.Execute(strSQL)

set rsCreateOrder = Nothing
set Conn = Nothing
Response.Redirect "Order.asp"
%>