Objektet måste vara en mängd.: 'application.lock'

Min global.asa ser ut så här:

<script language="vbscript" Runat="server">
	sub application_onStart
		application("users") = 0
		set application("oRsUser") = Server.CreateObject("ADODB.RecordSet")
		application("oRsUser").cursorLocation = 3
		application("oRsUser").Fields.Append "user",201,255
		application("oRsUser").Fields.Append "page",201,255
		application("oRsUser").Fields.Append "aktiv",201,255
		application("oRsUser").open
	end sub
	
	sub session_onStart
		session("user") = ""
	end sub
	
	sub session_onEnd
		application.lock
			application("oRsUser").filter = "user = '" & session("user") &"'"
			application("oRsUser").delete
			application("users") = application("users") -1 
			application("oRsUser").filter = 0
		application.unlock		
		session("user") = ""
	end sub
</script>

Denna kod har jag på varje sida:

	application.lock
	[B]application.lock application("oRsUser").filter = "user = '" & session("username") &"'" [/B]
	application.lock application("oRsUser").fields("page") = GetURL
	application.lock application("oRsUser").fields("aktiv") = CStr(now())
	application.lock application("oRsUser").update
	application("oRsUser").filter = 0 
	application.unlock

När jag går in på en sida så får jag detta felmeddelande:

Körningsfel i Microsoft VBScript (0x800A01C3)
Objektet måste vara en mängd.: 'application.lock'

På den raden med fetstil.

Varför får jag detta felmeddelande?