asp+access 数据库连接有关问题 老报错

asp+access 数据库连接问题 老报错
dataPath="database/Test.accdb"

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Server.MapPath(dataPath)

id=1
conntent="测试数据"

sql="insert into newtable(ID,Content) values('"&id&"','"&conntent&"')"

conn.Execute(sql)

conn.close
set conn= nothing


页面错误
  Microsoft JScript 编译错误 错误 '800a03ec'

  缺少 ';'

  /index.asp，行 14

  Set conn = Server.CreateObject("ADODB.Connection")
  ----^

我access 是 2010 版本






------解决方案--------------------

VBScript code

<%
response.buffer=true '启用缓冲处理
dim conn,db
dim connstr
db="database/test.mdb"'数据库链接路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If 



id=1
conntent="测试数据"

sql="insert into newtable(ID,Content) values('"&id&"','"&conntent&"')"

conn.Execute(sql)
%>