<!--
Function Input_OnMouseOver(IObj)
 IObj.Style.Border = "1px solid"
 IObj.Style.BorderTopColor = "#000000"
 IObj.Style.BorderLeftColor = "#000000"
 IObj.Style.BorderRightColor = "#CCCCCC"
 IObj.Style.BorderBottomColor = "#CCCCCC"
 IObj.Focus()
End Function


Function Input_OnFocus(IObj)
 IObj.Style.Border = "1px dotted"
 IObj.Style.BorderTopColor = "#000000"
 IObj.Style.BorderLeftColor = "#000000"
 IObj.Style.BorderRightColor = "#000000"
 IObj.Style.BorderBottomColor = "#000000"
End Function


Function Input_OnFocusOut(IObj)
 IObj.Style.Border = "1px dotted"
 IObj.Style.BorderTopColor = "#CCCCCC"
 IObj.Style.BorderLeftColor = "#CCCCCC"
 IObj.Style.BorderRightColor = "#CCCCCC"
 IObj.Style.BorderBottomColor = "#CCCCCC"
End Function
-->