Klassiskt global.asa problem

Sub Session_OnEnd()
'del 1
	Application.Lock
    Application("NumSession") = Application("NumSession") - 1
	Application.Unlock
'del2
	If Len(Trim(Session("userid") & "")) <> 0 Then
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "temp"
		Set datum = conn.execute("SELECT dag FROM score WHERE (userid = "&session("userid")&") AND (dag = CONVERT(char,getdate(),112))")
		If datum.eof Then
			conn.execute("INSERT INTO score (userid, dag) VALUES("&session("userid")&",CONVERT(char,getdate(),112))")
		End If
		datum.close
		Set datum = Nothing
		conn.execute("UPDATE score SET tid=tid+"&round(DateDiff("s", cDate(session("kom")), now)/60)&" WHERE userid="&session("userid")&" AND dag=CONVERT(char,getdate(),112)")
		conn.close
		Set conn = Nothing
	End If
End Sub

Den första delen om applications körs men inte den andra, varför? Koden fungerar utanför global.asa.