ASP: Syntax error in INSERT INTO statement

[chma]

Driver å lager en asp side i dreamweaver, setter oppe insert record som på andre sider jeg har laget i samma webprosjekt.

Får denne feilmeldingen:

 

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

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

/Admin/Gjestebok/add.asp, line 121

 

Skjer ikke på noen av de andre dokumentene hvor insert record funksjonen i DW er brukt.

 

Koden er:(linje 121 sier MM_editCmd.Execute)

 

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
 MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "skriv") Then

 MM_editConnection = MM_db_STRING
 MM_editTable = "Gjestebok"
 MM_editRedirectUrl = "/Admin/Gjestebok/added.asp"
 MM_fieldsStr  = "tema|value|name|value|email|value|website|value|innlegg|value|time|value|dato|value|ip|value"
 MM_columnsStr = "tema|',none,''|name|',none,''|email|',none,''|website|',none,''|innlegg|',none,''|time|',none,''|date|',none,''|ip|',none,''"

 ' create the MM_fields and MM_columns arrays
 MM_fields = Split(MM_fieldsStr, "|")
 MM_columns = Split(MM_columnsStr, "|")
 
 ' set the form values
 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
   MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
 Next

 ' append the query string to the redirect URL
 If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
   If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
     MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
   Else
     MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
   End If
 End If

End If
%>
<%
' *** 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
%>

 

 

Håper noen kan hjelpe da jeg står temmelig fast og dette kun skjer på dene ene siden, ingen andre jeg har laget senere.....

har prøvd å søke litt rundt, men de forslagene jeg har prøvd funker ikke.

[Inge_aning]

Etter MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

skriv response.write MM_editQuery

 

så du får se sql-settningen du prøver å kjøre.

[chma]

Fant feilen gjennomgående i ALLE sider..., fant fort ut hva det var. Skyldtes at jeg hadde brukt noen reserverte navn i kolonne navn i Access og navn/id av skjemaer på selve asp siden.

 

Et råd til alle som driver med asp, ha denne siden oppe når dere lager ting http://support.microsoft.com/default.aspx?...kb;EN-US;286335