help with "asp error 80040e14, Syntax error in INSERT INTO statement."

[hutch80]

I'm getting the following error message for my asp page.

"Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/test/admin_add_news.asp, line 115"

here is the code:

<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

Kinda new to asp, so any help is appreciated!

 

[Turkbear]

Hi,
Try displaying the string you build instead of submitting it to the database..That way you can see what is actually being sent.
Use a
Response.Write(MM_editCmd)
before the MM_editCmd.execute ( comment out from that line to the end of the first If..End statement.

 

[hutch80]

Thansk for the info turkbear, I have tried that (to the best of my knowledge)
got another error, so I'm not sure if I'm doing as you suggested, here's the new code:

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
Response.Write(MM_editCmd)
MM_editCmd.Execute
'MM_editCmd.ActiveConnection.Close

'If (MM_editRedirectUrl <> "") Then
'Response.Redirect(MM_editRedirectUrl)
'End If
End If

End If

again, forgive my lack of programming knowledge...

thansk very much

 

[snowboardr]

Reponse.write(MM_editQuery) before you excute the sql...please show output, we can then view your database SQL statement and pin-point the problem with your insert.

www.sitesd.com
ASP WEB DEVELOPMENT