以下是程序代码，错误信息Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
/asp/add.asp, 第 67 行，，这行是 db.Execute(strSql) 怎么回事呢？
<% Option Explicit %>
<%
If Request.Form("name")<>"" And Request.Form("mail")<>"" And Request.Form("dianhua")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim strSql,link_id,varname,varmail,varxingbie,vardianhua,varchusheng,varsubmit_date,varqs1,varqs2,varqs3,varqs3_1,varqs4,varqs5,varqs6,varqs7,varqs8,varqs8_1,varqs9,varqs10,varqs11,varqs12,varqs12_1,varqs13,varqs13_1,varqs14,varqs15,varqs16,varqs16_1,varqs16_2,varqs16_3,varqs16_4,varqs17,varqs18,varqs18_1,varqs18_2,varqs19_3,varqs19_4,varqs19_5,varqs19_6,varqs20,varqs21,varqs21_1,varqs22,varqs23,varqs24,varqs25,varqs26,varqs27,varqs28,varqs29,varqs30,varqs31,varqs32,varqs32_1,varqs33,varqs33_1,varqs34
varName=Request.Form("name")
varmail=Request.Form("mail")
varxingbie=Request.Form("xingbie")
vardianhua=Request.Form("dianhua")
varchusheng=Request.Form("chusheng")
varqs1=Request.Form("qs1")
varqs2=Request.Form("qs2")
varqs3=Request.Form("qs3")
varName=Request.Form("qs3_1")
varName=Request.Form("qs4")
varName=Request.Form("qs5")
varName=Request.Form("qs6")
varName=Request.Form("qs7")
varName=Request.Form("qs8")
varName=Request.Form("qs8_1")
varName=Request.Form("qs9")
varName=Request.Form("qs10")
varName=Request.Form("qs11")
varName=Request.Form("qs12")
varName=Request.Form("qs12_1")
varName=Request.Form("qs13")
varName=Request.Form("qs13_1")
varName=Request.Form("qs14")
varName=Request.Form("qs15")
varName=Request.Form("qs16")
varName=Request.Form("qs16_1")
varName=Request.Form("qs16_2")
varName=Request.Form("qs16_3")
varName=Request.Form("qs16_4")
varName=Request.Form("qs17")
varName=Request.Form("qs18")
varName=Request.Form("qs18_1")
varName=Request.Form("qs18_2")
varName=Request.Form("qs19_3")
varName=Request.Form("qs19_4")
varName=Request.Form("qs19_5")
varName=Request.Form("qs19_6")
varName=Request.Form("qs20")
varName=Request.Form("qs21")
varName=Request.Form("qs21_1")
varName=Request.Form("qs22")
varName=Request.Form("qs23")
varName=Request.Form("qs24")
varName=Request.Form("qs25")
varName=Request.Form("qs26")
varName=Request.Form("qs27")
varName=Request.Form("qs28")
varName=Request.Form("qs29")
varName=Request.Form("qs30")
varName=Request.Form("qs31")
varName=Request.Form("qs32")
varName=Request.Form("qs32_1")
varName=Request.Form("qs33")
varName=Request.Form("qs33_1")
varName=Request.Form("qs34")
StrSql="Insert Into link(name,mail,xingbie,dianhua,chusheng,submit_date,qs1,qs2,qs3,qs3_1,qs4,qs5,qs6,qs7,qs8,qs8_1,qs9,qs10,qs11,qs12,qs12_1,qs13,qs13_1,qs14,qs15,qs16,qs16_1,qs16_2,qs16_3,qs16_4,qs17,qs18,qs18_1,qs18_2,qs19_3,qs19_4,qs19_5,qs19_6,qs20,qs21,qs21_1,qs22,qs23,qs24,qs25,qs26,qs27,qs28,qs29,qs30,qs31,qs32,qs32_1,qs33,qs33_1,qs34) values('" & varname &" ','"& varmail &"','" & vardianhua &"','"& varchusheng &"','" & varqs1 &"','" & varqs2 &"','" & varqs3 &"','" & varqs3_1 &"','" & varqs4 &"','" & varqs5 &"','" & varqs6 &"','" & varqs7 &"','" & varqs8 &"','" & varqs8_1 &" ','" & varqs9 &"','" & varqs10 &"','" & varqs11 &"','" & varqs12 &"','" & varqs12_1 &"','" & varqs13 &"','" & varqs13_1 &"','" & varqs14 &"','" & varqs15 &"','" & varqs16 &"','" & varqs16_1 &"','" & varqs16_2 &"','" & varqs16_3 &"','" & varqs16_4 &"','" & varqs17 &"','" & varqs18 &"','" & varqs18_1 &"','" & varqs18_2 &"','" & varqs19_3 &"','" & varqs19_4 &"','" & varqs19_5 &"','" & varqs19_6 &"','" & varqs20 &"','" & varqs21 &"','" & varqs21_1 &"','" & varqs22 &"','" & varqs23 &"','" & varqs24 &"','" & varqs25 &"','" & varqs26 &"','" & varqs27 &"','" & varqs28 &"','" & varqs29 &"','" & varqs30 &"','" & varqs31 &"','" & varqs32 &"','" & varqs32_1 &"','" & varqs33 &"','" & varqs33_1 &"','" & varqs34 &"',#" & Date() & "#)"
db.Execute(strSql)
Response.write "添加成功"
Else
Response.Write "请将所有信息填写完整，"
Response.Write "<a href='add_form.asp'>重新添加</a>"
End If
%>
