各位,我已被dreamwearver mx与access如何添加记录搞的好惨,提交时,总是出现以下错误,在许多次测试中,只有一次成功过!我郁闷!!!!!!
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。
/TMP1fblf4qd0s.asp, 第 115 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

网页：
POST 124 ??? /TMP1fblf4qd0s.asp

POST Data:
username=dfg&password=sdf&e-mail=dfsd&question=fsdf&answer=sdfsd&tel=fsdf&add=dfd&qq=sfd&Submit=%CC%E1%BD%BB&MM_insert=form1

是的，就是dw生成的．
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connection.asp" -->
<%
' *** 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 & "?" & 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")) = "form1") Then

MM_editConnection = MM_connection_STRING
MM_editTable = "userinfo"
MM_editRedirectUrl = "file://///Tonyzhang/d/cqnet/first.htm"
MM_fieldsStr = "username|value|password|value|e-mail|value|question|value|answer|value|tel|value|add|value|qq|value"
MM_columnsStr = "UserName|',none,''|PassWord|',none,''|E-Mail|',none,''|Question|',none,''|Answer|',none,''|TEL|none,none,NULL|ADD|',none,''|QQ|',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
%>
<%
Dim disinfo
Dim disinfo_numRows

Set disinfo = Server.CreateObject("ADODB.Recordset")
disinfo.ActiveConnection = MM_connection_STRING
disinfo.Source = "SELECT * FROM userinfo"
disinfo.CursorType = 0
disinfo.CursorLocation = 2
disinfo.LockType = 1
disinfo.Open()

disinfo_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<form name="form1" action="<%=MM_editAction%>">
username:
<input name="username" type="text" id="username">
<br>
password:
<input name="password" type="password" id="password">
<br>
e-mail:
<input name="e-mail" type="text" id="e-mail">
<br>
question:
<input name="question" type="text" id="question">
<br>
answer:
<input name="answer" type="text" id="answer">
<br>
tel:
<input name="tel" type="text" id="tel">
<br>
add:
<input name="add" type="text" id="add">
<br>
qq:
<input name="qq" type="text" id="qq">
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<input type="hidden" name="MM_insert" value="form1">
</form>
</body>
</html>
<%
disinfo.Close()
Set disinfo = Nothing
%>

我帮你把笑脸转换改过来了。

SQL语句错误，一般插入的语句，要和数据库中的数据类型相符合。

如果数据类型为文本字符串，　使用"a"
如果为数字，使用a
如果为日期，使用#a#

第二种方法，如果想全部用"a"，你在access数据库中，把那些字段全部改为文本或者备注类型。

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tablevalues & ") values (" & MM_dbvalues & ")"　　这一句需要改。　　　
不是在dreamweaver中看代码，我实在是头晕。


在dreamweaver中，最好把输入显示部分和功能处理部分分开。并且每页加上验证功能。