Konstigt...

Varför fungerar inte den här koden
<%
If Len(Trim(namn))> 0 Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("spec.mdb")&";"
datum = date()
If Len(trim(mail)) = 0 Then mail = " "
sql = "Insert into spec (namn, mail, inlagg, datum)"
sql = sql & " Values('" & namn & "','" & mail & "','" & inlagg & "','"
sql = sql & Datum & "');"
connect.execute (sql)
connect.close
%>
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access] Operationen måste använda en fråga som kan uppdateras.
/gast2.asp, line 22

det här är felet...????