错误代码如下．请帮我改正．．
<% Option Explicit %>
<%
if request.form("biaoti") <> "" and request.form("text") <> "" then
dim db
set db=Server.CreateObject("ADODB.Connection")
db.Open "link_new"
Dim strSql,sqla,sqlb, var_headline, var_text, var_time
var_headline=request.form("biaoti")
var_text=request.form("text")
var_time=request.form("time")
sqla="Insert Into news(headline,text"
sqlb=" values('" & var_headline & "','" & var_text &"' ,'" & var_time &"'"
if var_time<>"" then
sqla=sqla & ",time"
sqlb=sqlb & ",'" & var_time & "'"
end if
strSql=sqla & ")" & sqlb & ")"
db.Execute(strSql)
response.redirect "index_edit.htm"
else
response.write "请将所有信息填写完整，"
response.write "<a href='add_form.asp'>重新添加</a>"
end if
%>

还有个问题请帮我改正．用delete删除记录．
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 无法从指定的数据表中删除。
/ncgc/Web_Edit/delete.asp, 第 10 行

错误代码好下：
<% Option Explicit %>
<%
Response.buffer=true
dim db
set db=Server.CreateObject("ADODB.Connection")
db.Open "link_dongtai"
Dim strSql,var_id
var_id=request.QueryString("id")
strSql="Delete from dongtai where id=" & var_id
db.execute(strSql)
request.redirect "udit_dt.asp"

%>

第一条代码提示：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。
/ncgc/Web_Edit/add.asp, 第 18 行

按上面这样改了一下还是不行,不知道对数据库要不要怎么进行设置??????

我用的是XP系统.

就是这样的..
可以读.但是不能删除.真郁闷..找不到原因..

link_dongtai.asp文件如下
<%
Dim db_dongtai
Set db_dongtai=Server.CreateObject("ADODB.Connection")
db_dongtai.Open "link_dongtai"
Dim strSql_dongtai,rs_dongtai
strSql_dongtai="Select * From dongtai Order By id DESC"
Set rs_dongtai=db_dongtai.Execute(strSql_dongtai)
%>
显示页面ASP部分如下.
<!--#Include file="../link_dongtai.asp"-->
<%
response.write"<table width='600' border='1' cellspacing='0' cellpadding='0'>"
response.write "<tr><td colspan='5' align=center>动态信息编辑</td>"
response.write "</tr>"
response.write " <tr> <td width=20><div align='center'>ID</div></td>"
response.write "<td width=460><div align='center'>标题</div></td>"
response.write "<td width=40>&nbsp;</td>"
response.write "<td width=40>&nbsp;</td>"
response.write "<td width=40>&nbsp;</td>"
response.Write"</tr>"
dim page_size
dim page_total
dim page_no
page_size=6
rs_dongtai.pagesize=page_size
dim i
i=page_size
do while not rs_dongtai.eof and i>0
i=i-1
response.write "<tr>"
response.write "<td width=20 align=center>"&rs_dongtai("id")&"</td>"
response.write "<td width=460 align=left>"&rs_dongtai("Headline")&"</td>"
response.write "<td width=40 align=center>"&"<a href='add_form.asp'>"&"添加"&"</a></td>"
response.write "<td width=40 align=center>"&"修改"&"</td>"
response.write "<td width=40 align=center>" & "<a href=delete.asp?id="&rs_dongtai("id")&">" &"删除"&"</a></td>"
response.write "</tr>"
rs_dongtai.Movenext
loop
response.write "</table>"
rs_dongtai.close
set rs_dongtai=nothing
db_dongtai.close
set db_dongtai=nothing
%>

太感谢了..