Function btnLogin_onclick

	If frmLoginPanel.txtUserName.value="" then 
		msgbox "Please, enter User Name.", vbInformation, "Empty field"
		frmLoginPanel.txtUserName.focus
		window.event.returnValue = false
		Exit Function
	End if

	If frmLoginPanel.txtPassword.value="" then
		msgbox "Please, enter Password.", vbInformation, "Empty field"
		frmLoginPanel.txtPassword.focus
		window.event.returnValue = false
		Exit Function
	End If

	frmLoginPanel.sUserName.value = frmLoginPanel.txtUserName.value
	frmLoginPanel.sPassword.value = frmLoginPanel.txtPassword.value
	frmLoginPanel.submit

End Function

Function window_onload
	frmLoginPanel.txtUserName.focus
End Function

Function btnRegister_onclick
	window.navigate "newuser_panel.asp"
End Function

Function spanSample_onclick
	frmLoginPanel.sUserName.value = "sample"
	frmLoginPanel.sPassword.value = "sample"
	frmLoginPanel.submit
End Function

Function oc
	window.event.srcElement.parentElement.parentElement.parentElement.parentElement.parentElement.parentElement.children(0).children(0).click
End Function