Microsoft JET Database Engine error '80040e14'

Hej,
jag har min sida hos brinkster. Och Använder mig utav Access 2003
Koden

Set gbok = Server.CreateObject( "Adodb.Connection" )
gbok.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath("\spif93\db\guests.mdb")
gbok.ConnectionString = "Data Source='" & MdbFilePath & "'"
gbok.open

namn = Request.Form("namn")
Message = Request.Form("message")

strSQL = "INSERT INTO coach(heter, text, dag) VALUES('" & namn & "','" & Message & "','" & now() & "')"

gbok.Execute( strSQL )
Set gbok = Nothing

Response.Redirect "p93_coach.asp"

ger följande felmeddelande

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

Hittar tyvärr inte felet själv

text är ett reserverat ord i Jet SQL. Kanske ett byte av kolumnnamn.

Hej!

text är ett reserverat ord. Dessutom skall datum i Access omges av #-tecken, så:

,#" & now() & "#)"

Red./ Något sen uppenbarligen

/R hmm blev lite sent..

Det där med datum gäller väl bara versioner äldre än Access 2002, eller?

LarsG skrev:

Det där med datum gäller väl bara versioner äldre än Access 2002, eller?

Det har du rätt i :bire

byte av kolumn namn löste ett problem...

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'FirstVersal'

set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\spif93\db\guests.mdb")
strSQL =" SELECT * FROM coach ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
//'eftersom sidan ligger på en amerikansk server så har vi 6 timmars tidsdifferens
indag = Cdate(rsGbok("dag"))
vdag = DateAdd("h",6,indag)
dat = FirstVersal(WeekDayName(WeekDay(vdag)))&"en "& " den " & fix(DatePart("d", vdag)) & "  " & MonthName(Month(vdag)) &" kl " & FormatDateTime(vdag,4) 
Response.Write "<P>" & dat & " skrevs följande:</P>"
//' i VBScript kan man inte använda sig utav radbrytningar därför behövs följande: Replace(rsGbok("mess"), vbCrLf, "<br>" & vbCrLf)
Response.Write "<P><B><FONT SIZE=""4""><I>" & Replace(rsGbok("mess"), vbCrLf, "<br>" & vbCrLf) & "</I></FONT></B></P><BR><B><U>"
Response.Write "      av:"
Response.Write "</U></B>   " & rsGbok("heter")
Response.Write "<P></P><P></P><HR></HR>"

  rsGbok.MoveNext

  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing

löste problemet själv
det fattades:

<%  dim minCon 'Connection
     dim rsGbok 'recordsetten f&ouml;r nya inl&auml;gg
     dim strSQL

dim indag, dat
Session.LCID = 1053 
function fix(S)
  if S > 2 AND S <= 20 then 
     fix = S & "e"
	 Else
  if S > 23 AND S <= 30 then
   fix = S & "e"
    Else
    fix = S & "a"
  end if
  end if
 end function
 'byta ut första bokstaven
Function FirstVersal(txt)
      versal = UCase(Left(txt,1)) & LCase(Right(txt, Len(txt)-1))
  FirstVersal = versal
End Function
%>