|
here how i done it in ver 7
if Str_Mem_Posted = "No" or intGroupID = 2 then if InStr(1, strMessage, " You must be a registered member and post a reply in this topic to view the hidden content within this post! ", 1) > 0
lngStarthidePos = InStr(1, strMessage, " You must be a registered member and post a reply in this topic to view the hidden content within this post! ", 1)
If lngEndhidePos - lngStarthidePos =< 0 Then lngEndhidePos = lngStarthidePos + Len(strhideAuthor)
If lngEndhidePos > lngStarthidePos Then strhideMessage = Trim(Mid(strMessage, lngStarthidePos, lngEndhidePos-lngStarthidePos)) strhideAuthor = Replace(strhideAuthor, """", "", 1, -1, 1) strBuildhide = strhideMessage End If
lngStarthidePos = InStr(1, strMessage, " You must be a registered member and post a reply in this topic to view the hidden content within this post! ", 1) + 7
If lngEndhidePos - lngStarthidePos =< 5 Then lngEndhidePos = lngStarthidePos + Len(strhideAuthor) + 7
strOriginalhide = Trim(Mid(strMessage, lngStarthidePos, lngEndhidePos-lngStarthidePos))
If strBuildhide <> "" Then strMessage = Replace(strMessage, strOriginalhide, "<a href='#reply'><img src=hide2007.jpg border=0></a>", 1, -1, 1) Else strMessage = Replace(strMessage, strOriginalhide, Replace(strOriginalhide, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop
End If elseif Str_Mem_Posted = "Yes" then if InStr(1, strMessage, " You must be a registered member and post a reply in this topic to view the hidden content within this post! ", "", 1, -1, 1) End If End If
thats code in "forum_posts.asp" .
comon guys .. you know how the new v9 structure is i dont .. need asp pros for it to make it work with v9
|