<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include virtual="jah-check-id.asp"-->

<!--#include virtual="convert-time.asp"-->


<%
'LOOK INTO START_ROW AND END_ROW, MIGHT NEED ADJUSTMENT FOR NEXT_DTTM

'set objFSO = createobject("Scripting.FileSystemObject")
'
'FileArkPath=Server.MapPath("/logArk-queries.txt") ' located in the same directory
'
'if objFSO.FileExists(FileArkPath) then
'
'	set objFile = objFSO.GetFile(FileArkPath)
'
'	if objFile.Size > 10000000 then
'
'		sSourceFile = FileArkPath
'
'		LogSaveDtTm = Now
'
'		sDestinationFile = Server.MapPath("/logArk-queries-" &  Year(LogSaveDtTm) & Month(LogSaveDtTm) & Day(LogSaveDtTm) & "-" & Hour(LogSaveDtTm) & ".txt")
'
'		objFSO.MoveFile sSourceFile, sDestinationFile
'
'		Set objFile = objFSO.CreateTextFile(FileArkPath)
'
'		objFile.Close
'
'	end if
'
'end if
'
'Set objFSO = Nothing


title="Forum"

dim count_page

dim ForumGroups, MaxMessageDtTm, FClk, FClkG, UpperBound, MessagesFound

Set ForumGroups = New Ark_Data
Set MaxMessageDtTm = New Ark_Data
Set FClk = New Ark_Data
Set FClkG = New Ark_Data

MessagesFound = false

dim forum_fields, conn_fclk, rs_fclk

dim message_group, message_title, messenger, message_time, min_messenger, min_message_time, max_messenger, max_message_time, message_count, category, message_status

dim GetMessagesCommand

dim SearchUserCondition

dim CellColour

dim group_count, clk_count

dim end_new_topics

dim ShowReasoning, UserStart
UserStart = ""


dim start_dttm, exstart_dttm, ReqMsgOlderDtTm, ReqMsgNewerDtTm, TopMessageDtTm, BtmMessageDtTm

TopMessageDtTm = ""
BtmMessageDtTm = ""


dim row, display_rows, start_range_row, total_range_rows, start_row, end_row

dim next_nav_row

dim dsply_minus_one

dim NavBegin, NavEnd


dim set_time, min_time

dim rand_mnt_min, rand_mnt_dec, rand_mnt_rnd, rand_mnt

dim CrrntDtTm

CrrntDtTm = Now

Randomize

rand_mnt_min = 12

rand_mnt_dec = Rnd()*8

rand_mnt_rnd = Round(rand_mnt_dec)

rand_mnt = rand_mnt_min + rand_mnt_rnd


dim delete_clk_cond

NavBegin = "2003/12/12 1:19:47"
'NavBegin = "2007/12/18 9:22:17"

Set MaxMessageDtTm = Ark_DBAccess.DBSelect("jah_forum","MAX(message_time) AS MaxTime","category = 'Reasoning' OR category = 'Header' OR category = 'Header1'","")

if MaxMessageDtTm.DataExists then
	NavEnd = DateAdd("n",1,MaxMessageDtTm.GetFirstItem("MaxTime"))
else
	NavEnd = Now
end if

'NavEnd = "2008/9/21 22:51:16"


delete_clk_cond = "record_id = ANY (SELECT record_id FROM jahlog WHERE delete_messages = 'true') AND message_time < " & Ark_DBAccess.SQLDate(DateAdd("n",rand_mnt,CrrntDtTm)) & " AND status = 'cloaked'"

call Ark_DBAccess.DBUpdate("jah_forum","status='deleted'",delete_clk_cond)

prev_dttm= ""
next_dttm=""
prev_active = true
next_active = true

if request.QueryString("prev_dttm") <> "" then
	prev_dttm = convertback_time(request.QueryString("prev_dttm"))
	ReqMsgOlderDtTm = prev_dttm

elseif request.QueryString("next_dttm") <> "" then
	next_dttm = convertback_time(request.QueryString("next_dttm"))
	ReqMsgNewerDtTm = next_dttm

elseif request.Form("ex1") <> "" then
		exstart_dttm  = convertback_time(request.Form("ex1"))
		ReqMsgOlderDtTm = DateAdd("d", 1, exstart_dttm)
		ReqMsgOlderDtTm = Year(ReqMsgOlderDtTm) & "/" & Month(ReqMsgOlderDtTm) & "/" & Day(ReqMsgOlderDtTm)
elseif request.Form("ex2") <> "" then
		exstart_dttm = convertback_time(request.Form("ex2"))
		ReqMsgOlderDtTm = DateAdd("d", 1, exstart_dttm)
		ReqMsgOlderDtTm = Year(ReqMsgOlderDtTm) & "/" & Month(ReqMsgOlderDtTm) & "/" & Day(ReqMsgOlderDtTm)
elseif request.QueryString("start_dttm") <> "" then
		start_dttm = convertback_time(request.QueryString("start_dttm"))
		ReqMsgOlderDtTm = DateAdd("d", 1, start_dttm)
		ReqMsgOlderDtTm = Year(ReqMsgOlderDtTm) & "/" & Month(ReqMsgOlderDtTm) & "/" & Day(ReqMsgOlderDtTm)
else
		ReqMsgOlderDtTm = NavEnd
		next_active = false
end if

if request.form("word_search") <> "" then
	word_search = trim(request.form("word_search"))
end if

if request.QueryString("word_search") <> "" then
	word_search = Trim(request.QueryString("word_search"))
end if

if request.QueryString("search_user") <> "" then
	search_user = request.QueryString("search_user")
end if

if request.form("search_user") <> "" then
	search_user = Trim(request.form("search_user"))
end if

if search_user <> "" then				
	if InStr(search_user, "%") > 0 then
		SearchUserCondition =  "messenger LIKE '"&search_user & "'"
	else
		SearchUserCondition =  "messenger = '"&search_user & "'"
	end if
end if


if request.Form("SearchWhat") <> "" then
	SearchWhat = request.Form("SearchWhat")
end if


if request.Form("SearchType") <> "" then
	SearchType = request.Form("SearchType")
end if

if request.QueryString("SearchWhat") <> "" then
	SearchWhat = request.QueryString("SearchWhat")
end if

if request.QueryString("SearchType") <> "" then
	SearchType = request.QueryString("SearchType")
end if


search_change = Replace(word_search, "'", "~^")
search_change = Replace(search_change, "'", "~^^")

word_array =  split(search_change, " ")
word_bound = Ubound(word_array)
word_len = word_bound + 1


row = -1

start_row = 0

start_range_row = 0

display_rows=70

end_row = display_rows

total_range_rows = display_rows + 7

next_nav_row = 13*display_rows


dsply_minus_one = display_rows - 1

GetMessagesCommand = ""
clk_condition = ""

call GetForumMessages()

if MaxMessageDtTm.DataExists then
	NavEnd = MaxMessageDtTm.GetFirstItem("MaxTime")
end if

if NOT ForumGroups.DataExists then
	'if data doesn't exist, try again with current date/time

	ReqMsgOlderDtTm = NavEnd
	next_dttm = ""
	prev_dttm = ""

	call GetForumMessages()
end if

call SetTopBtmMessageDtTm ()

if TopMessageDtTm = "" or BtmMessageDtTm = "" then

	ReqMsgOlderDtTm = NavEnd
	next_dttm = ""
	prev_dttm = ""

	call GetForumMessages()
end if

call SetTopBtmMessageDtTm ()

if ForumGroups.DataExists then

	if DateDiff("s",BtmMessageDtTm,NavBegin) >= 0 then
		prev_active = false
	end if

	if DateDiff("s",TopMessageDtTm,NavEnd) <= 0 then
		next_active = false
		start_row = 0
	end if

	if(IsDate(TopMessageDtTm)) then
		TopMessageDtTm = convert_time(TopMessageDtTm)
	end if

	if(IsDate(BtmMessageDtTm)) then
		BtmMessageDtTm = convert_time(BtmMessageDtTm)
	end if

end if
count_page="JAH-RasTafarI Forum|message-ctgry.cfm"%>

<!--#include virtual="jah-counter.asp"-->


<html>


<head>


<title>JAH - <%=title%></title>


<!-- STYLES -->


<!--#include virtual="jah-styles.asp"-->


<!-- ******* -->


<link rel="STYLESHEET" type="text/css" href="../css/calendar.css">
<script language="JavaScript" src="../javascript/simplecalendar.js" type="text/javascript"></script>


<!-- Javascript -->


<!--#include virtual="jah-javascript.asp"-->

<script  type="text/javascript"   src='../javascript/CyloCaptcha.js'></script>


<script>
<!--
	function GenNewCap()
	{
		NC=CyloCaptcha.genRan(6);//get a new random number

		if(document.getElementById("holdCAP") != null)
		{
			document.getElementById("holdCAP").value=NC;
		}
		if(document.getElementById("testPad") != null)
		{
			document.getElementById("testPad").innerHTML=CyloCaptcha.display(NC);
		}
	}

	function submitform()
	{
		document.forumsearch.submit();
	}

	-->
</script>


<!-- ******* -->

</head>

<body <%=body_header%>>

<!-- JAH BANNER -->


<!--#include virtual="jah-banner.asp"-->


<!-- ********** -->

<!--
<form name="frm">
<input type="text" name="ex1" size="11">
<a href="javascript: void(0);" onmouseover="if (timeoutId) clearTimeout(timeoutId);window.status='Show Calendar';return true;" onmouseout="if (timeoutDelay) calendarTimeout();window.status='';" onclick="g_Calendar.show(event,'frm.ex1',true, 'mm/dd/yyyy', new Date(2003,2,15),new Date(2008,12,11)); return false;"><img src="../images/calendar.gif" name="imgCalendar" width="34" height="21" border="0" alt=""></a>

</form>
-->


<div align="center">
<br>

<!-- body of document -->

<table border="0" width="100%" cellpadding="5">
<tr>
<td align="right" valign="middle"><a href="https://jahchildren.org/all-items/" target="_blank"><img src="/images/jah-children-shop-logo.png" border="0" width="150" height="150"></a></td><td align="left" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="3"><b><a href="https://jahchildren.org/all-items/" target="_blank">Jah Children Shop</a></b></font></td>
</tr>
</table>

<table border="0" width="80%" cellspacing="0" cellpadding="5">

	<tr>

		<td width="50%"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><a href="message-write.asp<%=JAH%><%=id%>"><b>Post a new Topic</b></a></font></td>


		<%if log_access = "adm" then%><td width="50%"><table border="1" bordercolor="#FF0000"><tr><td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="ctgry-delete.cfm<%=JAH%><%=id%>">Delete Category</a></font></td></tr></table></td>


		<%elseif NOT id_exists then%><td width="50%" align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><a href="http://www.JAH-RasTafarI.com/login.asp?login=true&page=<%=server.URLEncode(page)%>">Sign-in if you already have a Sign-in Name and Password</a><br>OR<br><a href="../jah-new-member.asp">Sign up for Online Reasoning</a></b></font></td>

		<%end if%>


	</tr>


</table>


<table border="0">


<tr><td>


<div id="SearchContainer">
<table border="0">
<tr><td colspan="4"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="blue">If "From User" is blank, it will search all users<br>If "Search Words" is blank, it will search all posts from that user</font></td></tr>
<form name="forumsearch" id="forumsearch" action="message-ctgry.asp" method="post">
<tr><td><table style="border:1px solid black;"><tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><input type="radio" name="SearchType" value="All"<%if request.Form("SearchType") = "All" then%> checked<%end if%>> All</font></td><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><input type="radio" name="SearchType" value="Phrase"<%if request.Form("SearchType") = "Phrase" then%> checked<%elseif request.Form("SearchType") = "" then%> checked<%end if%>> As Phrase</font></td></tr>
<tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><input type="radio" name="SearchWhat" value="Title"<%if request.Form("SearchWhat") = "Title" then%> checked<%end if%>> Title</font></td><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><input type="radio" name="SearchWhat" value="Messages"<%if request.Form("SearchWhat") = "Messages" then%> checked<%elseif request.Form("SearchWhat") = "" then%> checked<%end if%>> Messages</font></td></tr></table></td><td width="170">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="green">Search Words</font><br>
<input type="Text" name="word_search" value="<%=word_search%>"></td><td width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="green">From User (optional)</font><br><input type="Text" name="search_user" value="<%=search_user%>"><input type="Hidden" name="id" value="<%=id%>">
</td>
<td>
<%if not id_exists then%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:GenNewCap();">generate new code</a></font><br><div id='testPad'></div>
<%else%>
<button id="submit" name="submit" type="submit">Search</button>
<%end if%>


</td>

</tr>
<tr>
<td colspan=3></td>
<td>
<%if not id_exists then%>
<input name='testtext' id='testtext' value="Write Code Above" onFocus="this.value='';" /><button type="button" onClick='if(document.getElementById("testtext").value==""){alert("Please enter the security code!");return;}if(document.getElementById("holdCAP").value.toLowerCase()==document.getElementById("testtext").value.toLowerCase()){submitform();}else{alert("Sorry that was not the correct code");return;}'>Search</button><input type='hidden' name='holdCAP' id='holdCAP'/><br><font face="Verdana, Arial, Helvetica, sans-serif" size="2">not case sensitive</font>
<%end if%>
</td>
</tr>
</form>
</table>
</div>

</td></tr>

</form>

</table>

<%

if ForumGroups.DataExists and MessagesFound then

	call nav_pages("ex1")


	if word_search <> "" or search_user <> "" then
	%>
		<br><table border="0"><tr><td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CC6600"><b>
		<%
		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 <font size=+1 color=""#A80000"">""")
					Response.Write(word_search)
					Response.Write("""</font>")
				else
					Response.Write(" the word <font size=+1 color=""#A80000"">" & word_search & "</font>")
				end if
			else
				Response.Write(" the word")

				if InStr(word_search," ") then
					Response.Write("s <font size=+1 color=""#A80000"">(")
					Response.Write(Replace(word_search," ",", "))
					Response.Write(")</font>")
				else
					Response.Write(" <font size=+1 color=""#A80000"">")
					Response.Write(word_search & "</font>")
				end if
			end if
		else
			Response.Write(" messages")
		end if


		if search_user <> "" then
			Response.Write(" written by <font size=+1 color=""#A80000"">" & search_user & "</font>")
		end if


		%>

		<br><a href="message-ctgry.asp"<%=JAH%><%=id%>">Cancel Search</a>

		</b></font></td></tr></table>
	<%end if%>

	<table width="80%" border="0" cellpadding="3">


		<tr><td width="620" align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Time Zone:</b> <%if log_time_zone <> "" then%><%=time_zone_array(1)%><%else%><b>EST</b> (New York, Toronto)<%end if%></font></td><td width="80">&nbsp;</td></tr></table>


	<table width="80%" border="1" cellpadding="3">


	<tr><td width="58%" bgcolor="#FFFFC6"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Subject</font></b></td>


	<td width="2%" bgcolor="#FFFFC6"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Messages</font></b></td>


	<td width="29%" bgcolor="#FFFFC6"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Most Recent Post</font></b></td>


	<td width="11%"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Started</font></b></td>


	</tr>

	<%

	'*********************************************************************

	'*********************************************************************

	'*********************************************************************

	' 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)

				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 = "FFFFC6"

					if InStr(message_status, "cloaked") and (log_access = "adm" or log_access = "I_mem") then
						CellColour = "#FFDD66"
					elseif InStr(message_status, "deleted") and (log_access = "adm" or log_access = "I_mem") then
						CellColour = "#DA3D4D"
					end if

				elseif category = "Header" then

					CellColour = "#ffffaa"
				elseif category = "Header1" then

					CellColour = "#E0F2AC"
				end if


			%>

			<tr><td bgcolor="<%=CellColour%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="message-view.asp<%=JAH%><%=id%><%=url_next%>message_group=<%=message_group%><%if word_search <> "" then%>&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%>">

			<%

			if message_title <> "" then

				message_title = Replace(message_title, "~^^", """")

				message_title = Replace(message_title, "~^", "'")

				%><%=message_title%><%else%>No Subject<%end if%></a></font></td>


			<td align="center" bgcolor="<%=CellColour%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=message_count%></font></td>


			<td bgcolor="<%=CellColour%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%

			max_messenger = Replace(max_messenger, "~^", "'")%><%=max_messenger%><br>


			<%if Day(set_time) = Day(current_time) AND Month(set_time) = Month(current_time) AND Year(set_time) = Year(current_time) then%><b>Today</b><%else%><%=FormatDateTime(set_time, 2)%><%end if

			response.Write(" ")%> <%=FormatDateTime(set_time, 3)%></font></td>


			<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%min_messenger = Replace(min_messenger, "~^", "'")%><%=min_messenger%><br>


			<%if Day(min_time) = Day(current_time) AND Month(min_time) = Month(current_time) AND Year(min_time) = Year(current_time) then%><b>Today</b><%else%><%=FormatDateTime(min_time, 2)%><%end if%><br><%=FormatDateTime(min_time, 3)%></font></td>


			</tr>


			<%

			end if
		end if
	Next

	%>


	</table>


	<br>


	<%

		call nav_pages("ex2")

end if

%>

<br>


<!-- end of body -->


</div>


<!-- JAH CLOSE -->


<!--#include virtual="jah-close.asp"-->


<!-- ********** -->
	<script>
<!--
GenNewCap();
	-->
</script>


</body>


</html>

<%

'**************************************************************************************

'**************************           FUNCTIONS           *****************************

'**************************************************************************************

sub GetForumMessages()

	RefineMsgCondition = ""
	GetMessagesCommand = ""
	SearchMsgCondition = ""
	StatusCondition = ""


	if cloaked = true then

				StatusCondition = " AND status <> 'deleted' AND (status <> 'cloaked' OR (status = 'cloaked' AND record_id = ANY(select record_id FROM cloak WHERE cloak_id = " & cloakID & ")))"


				RefineMsgCondition = RefineMsgCondition & "status <> 'deleted'"
									RefineMsgCondition = RefineMsgCondition & " AND (status <> 'cloaked'"
											RefineMsgCondition = RefineMsgCondition & " OR (status = 'cloaked'"
													RefineMsgCondition = RefineMsgCondition & " AND record_id = ANY(select record_id FROM cloak WHERE cloak_id = " & cloakID & ")"
												RefineMsgCondition = RefineMsgCondition & " )"
										RefineMsgCondition = RefineMsgCondition & " )"
									RefineMsgCondition = RefineMsgCondition & " AND (category = 'Reasoning' OR category = 'Header' OR category = 'Header1')"

	elseif log_access = "adm" or log_access = "I_mem" then


				RefineMsgCondition = RefineMsgCondition & "(category = 'Reasoning' OR category = 'Header' OR category = 'Header1')"


	else
				StatusCondition = " AND status <> 'deleted' AND status <> 'cloaked'"

				RefineMsgCondition = RefineMsgCondition & "status <> 'deleted'"
									RefineMsgCondition = RefineMsgCondition & " AND status <> 'cloaked'"
									RefineMsgCondition = RefineMsgCondition & " AND (category = 'Reasoning' OR category = 'Header' OR category = 'Header1')"


	end if


	if word_search <> "" then

		SearchMsgCondition = SearchMsgCondition & "(SELECT message_group FROM jah_forum WHERE "

		if SearchWhat = "Title" then
			if SearchType = "Phrase" then
				'*****************  word search phrase ********************
				SearchMsgCondition = SearchMsgCondition & "message_title LIKE '%"&search_change&"%'"

				if search_user <> "" then
					SearchMsgCondition = SearchMsgCondition & " AND " & SearchUserCondition
				end if

			elseif SearchType = "All" then

				for i = 0 to word_bound
					if i <> 0 then
						SearchMsgCondition = SearchMsgCondition & " AND "
					end if

					SearchMsgCondition = SearchMsgCondition & "message_title LIKE '%"&word_array(i)&"%'"
				next

				if search_user <> "" then
					SearchMsgCondition = SearchMsgCondition & " AND " & SearchUserCondition
				end if

			end if

			SearchMsgCondition = SearchMsgCondition & " AND " & RefineMsgCondition

		elseif SearchWhat = "Messages" then
			if SearchType = "Phrase" then
				SearchMsgCondition = SearchMsgCondition & "message LIKE '%"&search_change&"%'"

				if search_user <> "" then
					SearchMsgCondition = SearchMsgCondition & " AND " & SearchUserCondition
				end if


			elseif SearchType = "All" then
				'*****************  word search split ********************

					if search_user <> "" then
						SearchMsgCondition = SearchMsgCondition & SearchUserCondition & " AND "
					end if

					SearchMsgCondition = SearchMsgCondition & "("

					for i = 0 to word_bound
						if i <> 0 then
							SearchMsgCondition = SearchMsgCondition & " AND "
						end if

						SearchMsgCondition = SearchMsgCondition & "message LIKE '%"&word_array(i)&"%'"
					next

					SearchMsgCondition = SearchMsgCondition & ")"

			end if

			SearchMsgCondition = SearchMsgCondition & " AND " & RefineMsgCondition
			'*************************************************************************
		end if

		SearchMsgCondition = SearchMsgCondition & " GROUP BY message_group) srch"
	elseif search_user <> "" then
		SearchMsgCondition = SearchMsgCondition & "(SELECT message_group FROM jah_forum WHERE "
		SearchMsgCondition = SearchMsgCondition & SearchUserCondition & " AND " & RefineMsgCondition
		SearchMsgCondition = SearchMsgCondition & " GROUP BY message_group) srch"
	end if


	GetMessagesCommand = GetMessagesCommand & "SELECT forum.messenger AS recent_msngr, forum2.messenger AS start_msngr, main.max_time AS recent_time, main.min_time AS start_time, forum2.message_group AS message_group, forum2.category AS category, forum2.status AS status, forum2.message_title AS message_title, main.total_messages AS total_messages"
	GetMessagesCommand = GetMessagesCommand & " FROM jah_forum forum, jah_forum forum2,"
			GetMessagesCommand = GetMessagesCommand & " (SELECT mt.max_time AS max_time, MIN(jf.message_time) AS min_time, mt.max_id AS max_msg_id, MIN(message_id) AS min_msg_id, COUNT(jf.message_id) AS total_messages"
						GetMessagesCommand = GetMessagesCommand & " FROM jah_forum jf,"

if SearchMsgCondition <> "" then
						GetMessagesCommand = GetMessagesCommand & " (select MAX(mxt.message_time) AS max_time, MAX(mxt.message_id) AS max_id, mxt.message_group, mxt.category "
							GetMessagesCommand = GetMessagesCommand & " FROM jah_forum mxt, " & SearchMsgCondition
else
						GetMessagesCommand = GetMessagesCommand & " (select MAX(message_time) AS max_time, MAX(message_id) AS max_id, message_group, category "
							GetMessagesCommand = GetMessagesCommand & " FROM jah_forum"
end if

	if next_dttm = "" then

					if SearchMsgCondition <> "" then
							GetMessagesCommand = GetMessagesCommand & " WHERE " & RefineMsgCondition & " AND mxt.message_group = srch.message_group"

							GetMessagesCommand = GetMessagesCommand & " GROUP BY mxt.message_group) mt"

					else
							GetMessagesCommand = GetMessagesCommand & " WHERE " & RefineMsgCondition

							GetMessagesCommand = GetMessagesCommand & " GROUP BY message_group) mt"
					end if

							GetMessagesCommand = GetMessagesCommand & " WHERE (mt.max_time < " & Ark_DBAccess.SQLDate(ReqMsgOlderDtTm) & " OR mt.category = 'Header' OR mt.category = 'Header1')"
			      	GetMessagesCommand = GetMessagesCommand & " AND mt.message_group = jf.message_group" & StatusCondition

							GetMessagesCommand = GetMessagesCommand & " GROUP BY jf.message_group"
			      	GetMessagesCommand = GetMessagesCommand & " ORDER BY mt.category, mt.max_time desc"
							GetMessagesCommand = GetMessagesCommand & " LIMIT 0, 77) main"

			     GetMessagesCommand = GetMessagesCommand & " where forum.message_id = main.max_msg_id"
			     GetMessagesCommand = GetMessagesCommand & " and forum2.message_id = main.min_msg_id"

			     GetMessagesCommand = GetMessagesCommand & " ORDER BY forum2.category, main.max_time desc;"


	else
					if SearchMsgCondition <> "" then
							GetMessagesCommand = GetMessagesCommand & " WHERE " & RefineMsgCondition & " AND mxt.message_group = srch.message_group"

							GetMessagesCommand = GetMessagesCommand & " GROUP BY mxt.message_group) mt"

					else
							GetMessagesCommand = GetMessagesCommand & " WHERE " & RefineMsgCondition

							GetMessagesCommand = GetMessagesCommand & " GROUP BY message_group) mt"
					end if


							GetMessagesCommand = GetMessagesCommand & " WHERE (mt.max_time > " & Ark_DBAccess.SQLDate(ReqMsgNewerDtTm) & " OR mt.category = 'Header' OR mt.category = 'Header1')"
			      	GetMessagesCommand = GetMessagesCommand & " AND mt.message_group = jf.message_group" & StatusCondition

							GetMessagesCommand = GetMessagesCommand & " GROUP BY jf.message_group"
			      	GetMessagesCommand = GetMessagesCommand & " ORDER BY mt.category, mt.max_time"
							GetMessagesCommand = GetMessagesCommand & " LIMIT 0, 77) main"

			     GetMessagesCommand = GetMessagesCommand & " where forum.message_id = main.max_msg_id"
			     GetMessagesCommand = GetMessagesCommand & " and forum2.message_id = main.min_msg_id"

			     GetMessagesCommand = GetMessagesCommand & " ORDER BY forum2.category, main.max_time desc;"

	END IF


	Set ForumGroups = Ark_DBAccess.DBCommand(GetMessagesCommand)

	Set MaxMessageDtTm = Ark_DBAccess.DBSelect("jah_forum","MAX(message_time) AS MaxTime",RefineMsgCondition,"")

end sub

function FormatNavDate(NavDtTm)

FormatNavDate = Year(NavDtTm) & "/" & Month(NavDtTm) & "/" & Day(NavDtTm) & " " & Hour(NavDtTm) & ":" & Minute(NavDtTm) & ":" & Second(NavDtTm)

end function

sub SetTopBtmMessageDtTm ()
	if ForumGroups.DataExists then

		MessagesFound = true

		category = ForumGroups.GetFirstItem("category")

		UpperBound = ForumGroups.UpperBound
		total_groups = ForumGroups.TotalRows

		PosCount = -1

		start_row = 0

		BtmMessageDtTm = ForumGroups.GetLastItem("recent_time")

		For faPos= 0 to UpperBound

			category = ForumGroups.GetItem("category", faPos)

			Pos_message_time = ForumGroups.GetItem("recent_time", faPos)

			if category = "Header" OR category = "Header1" then

				if next_active then
					start_row = start_row + 1
				else
					if TopMessageDtTm = "" or Pos_message_time > TopMessageDtTm  then
						TopMessageDtTm = Pos_message_time
					end if
				end if

			else
				if TopMessageDtTm = "" or Pos_message_time > TopMessageDtTm then
					TopMessageDtTm = Pos_message_time
				end if
				Exit For
			end if
		Next


		end_row = ForumGroups.UpperBound

	end if

end sub

sub nav_pages(output)

	dim font_size

	dim row_number

	dim row_division

	dim SearchURL

	SearchURL = ""

	if word_search <> "" then
		SearchURL = SearchURL & "&word_search=" & word_search
	end if

	if search_user <> "" then
		SearchURL = SearchURL & "&search_user=" & search_user
	end if


	if SearchType <> "" then
		SearchURL = SearchURL & "&SearchType=" & SearchType
	end if

	if SearchWhat <> "" then
		SearchURL = SearchURL & "&SearchWhat=" & SearchWhat
	end if

	Response.Write(chr(10)&"<form name=""frm"&output&""" action=""message-ctgry.asp"" method=""post"">"&chr(10))

if word_search <> "" then
	Response.Write("<input type=""Hidden"" name=""word_search"" value=""" & word_search & """")
end if

if search_user <> "" then
	Response.Write("<input type=""Hidden"" name=""search_user"" value=""" & search_user & """")
end if


if SearchType <> "" then
	Response.Write("<input type=""Hidden"" name=""SearchType"" value=""" & SearchType & """")
end if

if SearchWhat <> "" then
	Response.Write("<input type=""Hidden"" name=""SearchWhat"" value=""" & SearchWhat & """")
end if


	Response.Write("<input type=""hidden"" name="""&output&""" size=""11"">"&chr(10))
	Response.Write("<span style=""font-weight:bold;font-size:13px;font-family:Arial,sans-serif;"">Click Calendar on right or Choose Date Below:</span> <a href=""javascript: void(0);"" onmouseover=""if (timeoutId) clearTimeout(timeoutId);window.status='Show Calendar';return true;"" onmouseout=""if (timeoutDelay) calendarTimeout();window.status='';"" onclick=""g_Calendar.show(event,'frm"&output&"','frm"&output&"."&output&"',true, 'mm/dd/yyyy', new Date(2003,11,12),new Date(" & Year(CrrntDtTm) & "," & Month(CrrntDtTm)-1 & "," & Day(CrrntDtTm) & "),new Date(" & Year(TopMessageDtTm) & "," & Month(TopMessageDtTm)-1 & "," & Day(TopMessageDtTm) & ")); return false;""><img src=""../images/calendar.gif"" name=""imgCalendar"" width=""34"" height=""21"" border=""0"" alt=""""></a>"&chr(10))

	Response.Write("</form>"&chr(10))

	font_size = "large"

	'if exstart_dttm <> "" then
		'Response.Write("<font size='3' face='Verdana, Arial, Helvetica, sans-serif'><b>" & convert_time(exstart_dttm) & "</b></font><br>" & chr(10))
	'elseif start_dttm <> "" then
		'Response.Write("<font size='3' face='Verdana, Arial, Helvetica, sans-serif'><b>" & convert_time(DateAdd("d", -1, start_dttm)) & "</b></font><br>" & chr(10))
	'end if

	if log_access = "adm" then
		if request.QueryString("UserStart") <> "" then
				UserStart = "&UserStart=" & request.QueryString("UserStart")
		end if
	end if

		response.write("<table cellpadding=0 cellspacing=0><tr><td align=center valign=middle><a href=""message-ctgry.asp" & JAH & id & url_next & "prev_dttm=" & FormatNavDate(BtmMessageDtTm) & UserStart & SearchURL & """ onMouseOut=""MM_swapImgRestore();"" onMouseOver=""MM_swapImage('Previousbtn" & output & "','','../images/buttons/Previous-btn_f2.gif',1);""><img name=""Previousbtn" & output & """ src=""../images/buttons/Previous-btn.gif"" width=""59"" height=""50"" border=""0"" alt=""Older Reasonings"" title=""Older Reasonings""></a></td><td align=center style='border:solid 3px black;height:50px;'>")

	response.write("<table cellspacing=0 cellpadding=3><tr>")

for fyear=2003 to Year(CrrntDtTm)

	TopYear = Year(TopMessageDtTm)

	BtmYear = Year(BtmMessageDtTm)

	uyear = fyear + 1

	if fyear = TopYear then
		response.write("<td style='background-color:#FFFFC6;border:solid 1px black;'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>" & fyear & "</b></font></td>")
	else
		select_dttm = DateAdd("d",-1, uyear & "/01/01")
		select_dttm = Year(select_dttm) & "/" & Month(select_dttm) & "/" & Day(select_dttm)
		bgcolor = ""

		if fyear >= BtmYear and fyear < TopYear then
			bgcolor =  " style='background-color:#FFFFC6;'"
		end if

		response.write("<td" & bgcolor & "><font size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='message-ctgry.asp" & JAH & id & url_next & "start_dttm=" & select_dttm & UserStart & SearchURL & "'>" & fyear & "</a></font></td>")
	end if

next

response.write("</tr></table>")


if TopMessageDtTm <> "" then

	TopYear = Year(TopMessageDtTm)
	TopMonth = Month(TopMessageDtTm)

	BtmYear = Year(BtmMessageDtTm)
	BtmMonth = Month(BtmMessageDtTm)

	response.write("<table cellspacing=0 cellpadding=2><tr>")


	for fmonth= 1 to 12

		fyear = Year(TopMessageDtTm)

		uyear = fyear
		umonth = fmonth


		if TopMonth = umonth then
			if(start_dttm <> "") then
				response.write("<td style='background-color:#FFFFC6;border:solid 1px black;'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>" & MonthName(fmonth) & "</b></font></td>")
			else
				select_dttm = DateAdd("M",1, fyear & "/" & fmonth & "/01")
			select_dttm = DateAdd("d",-1, select_dttm)
			select_dttm = Year(select_dttm) & "/" & Month(select_dttm) & "/" & Day(select_dttm)
			response.write("<td style='background-color:#FFFFC6;border:solid 1px black;'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><a href='message-ctgry.asp" & JAH & id & url_next & "start_dttm=" & select_dttm & UserStart & SearchURL & "'><b>" & MonthName(fmonth) & "</b></a></font></td>")
			end if
		else
			select_dttm = DateAdd("M",1, fyear & "/" & fmonth & "/01")
			select_dttm = DateAdd("d",-1, select_dttm)
			select_dttm = Year(select_dttm) & "/" & Month(select_dttm) & "/" & Day(select_dttm)

			bgcolor = ""

			if (BtmYear = TopYear and fmonth <= TopMonth and fmonth >= BtmMonth ) or (BtmYear <> TopYear and (fmonth >= BtmMonth or fmonth <= TopMonth))  then
				bgcolor =  " style='background-color:#FFFFC6;'"
			end if

			response.write("<td" & bgcolor & "><font size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='message-ctgry.asp" & JAH & id & url_next & "start_dttm=" & select_dttm & UserStart & SearchURL & "'>" & MonthName(fmonth) & "</a></font></td>")
		end if

	next


	response.write("</tr></table>")

	if next_active then
		response.write("</td><td align=center valign=middle><a href=""message-ctgry.asp" & JAH & id & url_next & "next_dttm=" & FormatNavDate(TopMessageDtTm) & UserStart & SearchURL & """ onMouseOut=""MM_swapImgRestore();"" onMouseOver=""MM_swapImage('Nextbtn" & output & "','','../images/buttons/Next-btn_f2.gif',1);""><img name=""Nextbtn" & output & """ src=""../images/buttons/Next-btn.gif"" width=""59"" height=""50"" border=""0"" alt=""Newer Reasonings"" name=""Newer Reasonings""></a></td></tr></table>")
	else
		response.write("</td><td align=center valign=middle>&nbsp;</td></tr></table>")
	end if
end if


end sub

%>