[Include: 'Includes/metatag_Joke.htm'] [Include: 'Includes/guest_access.html'] [If: ($sess_name)=='guest'] [Variable: 'Inc_1'='NavHeader.html', 'Link_1'='Account_Signup.html?member=guest', 'Link_2'='Account_Signup.html', 'Link_3'='Joke_Category.html', 'Link_4'='Joke_Detail.html', 'Link_5'='Account_Signup.html', 'member_guest'='member=guest'] [Else] [Variable: 'Inc_1'='NavHeader.html', 'Link_1'='Joke_Add.html', 'Link_2'='Joke_Browser.html', 'Link_3'='Joke_Category.html', 'Link_4'='Joke_Detail.html', 'Link_5'='Joke_Comment.html', 'member_guest'=''] [/If] [Variable: 'forumWords'=(array),'uFlags'=(Array),'catfind'=(array),'acctfind'=(array),'findme'=(array),'uNabes'=(array),'idfind'=(array), 'path'=(String_Concatenate: '/Accounts/',($sess_acct), '/'), 'pathThumb'=(String_Concatenate: '/Accounts/',($sess_acct), '/Thumb/'), 'forumSearch' = (action_Param:'forumSearch'), 'forumKeywords'=($forumSearch->split:' '), 't_search' = (action_param:'t_search'), 'Joke' = (action_Param:'Joke'), 'thread' = (action_Param:'thread'), 'respond' = (action_Param:'respond'), 'reply' = (action_Param:'reply'), 'cat' = (action_param:'cat'), 'acct' = (action_param:'myposts'), 'accttags' = (action_param:'mytags'), 'Post' = (action_param:'type')] [If: ($sess_name)=='guest'] [Else] [Inline: -Search, -Database='MMS', -Table='Neighbors', -Keyfield='_Neighbor_ID', 'Neighbor_UserID'=($sess_acct)] [If: (Found_Count)>0] [Records] [$uNabes->(insert:(Field:'Neighbor_NeighborID'))] [/Records] [/If] [/Inline] [If: ($forumSearch->Size)>0] [If: ($t_search)=='Phrase'] [$forumWords->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$forumWords->(insert: 'Joke_Private'='Public')] [$forumWords->(insert: 'Joke_Searchable'='="' + ($forumSearch) + '"')] [$forumWords->(insert: '-or')] [$forumWords->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$forumWords->(insert: 'Joke_UserID'=($sess_acct))] [$forumWords->(insert: 'Joke_Searchable'='="' + ($forumSearch) + '"')] [If: ($uNabes->Size)>0] [Loop: ($uNabes->Size)] [$forumWords->(insert: '-or')] [$forumWords->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$forumWords->(insert: 'Joke_UserID'=($uNabes->(Get:(Loop_Count))))] [$forumWords->(insert: 'Joke_Searchable'='="' + ($forumSearch) + '"')] [/Loop] [/If] [Else] [Loop: ($forumKeywords->Size)] [Variable:'searchfor'=($forumKeywords->(Get:(Loop_Count)))] [$forumWords->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$forumWords->(insert: 'Joke_Private'='Public')] [$forumWords->(insert: 'Joke_Searchable'=($searchfor))] [$forumWords->(insert: '-or')] [$forumWords->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$forumWords->(insert: 'Joke_UserID'=($sess_acct))] [$forumWords->(insert: 'Joke_Searchable'='="' + ($forumSearch) + '"') [$forumWords->(insert: '-or')] [If: ($uNabes->Size)>0] [Loop: ($uNabes->Size)] [$forumWords->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$forumWords->(insert: 'Joke_UserID'=($uNabes->(Get:(Loop_Count))))] [$forumWords->(insert: 'Joke_Searchable'=($searchfor))] [$forumWords->(insert: '-or')] [/Loop] [/If] [/Loop] [/If] [/If] [Inline: -Search, -Database='MMS', -Table='Flags', -Keyfield='_Flags_ID', 'Flags_UserID'=($sess_acct), 'Flags_ContentType'='Joke', 'Flags_Type'='White'] [If: (Found_Count)>0] [Records] [$uFlags->(insert:(Field:'Flags_ContentID'))] [/Records] [/If] [If: ($accttags)==($sess_acct)] [If: ($uFlags->Size)>0] [Loop: ($uFlags->Size)] [Variable:'medID'=($uFlags->(Get:(Loop_Count)))] [$idfind->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$idfind->(insert: 'Joke_Private'='Public')] [$idfind->(insert:'_Joke_ID'=($medID))] [$idfind->(insert: '-or')] [$idfind->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$idfind->(insert: 'Joke_UserID'=($sess_acct))] [$idfind->(insert:'_Joke_ID'=($medID))] [$idfind->(insert: '-or')] [If: ($uNabes->Size)>0] [Loop: ($uNabes->Size)] [$idfind->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$idfind->(insert: 'Joke_UserID'=($uNabes->(Get:(Loop_Count))))] [$idfind->(insert:'_Joke_ID'=($medID))] [$idfind->(insert: '-or')] [/Loop] [/If] [/Loop] [else] [$idfind->(insert:'_Joke_ID'=0)] [/If] [/If] [/Inline] [/If] [$catfind->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$catfind->(insert: 'Joke_Private'='Public')] [$catfind->(insert: 'Joke_CategoryID' = ($cat))] [$catfind->(insert: '-or')] [$catfind->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$catfind->(insert: 'Joke_UserID'=($sess_acct))] [$catfind->(insert: 'Joke_CategoryID' = ($cat))] [If: ($uNabes->Size)>0] [Loop: ($uNabes->Size)] [$catfind->(insert: '-or')] [$catfind->(insert: 'Joke_flagsBlack_pull'=(Integer:0))] [$catfind->(insert: 'Joke_UserID'=($uNabes->(Get:(Loop_Count))))] [$catfind->(insert: 'Joke_CategoryID' = ($cat))] [/Loop] [/If] [$findme->(Merge:$catfind)] [$findme->(Merge:$forumWords)]
[If: (Cache_Exists: -Name='JokeAds', -Expires='86400')]
[Else]
[Inline: -Search, -Database='MMS', -Table='Ads', -Keyfield='_Ads_ID', 'Ads_Page'='Joke_Home', 'Ads_Orientation'='Banner', 'Ads_Position'='Header', 'Ads_Active'='Yes']
[Variable:'ads'=(Array)]
[If: (Found_Count)>0]
[Records]
[$ads->Insert:(Field:'Ads_HTML')]
[/Records]
[Else]
[$ads->Insert:'GoogleAds/Header_468x60.html']
[/If]
[/Inline]
[Cache_Store: -Name='JokeAds', -Content=($ads)]
[/If]
[Variable:'bAads'=(Array)]
[Variable:'bAds'=(Cache_Fetch: -Name='JokeAds')]
[Variable:'cnt'=($bAds->Size)+1, 'rdm'=(Math_Random: -Min=1, -Max=($cnt))]
[Include: ($bAds->Get:$rdm)]
|
|||||||||||||||||||||||||||||
[Include: ($sess_side)]
|
|||||||||||||||||||||||||||||
|
|
[Include: 'MMS_Search_Joke.htm']
|
||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||
[If: (Cache_Exists: -Name='JokeAds', -Expires='86400')]
[Else]
[Inline: -Search, -Database='MMS', -Table='Ads', -Keyfield='_Ads_ID', 'Ads_Page'='Joke_Home', 'Ads_Orientation'='Banner', 'Ads_Position'='Header', 'Ads_Active'='Yes']
[Variable:'ads'=(Array)]
[If: (Found_Count)>0]
[Records]
[$ads->Insert:(Field:'Ads_HTML')]
[/Records]
[Else]
[$ads->Insert:'GoogleAds/Header_468x60.html']
[/If]
[/Inline]
[Cache_Store: -Name='JokeAds', -Content=($ads)]
[/If]
[Variable:'bAads'=(Array)]
[Variable:'bAds'=(Cache_Fetch: -Name='JokeAds')]
[Variable:'cnt'=($bAds->Size)+1, 'rdm'=(Math_Random: -Min=1, -Max=($cnt))]
[Include: ($bAds->Get:$rdm)]
|
|||||||||||||||||||||||||||||