VBScript blnInStr

'********************************************************************

'*

'* Function blnInStr

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2004-06-29

'* Modified: 2008-08-18

'*

'* Purpose: Returns a Boolean indicating if the the specific string

'*            is contained in another string based on case sensitive

'*            or case insensitive comparison.

'*

'* Input:   strSearch A string to be searched.

'*          strMatch  A string to search for in strSearch.

'*          blnCase   A boolean indicating case sensitive comparisons.

'*                      True  = Case Sensitive comparison

'*                      False = Case Insensitive comparison (Default)

'*

'* Output:  True or False

'*          True  = strMatch was found in strSearch.

'*          False = strMatch was Not found in strSearch.

'*

'* Calls:

'* ReturnCaseComparisonValue

'********************************************************************

Function blnInStr(ByVal strSearch, ByVal strMatch, ByVal blnCase)

   'Version 1.1 2008-05-18

   Dim blnTemp

   blnTemp = False

   If InStr(1, strSearch, strMatch, ReturnCaseComparisonValue(blnCase)) > 0 Then

     blnTemp = True

   End If 'InStr(1, strSearch, strMatch, ReturnCaseComparisonValue(blnCase)) > 0

   blnInStr = blnTemp

End Function 'blnInStr