这位朋友：
你好！
我是一个ASP初学者，正在做一个需用到ASP的网站，下载的一些程序预览时经常出错，太深的地方我又看不出来，，是一个关于BBS发表文章的程序，不怕你笑话，我已找了近两天的毛病，但还是没有结果，故肯请你帮帮忙，程序如下，这里先谢了。
你的朋友：畅想
2001.8.17
出错信息：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/bbs/fabiaotijiao.asp, 第 41 行
（注第41行即为下面标有＊＊＊的一行：end if 一行）


浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页：
POST 127 bytes to /bbs/fabiaotijiao.asp

POST 数据:
xingming=chadlk&youjian=alsk%3Bd@jsakjl&zhuti=%3Blsakdj&neirong=as%3Blkjflsakdfj%0D%0A&Submit=%B7%A2%A1%A1%B1%ED&caption=delphi


程序代码：（fabiaotijiao.asp文件中）
<%
xingming=request.form("xingming")
biaoti=request.form("zhuti")
youjian=request.form("youjian")
neirong=request.form("neirong")
banqu=request.form("caption")
shijian=request.form("shijian")
shijian1=request.querystring("shijian")
ip=request.servervariables("remote_host")
notime=now
connstr = "DBQ="+server.mappath("luntan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
if shijian<>"" then
sql="select * from wenzhang where 时间='"&shijian1&"'"
    rs.open sql,conn,1,2
    rs("回复")=true
    rs.update
    rs.close
    end if
sql="select * from wenzhang"
rs.open sql,conn,1,2
rs.addnew
rs("ip")=ip
rs("版区")=banqu
rs("时间")=notime
rs("回复")=false
rs("姓名")=xingming
rs("主题")=biaoti
rs("内容")=neirong
rs("点击")=0

rs("邮件")=youjian

if shijian1<>"" then
rs("回复主题")=shijian1
    else
     rs("回复主题")=""


＊＊＊＊                      end if


rs.update
rs.close
%>