求救，各位进来看看

[kavinsnow]

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
[Microsoft][ODBC Microsoft Access Driver]行中有错误
/his/admin_illness_add.asp, 第 94 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页：
POST 752 ??? /his/admin_illness_add.asp

POST Data:
principal=%CE%DE&history=%CE%DE&health=%C1%BC%BA%C3&contagion=%CE%DE&vaccinate=%CE%DE&hyper=%CE%DE&allergic=%CE%DE&clinic=%CE%DE&trauma=%CE%DE&operation=%CE%DE&breath=%D5%FD%B3%A3&circle=%D5%FD%B3%A3& . . .

时间：
2006年9月25日, 10:17:34


详细信息：
Microsoft 支持

这个问题，该如何解决
附：
set rs=server.CreateObject("adodb.recordset")
rs.open "illness",conn,1,3
if request.form("submit")<>"" then
rs.addnew
rs("id")=sjs
rs("principal")=request.form("principal")
rs("history")=request.form("history")
rs("health")=request.form("health")
rs("contagion")=request.form("contagion")
rs("vaccinate")=request.form("vaccinate")
rs("hyper")=request.form("hyper")
rs("allergic")=request.form("allergic")
rs("clinic")=request.form("clinic")
rs("trauma")=request.form("trauma")
rs("operation")=request.form("operation")
rs("breath")=request.form("breath")
rs("circle")=request.Form("circle")
rs("assimilation")=request.Form("assimilation")
rs("uropoiesis")=request.Form("uropoiesis")
rs("hemopoiesis")=request.Form("hemopoiesis")
rs("incretion")=request.Form("incretion")
rs("muscle")=request.Form("muscle")
rs("nerve")=request.Form("nerve")
rs("homeplace")=request.Form("homeplace")
rs("job")=request.Form("job")
rs("endemic")=request.Form("endemic")
rs("person")=request.Form("person")
rs("smoke")=request.Form("smoke")
if request.Form("smoke")="有" then
rs("smokea")=request.Form("smokea")
rs("smokeb")=request.Form("smokeb")
rs("smokec")=request.Form("smokec")
if request.Form("smokec")="已" then
rs("smoked")=request.Form("smoked")
end if
end if
if request.Form("alcohol")="无" then
rs("alcohol")=request.Form("alcohol")
else
rs("alcohol")=request.Form("alcohol")
rs("alcohola")=request.Form("alcohola")
rs("alcoholb")=request.Form("alcoholb")
rs("alcoholc")=request.Form("alcoholc")
end if
rs("marriage")=request.Form("marriage")
rs("consort")=request.Form("consort")
rs("menarche")=request.Form("menarche")
rs("menday")=request.Form("menday")
if request.Form("mendate")<>"" then
rs("mendate")=cdate(request.Form("mendate"))
end if
if request.Form("menage")<>"" then
rs("menage")=request.Form("menage")
end if
if request.Form("mendays")<>"" then
rs("mendays")=request.Form("mendays")
end if
rs("mena")=request.Form("mena")
rs("menb")=request.Form("menb")
rs("menc")=request.Form("menc")
if request.Form("gestation")<>"" then
rs("gestation")=request.Form("gestation")
end if
if request.Form("gesa")<>"" then
rs("gesa")=request.Form("gesa")
end if
if request.Form("gesb")<>"" then
rs("gesb")=request.Form("gesb")
end if
if request.Form("gesc")<>"" then
rs("gesc")=request.Form("gesc")
end if
if request.Form("gesd")<>"" then
rs("gesd")=request.Form("gesd")
end if
rs("gesother")=request.Form("gesother")
rs("familya")=request.Form("familya")
if request.Form("familya")="已故" then
rs("deatha")=request.Form("deatha")
end if
rs("familyb")=request.Form("familyb")
if request.Form("familyb")="已故" then
rs("deathb")=request.Form("deathb")
end if
rs("brother")=request.Form("brother")
rs("issue")=request.Form("issue")
rs.update
response.Write"<script>alert('病人基本信息添加成功！');</script>"
response.Write"<script>location.href='admin_jbxx.asp';</script>"
rs.close
set rs=nothing
end if

[李向荣]

94行是哪一行

[ShawnSun]

程序的第二行不正确。
rs.open 第一个参数应该是一个sql 语句，而"illness"这个是虾米啊...?

rs.open "illness",conn,1,3

[kavinsnow]

94行就是：rs.update