<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Correspondence and Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% set rs = Server.CreateObject("ADODB.Recordset") %>
 All Forums
<% If Request.QueryString("mode") = "DoIt" then %>  Search Form
 Search Results <% else %>  Search Form <% end if %>
<% If Request.QueryString("mode") = "DoIt" then if Request.Form("Search") <> "" then keywords = split(Request.Form("Search"), " ") keycnt = ubound(keywords) '## Forum_SQL - Find all records with the search criteria in them strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_LAST_POST, " & strTablePrefix & "TOPICS.T_REPLIES, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME " strSql = strSql & " FROM ((" & strTablePrefix & "FORUM LEFT JOIN " & strTablePrefix & "TOPICS " strSql = strSql & " ON " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY " strSql = strSql & " ON " & strTablePrefix & "TOPICS.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID) LEFT JOIN " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " ON " & strTablePrefix & "TOPICS.T_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID " strSql = strSql & " WHERE (" For Each word in keywords strSql = strSql & " (" & strTablePrefix & "REPLY.R_MESSAGE LIKE '%" & word & "%'" strSql = strSql & " OR " & strTablePrefix & "FORUM.F_DESCRIPTION LIKE '%" & word & "%'" strSql = strSql & " OR " & strTablePrefix & "TOPICS.T_SUBJECT LIKE '%" & word & "%'" strSql = strSql & " OR " & strTablePrefix & "TOPICS.T_MESSAGE LIKE '%" & word & "%') " if cnt < keycnt then strSql = strSql & Request.Form("andor") cnt = cnt + 1 next strSql = strSql & " ) " cnt = 0 if Request.Form("Forum") <> 0 then strSql = strSql & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("Forum") & " " end if if Request.Form("SearchDate") <> 0 then dt = cint(Request.Form("SearchDate")) strSql = strSql & " AND (T_DATE > '" & DateToStr(dateadd("d", -dt, strForumTimeAdjust)) & "')" end if if Request.Form("SearchMember") <> 0 then strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & Request.Form("SearchMember") & " " end if strSql = strSql & " AND " & strTablePrefix & "FORUM.F_TYPE = " & 0 strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.FORUM_ID DESC, " strSql = strSql & " " & strTablePrefix & "TOPICS.T_LAST_POST DESC" mypage = request("whichpage") If mypage = "" then mypage = 1 end if rs.Open strSql, my_Conn, 3,1 %>
<% if rs.EOF or rs.BOF then '## No new topic posts found in DB %> <% else rs.MoveFirst currForum = 0 currTopic = 0 do until rs.EOF if ChkForumAccess(rs("FORUM_ID")) then if (currForum <> rs("FORUM_ID")) and (currTopic <> rs("TOPIC_ID")) then %> <% currForum = rs("FORUM_ID") end if %> <% if currTopic <> rs("TOPIC_ID") then %> <% if rs("T_STATUS") <> 0 then %> <% else %> <% end if %> <% currTopic = rs("TOPIC_ID") end if end if rs.MoveNext loop end if %>
  Topic Author Replies Last Post
No Matches Found
 <% =ChkString(rs("F_SUBJECT"),"display") %>
&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><% =ChkIsNew(rs("T_LAST_POST")) %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>">Topic Locked&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><% =ChkString(left(rs("T_SUBJECT"), 50),"display") %>  <% =ChkString(rs("M_NAME"),"display") %> <% =rs("T_REPLIES") %> <% =ChkDate(rs("T_LAST_POST")) %> <% =ChkTime(rs("T_LAST_POST")) %>
<% Else %>

You must enter keywords

Back To Search Page

<% end if Else %>
Search For:
Search for all Words
Match any of the words
Search Forum:
Search By Date:
Search By Member:
<% end if %> <% on error resume next %> <% set rs = nothing %>