asp在线人数及访问人数的问题，请高手指出，谢谢？

[wangyingdong]

<script language=vbscript runat=server>
sub application_onstart
application.lock
dim dsn,conn,rc,sql
provider="provider=microsoft.jet.oledb.4.0;"
path="data source="&server.MapPath("admin\date\wang.mdb")
dsn=provider&path
set conn=server.CreateObject("adodb.connection")
conn.open dsn
set rc=server.CreateObject("adodb.recordset")
sql="select * from num where id=1"
rc.open sql,conn,1,1
num=rc("num")
line=rc("line")
application("num")=num
application("line")=line
set rc=nothing
application.unlock
end sub



sub Session_Onstart
application.lock
on error resume next
dim dsn,conn,rc,sql
provider="provider=microsoft.jet.oledb.4.0;"
path="data source="&server.MapPath("admin\date\wang.mdb")
dsn=provider&path
set conn=server.CreateObject("adodb.connection")
conn.open dsn
set rc=server.CreateObject("adodb.recordset")
sql="select * from num where id=1"
rc.open sql,conn,3,2
rc("num")=rc("num")+1
rc("line")=rc("line")+1
application("num")=rc("num")
application("line")=rc("line")
rc.update
set rc=nothing
application.unlock
end sub

sub Session_Onend
application.lock
on error resume next
dim dsn,conn,rc,sql
provider="provider=microsoft.jet.oledb.4.0;"
path="data source="&server.MapPath("admin\date\wang.mdb")
dsn=provider&path
set conn=server.CreateObject("adodb.connection")
conn.open dsn
set rc=server.CreateObject("adodb.recordset")
sql="select * from num where id=1"
rc.open sql,conn,3,2
rc("line")=rc("line")-1
application("line")=rc("line")
rc.update
set rc=nothing
application.unlock
end sub
</script>

在另外的一个ASP页面
本站总访问量：<%= application("num") %> 人<br>
在线人数：<%= application("line") %> 人</p>
为什么只在线人数会出现问题呢？在线人数不会自动的减去？请高手指正，谢谢！

[笨笨兔兔兔兔兔]

on error resume next
这句去了试试

[SuperBJack]

先 去掉on error resume next才可发现问题.
不防试下
newcout=int(rc("line"))-1
application("line")=newcout
rc.update"line",newcout

[wangyingdong]

如果去掉on error resume next 然后在调用的话，根本就不会显示！