<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim count_page dim WordData, word_condition, WrPos, WordIndex Set WordData = New Ark_Data dim word_id, word_title, word_date, word_order, word_display dim search_type dim search_change, word_search, word_array, word_bound, word_len dim word_replace dim url_link dim i word_search = request.QueryString("word_search") search_type = request.QueryString("search_type") word_id = request.QueryString("word_id") url_link = request.QueryString("url_link") if word_id = "" then response.Redirect("Rastafari-word.asp" & JAH & id) elseif InStr(word_id,";") > 0 OR InStr(word_id,"@") OR InStr(word_id,"'") then response.Redirect("http://google.com") end if if word_search <> "" then 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 end if dim regexp_link, link_replace Set regexp_link = New RegExp With regexp_link .IgnoreCase = True .Global = True End With if word_id <> "" then word_condition = "word_id = '" & word_id & "'" Set WordData = Ark_DBAccess.DBSelect("rastafari_words", "word_title, word_date, word_order, word", word_condition, "word_order") if WordData.DataExists then word_title = WordData.GetFirstItem("word_title") word_title = Ark_DBAccess.DecodeDBString(word_title) word_title = Replace(word_title, "~", "'") word_date = WordData.GetFirstItem("word_date") end if end if title="RasTafarI - " & word_title page="/jah-index.asp" count_page="JAH Words|show-jah-word.cfm" %> JAH - <%=title%> >


<%if url_link <> "" then%>

Forward to <%url_link%><%end if%>

Words of RasTafarI, Haile Selassie I
Select more words from RasTafarI

Here is a link to this page:
http://www.jah-rastafari.com/selassie-words/show-jah-word.asp?word_id=<%=word_id%>

<%if word_date <> "" then%><%end if%>
<%=word_title%>
<%response.Write(FormatDateTime(word_date, 1))%>
 
The Lion of Judah has prevailed
Haile Selassie I, Elect of God
King of Kings of Ethiopia

<% if WordData.DataExists then WordIndex = WordData.GetItemIndex("word") For WrPos= 0 to WordData.UpperBound word_display = WordData.GetItemByIndex(WordIndex, WrPos) if word_search <> "" then if search_type = "one-no space" then regexp_link.Pattern = "("&search_change&")" word_display = regexp_link.replace(word_display, "$1") elseif search_type = "one-space" then ' regexp_link.Pattern = "( "&search_change&" )" ' word_display = regexp_link.replace(word_display, "$1") regexp_link.Pattern = "("&search_change&")" word_display = regexp_link.replace(word_display, "$1") else for i = 0 to word_bound if search_type = "multiple-no space" then regexp_link.Pattern = "("&word_array(i)&")" word_display = regexp_link.replace(word_display, "$1") elseif search_type = "multiple-space" then ' regexp_link.Pattern = "( "&word_array(i)&" )" ' word_display = regexp_link.replace(word_display, "$1") regexp_link.Pattern = "("&word_array(i)&")" word_display = regexp_link.replace(word_display, "$1") end if Next end if end if word_display = replace(word_display, chr(10), "
") word_display = replace(word_display, chr(13), "
") word_display = Ark_DBAccess.DecodeDBString(word_display) word_display = Replace(word_display, "~", "'") response.Write(word_display) next end if %>


Words of Ras TafarI