<%
if ForumGroups.DataExists and MessagesFound then
if word_search <> "" or search_user <> "" then
%>
<%
Response.Write("Search Results for")
if word_search <> "" then
if SearchWhat = "Title" then
Response.Write(" titles containing ")
else
Response.Write(" messages containing ")
end if
if SearchType = "Phrase" then 'All Phrase
if InStr(word_search," ") then
Response.Write(" the phrase """)
Response.Write(word_search)
Response.Write("""")
else
Response.Write(" the word " & word_search & "")
end if
else
Response.Write(" the word")
if InStr(word_search," ") then
Response.Write("s (")
Response.Write(Replace(word_search," ",", "))
Response.Write(")")
else
Response.Write(" ")
Response.Write(word_search & "")
end if
end if
else
Response.Write(" messages")
end if
if search_user <> "" then
Response.Write(" written by " & search_user & "")
end if
%>
<%=id%>">Cancel Search
|
<%end if%>
| Time Zone: <%if log_time_zone <> "" then%><%=time_zone_array(1)%><%else%>EST (New York, Toronto)<%end if%> |
Subject
#
Most Recent Post
Started
<%
'*********************************************************************
'*********************************************************************
'*********************************************************************
' Loop through the array holding the result set and display the data
For faPos= 0 to UpperBound
category = ForumGroups.GetItem("category", faPos)
ShowReasoning = true
if log_access = "adm" then
if request.QueryString("UserStart") <> "" then
if ForumGroups.GetItem("start_msngr", faPos) <> request.QueryString("UserStart") then
ShowReasoning = false
end if
end if
end if
if ShowReasoning and (NOT next_active or (next_active and category <> "Header" and category <> "Header1")) then
if(faPos >= start_row and faPos <= end_row) then
message_group = ForumGroups.GetItem("message_group", faPos)
message_title = ForumGroups.GetItem("message_title", faPos)
max_messenger = ForumGroups.GetItem("recent_msngr", faPos)
max_message_time = ForumGroups.GetItem("recent_time", faPos)
max_message_id = ForumGroups.GetItem("recent_msg_id", faPos)
min_messenger = ForumGroups.GetItem("start_msngr", faPos)
min_message_time = ForumGroups.GetItem("start_time", faPos)
message_count = ForumGroups.GetItem("total_messages", faPos)
message_status = ForumGroups.GetItem("status", faPos)
set_time = convert_time(max_message_time)
min_time = convert_time(min_message_time)
PosCount = PosCount + 1
if category = "Reasoning" then
CellColour = ""
if InStr(message_status, "cloaked") and (log_access = "adm" or log_access = "I_mem") then
CellColour = " forumListC"
elseif InStr(message_status, "deleted") and (log_access = "adm" or log_access = "I_mem") then
CellColour = " forumListD"
end if
elseif category = "Header" then
CellColour = " forumListHeader"
elseif category = "Header1" then
CellColour = " forumListHeader1"
end if
%>
&word_search=<%=server.URLEncode(word_search)%><%end if%><%if SearchType <> "" then%>&SearchType=<%=SearchType%><%end if%><%if SearchWhat <> "" then%>&SearchWhat=<%=SearchWhat%><%end if%><%if search_user <> "" then%>&search_user=<%=search_user%><%end if%><%if message_group = 2776 then%>&start_row=1<%end if%>';">
7 AND (category = "Header" OR category = "Header1") then%> forumInfoGroupHidden<%end if%>">
<%=message_count%>
7 AND (category = "Header" OR category = "Header1") then%>forumPostNameHidden<%else%>forumPostNameVisible<%end if%>"><%=Replace(max_messenger, "~^", "'")%>
<%if DateDiff("d", set_time, current_time) = 0 then%>Today
<%else%><%=FormatDateTime(set_time, 2)%>
<%end if%><%=FormatDateTime(set_time, 3)%>
7 AND (category = "Header" OR category = "Header1") then%>forumPostNameHidden<%else%>forumPostNameVisible<%end if%>"><%=Replace(min_messenger, "~^", "'")%>
<%if DateDiff("d", min_time, current_time) = 0 then%>Today
<%else%><%=FormatDateTime(min_time, 2)%>
<%end if%><%=FormatDateTime(min_time, 3)%>
<%
end if
end if
Next
%>
<%
end if
for j = 0 to Ubound(searchArray)
Response.Write("
Search: (" & searchArray(j) & ")")
next
%>
