Function mainSearch_hotKeyword(o)
	o.parentElement.parentElement.parentElement.txtkeyword.value=o.innerText
	o.parentElement.parentElement.parentElement.submit
End Function
Function StringValidate(str, t)	'Common
	Dim re
	Set re = New RegExp
	re.Global = True
	re.IgnoreCase = True
	re.MultiLine = True
	Select Case LCase(t)
		Case "e-mail"
			re.Pattern = "^([a-zA-Z0-9_\-])+(\.([a-zA-Z0-9_\-])+)*@((\[(((([0-1])?([0-9])?[0-9])|(2[0-4][0-9])|(2[0-5][0-5])))\.(((([0-1])?([0-9])?[0-9])|(2[0-4][0-9])|(2[0-5][0-5])))\.(((([0-1])?([0-9])?[0-9])|(2[0-4][0-9])|(2[0-5][0-5])))\.(((([0-1])?([0-9])?[0-9])|(2[0-4][0-9])|(2[0-5][0-5]))\]))|((([a-zA-Z0-9])+(([\-])+([a-zA-Z0-9])+)*\.)+([a-zA-Z])+(([\-])+([a-zA-Z0-9])+)*))$"
			StringValidate = re.Test(str)
		Case Else
			re.Pattern = t
			StringValidate = re.Test(str)
	End Select
	Set re = Nothing
End Function