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

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

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


<%

dim MessagesData, MDPos, message_count, message_id, MessagesSearch, MSPos
Set MessagesData = New Ark_Data
Set MessagesSearch = New Ark_Data
dim TitleData, message_title
Set TitleData = New Ark_Data

dim search_condition, max_condition, clk_condition

dim message_group, message_posted, word_search, search_user, SearchType

dim SearchUserCondition

dim search_change, word_array, word_len, word_bound

dim count_page

dim hidden_condition

dim action_type

dim error_message
error_message = ""


if request.QueryString("message_group") <> "" then

	message_group = request.QueryString("message_group")

end if


if request.QueryString("message_posted") <> "" then

	message_posted = request.QueryString("message_posted")

end if


if request.QueryString("word_search") <> "" then

	word_search = request.QueryString("word_search")

end if

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

	search_user = request.QueryString("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
	
	'use until passing % in query string
	SearchUserCondition =  "messenger LIKE '%"&search_user & "%'"
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


if message_group = "" then
	error_message = "No Reasoning was chosen."
elseif InStr(message_group,";") > 0 OR InStr(message_group,"@") OR InStr(message_group,"'")  then
	response.Redirect("http://google.com")
elseif NOT IsNumeric(message_group) then
	error_message = "Invalid Reasoning topic ID."
else
	if cloaked = true then

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

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

		clk_condition = ""

	else

		clk_condition = "status <> 'deleted' AND status <> 'cloaked' AND "

	end if

	
	search_condition = clk_condition & "message_group = " &  message_group


	Set MessagesData = Ark_DBAccess.DBSelectGroupBy("jah_forum", "message_id", search_condition, "message_id", "")
	

	dim word_search_condition

	if word_search <> "" then

		if SearchType = "Phrase" then

			word_search_condition = search_condition & " AND message LIKE '%"&search_change&"%'"
			
			if search_user <> "" then
				word_search_condition = word_search_condition & " AND " & SearchUserCondition
			end if

		else

			word_search_condition = search_condition & " AND "


			for i = 0 to word_bound

				if i <> 0 then

					word_search_condition = word_search_condition & " AND "

				end if

				
				word_search_condition = word_search_condition & "message LIKE '%"&word_array(i)&"%'"

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

			next
		end if


		Set MessagesSearch = Ark_DBAccess.DBSelectGroupBy("jah_forum", "message_id", word_search_condition, "message_id", "")
	
	elseif search_user <> "" then
	
			
				word_search_condition = search_condition & " AND " & SearchUserCondition
	

		Set MessagesSearch = Ark_DBAccess.DBSelectGroupBy("jah_forum", "message_id", word_search_condition, "message_id", "")

		'call qry_select_group(conn_search, rs_search, "jah_forum", "message_id", word_search_condition, "message_id", "", "")
	end if

	
	if not MessagesData.DataExists then

		Response.Redirect("message-ctgry.asp" & JAH & id)

	end if

	
	message_count = MessagesData.TotalRows

	max_condition = search_condition
			
	Set TitleData = Ark_DBAccess.DBSelectRange("jah_forum","message_title",max_condition,"",0,1)
	
	if TitleData.DataExists then

		message_title = Replace(TitleData.GetFirstItem("message_title"), "~^^", """")
	
		message_title = Replace(message_title, "~^", "'")
	
		title= message_title & " - View Messages"
	end if

end if


page="/forum/message-view.asp"


count_page="JAH-RasTafarI Forum View|message-view.asp"

%>


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


<html>

<head>


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


<!-- STYLES -->

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

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


<!-- Javascript -->

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

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


</head>


<body <%=body_header%>>


<!-- JAH BANNER -->

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

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


<div align="center">

<!-- body of document -->


<%if message_posted then%>

	<br>

	<b><font color="#FF0000" size="3" face="Verdana, Arial, Helvetica, sans-serif">Your message has been posted</font></b><br>

	<hr>

<%end if%>


<!--#include file="message-body.asp"-->


<br>

<br>

<br>


<!-- end of body -->

</div>


<!-- JAH CLOSE -->

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

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


</body>

</html>