Return to Reasoning List

Subject:	<% if message_title <> "" then message_title = Replace(message_title, "~^^", """") message_title = Replace(message_title, "~^", "'") %><%=message_title%><% else %>No Subject<% end if %>
<%message_title = Replace(message_title, """", "~^^") message_title = Replace(message_title, "'", "~^") message_title = Replace(message_title, "&", "and") %>

HTML Link	**link=www.jah-rastafari.com**Jah RasTafarI Homepage**
Image	++img=www.jah-rastafari.com/images/Ithiopian-flag.gif++
YouTube video	++youtube=//www.youtube.com/embed/7d7ywghJ1Vg++

<% otr_fields = "record_id, messenger, message_id, message_title, message_time, message_order, message, message_group, category, status" 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 & qf("message_group = message_group") otr_condition = search_condition & " AND message_time <= (SELECT message_time FROM jah_forum WHERE message_id = "&message_id&" AND message_order = 1)" Set OthersData = Ark_DBAccess.DBSelectRange("jah_forum",otr_fields, otr_condition, "message_time DESC, message_order",0,33) if OthersData.DataExists then Response.Write("") end if %>

Message replied to and previous Reasonings:
<% old_message_time = "" if OthersData.DataExists then MTimeIndex = OthersData.GetItemIndex("message_time") MsgrIndex = OthersData.GetItemIndex("messenger") MsgIndex = OthersData.GetItemIndex("message") For OtPos= 0 to OthersData.UpperBound otr_message_time = OthersData.GetItemByIndex(MTimeIndex, OtPos) otr_messenger = OthersData.GetItemByIndex(MsgrIndex, OtPos) otr_message = OthersData.GetItemByIndex(MsgIndex, OtPos) if otr_message_time <> old_message_time then if log_time_zone <> "" then set_time = DateAdd("h", convert_time_zone, otr_message_time) current_time = DateAdd("h", convert_time_zone, Now()) else set_time = otr_message_time current_time = Now() end if %> ___________________________________________________________ <%=otr_messenger%> Sent: <% 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)%> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ <%end if otr_message = Replace(otr_message, "~^^", """") otr_message = Replace(otr_message, "~^", "'") response.write(otr_message) old_message_time = otr_message_time Next End If %> _______________________________________________________