' File= Includes\English\vbs\GeneralUtilsE.vbs

Sub Window_Onload()
	frmSearch.ClaBtnGo.style.backgroundImage = "url(../images/English/general/go.gif)"
	frmSearch.txtSearch.focus
	onLoadWindow()	
End Sub

Sub onSubmitSearch()
		Dim iSize
		
		if Len(Trim(frmSearch.txtSearch.value)) = 0 then
			MsgBox("Please enter serach criteria.")
			frmSearch.txtSearch.value = ""
			frmSearch.txtSearch.focus
			window.event.returnValue = false
		End if
		
End sub	

Sub onTxtSearchKeyPress()

	Dim keyCode
		
	keyCode = window.event.keyCode
	if keyCode = 13 then
		if Len(Trim(frmSearch.txtSearch.value)) = 0 then
			MsgBox("Please enter serach criteria.")
			frmSearch.txtSearch.value = ""
			frmSearch.txtSearch.focus
			window.event.returnValue = false
		End if	
	End if
End sub

Sub onMouseOverGo()
		
	Dim oSrc
	Set oSrc = window.event.srcElement
	oSrc.style.cursor = "hand"
	
End Sub
	
Sub onMouseOutGo()
		
	Dim oSrc
	Set oSrc = window.event.srcElement
	oSrc.style.cursor = "Default"
	
End Sub