'List of common function used on client side

' not a very good idea, just a workaround
Dim gEventSrcElement

Sub HandleInputFocus
	Set gEventSrcElement = window.event.srcElement
	Call SetTimeout ("DelayFocus()", 1, "VBScript")
End Sub

Sub DelayFocus
	On Error Resume Next
	gEventSrcElement.select
	On Error Goto 0
end sub