Public Function CompareString(ByVal str1 As String, ByVal str2 As String) As Boolean
        Dim i As Integer = 0
        For i = 0 To str2.Length - str1.Length
            If str2.Substring(i, str1.Length) = str1 Then
                Return True
            End If
        Next i
        Return False
    End Function
 
Function Calling//
If CompareString(Session("directoratename"), direcgrp) = True Then
flag = 1
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
Else
flag = 0
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
End If