'******************************************'***       Link Hide Block   ***'******************************************
' +'"This function formats the hide blocksFunction AntiLinkForGuest(strMessage,lngTopicID,lngLoggedInUserID) Dim strHideMessage Dim lngStartPos Dim lngEndPos Dim strBuildHideBlock Dim strOriginalHideBlockif lngLoggedInUserID = 2 Then Do While InStr(1, strMessage, "<a", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0 lngStartPos = InStr(1, strMessage, "<a", 1) + 2 lngEndPos = InStr(lngStartPos, strMessage, "</a>", 1) If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 2 If lngEndPos > lngStartPos Then
   strBuildHideBlock = " <b>Linki gore bilmek icin uye olmani gerekmektedir<b> "
End if
lngStartPos = InStr(1, strMessage, "<a", 1) lngEndPos = InStr(lngStartPos, strMessage, "</a>", 1) + 4 If lngEndPos < lngStartPos Then lngEndPos = lngStartPos + 2 strOriginalHideBlock = Trim(Mid(strMessage, lngStartPos, lngEndPos-lngStartPos)) If strBuildHideBlock <> "" Then   strMessage = Replace(strMessage, strOriginalHideBlock, strBuildHideBlock, 1, -1, 1) Else   strMessage = Replace(strMessage, strOriginalHideBlock, Replace(strOriginalHideBlock, "[", "[", 1, -1, 1), 1, -1, 1) End If Loopend if AntiLinkForGuest = strMessageEnd Function

If InStr(1, strMessage, "<a", 1) > 0 AND InStr(1, strMessage, "</a>", 1) > 0 Then strMessage = AntiLinkForGuest(strMessage,lngTopicID,lngLoggedInUserID)