Sample code for ASP files - II

<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>

Previous slide

Next slide

Back to first slide

View graphic version