Insert problemer

Hej

Jeg har nedestående kode og jeg får http 500 fejl, jeg håber en af jer kan spotte fejlen.

<%

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
Set RsStock = Server.CreateObject("ADODB.Recordset")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/44nato44/db/SBO.mdb")
Conn.Open DSN


DateB = Request.Form("DateB")
StockId = Request.Form("StockId")
Amount = Request.Form("Amount")
AValue = Request.Form("AValue")
CValue = Request.Form("CValue")
Descrip = Request.Form("Desc")

If DateB <> "" Then
  If StockId <> "" Then
    If Amount <> "" Then
      If AValue <> "" Then
        If CValue <> "" Then
          If Descrip <> "" Then
            SQLStock = "INSERT INTO Stocks (BuyDate ) VALUES ( "
            SQLStock  = SQLStock  & DateB & ", "
            SQLStock  = SQLStock  & "" & StockId & ", "
            SQLStock  = SQLStock  & "" & Amount & ", "
            SQLStock  = SQLStock  & "" & Avalue & ", "
            SQLStock  = SQLStock  & "" & CValue & ", "
            SQLStock  = SQLStock  & "'" & Descrip & "')"
            RsStock.Open SQLStock, DSN, 1
          Else
            Response.Write "Description Field Empty"
          End If
        Else
          Response.Write "Current Value Field Empty"
        End If
      Else
        Response.Write "Aquired Value Field Empty"
      End If
    Else
      Response.Write "Amount Field Empty"
    End If
  Else
    Response.Write "Stock Id Field Empty"
  End If
Else
  Response.Write "Date Field Empty"
End If
RsStock = Nothing
Response.Redirect "StockB.asp"




%>