Microsoft VBScript 编译器错误 错误 '800a03f6'

[dong7765]

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.mdb")

username = "aaaa"
usermail = "[e-mail]"
indate = Now()

sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"',"&indate&")"
'sql = "insert into data (username,usermail) values('"&username&"','"&usermail&"')"
'sql="select username,usermail from data"
conn.Execute(sql)

conn.Close
Set conn = Nothing
%>

数据库：

　　用 Microsoft Access 建立一个名为 data.mdb 的空数据库，使用设计器创建一个新表。输入以下几个字段：

　　字段名称　　数据类型　　说明　　　　　　其它
　　ID　　　　　自动编号　　数据标识　　　　字段大小：长整型　新值：递增　索引：有（无重复）
　　username　　文本　　　　姓名　　　　　　缺省值
　　usermail　　文本　　　　E-mail　　　　　缺省值
　　view　　　　数字　　　　查看次数　　　　字段大小：长整型　默认值：0　索引：无
　　indate　　　时间日期　　加入时间　　　　缺省值

　　保存为 data.mdb 文件，为了便于说明，只是做了一个比较简单的库。


////报错信息//////////////
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 '2003-11-14 10:10:03' 中。

/test/test.asp，行12

[nchen123]

sql = "insert into data (username,usermail,indata) values
^
|错
('"&username&"','"&usermail&"',"&indate&")"
^错 ^错

改成：

sql = "insert into data (username,usermail,indate) values('"&username&"','"&usermail&"',#"&indate&"#)"


关于时间日期字段:
access 中用 #
sql server 中用 '

[dong7765]

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.mdb")

username = "·çÔÆÍ»±ä"
usermail = "[e-mail]"
indate = Now()

sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"',#"&indate&"#)"

Response.write sql

conn.Execute(sql)

conn.Close
Set conn = Nothing
%>


insert into data (username,usermail,indata) values('风云突变','[e-mail]',#2003-11-14 11:01:28#)
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。

/test/test.asp，行15

还是报错
msn:[e-mail]
qq: 178704837

[超级大笨狼]

改成：
<%
dim conn,rs,cnstr,username,usermail,indate
username = "aaaa"
usermail = "[e-mail]"
indate = Now()
cnstr="driver={Microsoft Access Driver (*.mdb)};dbq="
cnstr=cnstr & Server.MapPath("data.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.recordset")

conn.Open cnstr
sql="select * from data"
rs.open sql,conn,3,2
rs.addnew
rs("username")=username
rs("usermail")=usermail
rs("indata")=indata
rs.update
rs.close
conn.Close
Set rs= Nothing
Set conn = Nothing
%>
程序要有良好的风格！！