<SCRIPT LANGUAGE=VBScript> |
<!-- |
Dim rgszCtrls(24, 2) |
Dim cMaxCtrls |
cMaxCtrls = 24 |
Sub AddCtrlToList(szCtrl, szCtrlSrc) |
Dim i |
for i = 1 to cMaxCtrls |
if rgszCtrls(i, 1) = szCtrl Then Exit Sub |
if rgszCtrls(i, 1) = "" Then |
rgszCtrls(i, 1) = szCtrl |
rgszCtrls(i, 2) = szCtrlSrc |
Exit Sub |
End If |
next |
End Sub |
Sub UpdateRefreshBtn() |
nav_btn_MoveCancelUpdate.Caption = "Cancel" |
End Sub |
--> |
</SCRIPT> |