ผมทำตัว useronline ขึ้นมา จะทำยังให้มัน update ข้อมูลเมื่อเวลาปิดเพจ และไม่ได้ logout

Sub Session_OnStart
	Application.Lock
	Application("OnlineNow") = Application("OnlineNow")+1
	Application.UnLock
End Sub

Sub Session_OnEnd
	Application.Lock
	Application("OnlineNow") = Application("OnlineNow")-1
	Application.UnLock
End Sub

Sub Session_OnEnd
	Application.Lock
	Application("OnlineNow") = Application("OnlineNow")-1
	Application.UnLock
End Sub

<!--#include file="connect.asp"-->

<%
Dim sqlon3,recon3,a1,d1
d1=Date()

Application("OnlineNow") = 0
Application.Lock
Application("OnlineNow") = Application("OnlineNow")-1

sqlon3="update useronline set onoff=onoff" & Application("OnlineNow") & " where useronline='" & Session("user") & "' and date='" & d1 & "' "
'response.write(sqlon)
Set recon3=con.execute(sqlon3)

Application.UnLock

Session.Abandon()
Response.Redirect("../index.asp")
%>