Функция VBScript выдает ошибки.Пожалуйста помоги?

Question

Public Function BinarySearch(userNameString, switchPosition) As Boolean
    If Right(LCase(userNameString), 8) = "lastname" Then
        If Left(LCase(userNameString), 5) = "admin" Or Left(LCase(userNameString, 7) = "firstname" Then
            If StrComp(switchIsOn(switchPosition), "1", vbTextCompare) = 0 Then
                ' Verify the user is admin lastname or firstname lastname and switch is on
                Return True
            Else
                ' Verify the user is admin lastname or firstname lastname and switch is off
                Return False
            End If
        Else
            ' Users last name is lastname
            Return False
        End If
    Else
        ' Not lastname
        Return False
    End If    
End Function

Когда я запускаю его, я получаю сообщение об ошибке в первой строке Public Function ...

Что я получаю «Ошибка компиляции Microsoft VBScript: ожидаемое утверждение»

Answer 1

Вы не можете набирать в VBScript так:

Открытая функция BinarySearch (userNameString, switchPosition) Как логическое значение

Answer 2

В VBScript все варианты, не нужно вводить переменные.Присваивая возвращаемое значение имени вашей функции: BinarySearch = false Вы называете свою функцию binarysearch, а затем выполняете сравнение текста?