<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim count_page dim search_change dim total_chapters dim word_search, word_array, word_bound, word_len dim word_url dim search_condition, search_statement dim i total_chapters = 0 word_search = request.Form("word_search") title="Selassie I Autobiography" 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 %> JAH - <%=title%> >
<% if log_access = "adm" then %>

Search Autobiography
<%if word_search = "" then%>
More Chapters will be added to this list

<%end if%> Autobiography of RasTafarI, Haile Selassie I


Used with permission from Frontline Distribution International, Inc. ©1999

All rights reserved. Can not be reproduced without permission from Frontline Distribution International, Inc.

 For all who are able, purchase the autobiographies and support the people who are publishing the words of Haile Selassie I so that they can Itinue to publish Jah words for our future generations.
-Ark I


Chapters from

Volume One
My Life and Ethiopia's Progress,
Volume One: 1892-1937
ISBN: 0-94839-040-9
Library of Congress Card Catolog Number: 97-65862

Haile Selassie I
King of Kings

Volume Two
My Life and Ethiopia's Progress,
Volume Two: 1936-1942
ISBN: 0-94839-032-8
Library of Congress Card Catolog Number: 97-65862

Haile Selassie I
King of Kings

 <% if word_search = "" then '***************** word display no search ******************** call display_speeches(search_condition, "", "") else if word_len = 1 then '***************** word search one word with space ******************** search_condition = "word_title LIKE '% "&search_change&" %' OR word LIKE '% "&search_change&" %'" search_statement = "Word Search " & """_"&search_change&"_""" call display_speeches(search_condition, search_statement, "one-space") '***************** word search one word NO space ******************** search_condition = "word NOT LIKE '% "&search_change&" %' AND " & "(word_title LIKE '%"&search_change&"%' OR word LIKE '%"&search_change&"%')" search_statement = "Word Search " & """"&search_change&"""" call display_speeches(search_condition, search_statement, "one-no space") '*************************************************************************** else '***************** word search phrase NO space ******************** search_condition = "word_title LIKE '%"&search_change&"%' OR word LIKE '%"&search_change&"%'" search_statement = "Word Search " & """"&search_change&"""" call display_speeches(search_condition, search_statement, "one-no space") '*************************************************************************** '***************** word search multiple with space ******************** search_condition = "(word_title NOT LIKE '%"&search_change&"%' AND word NOT LIKE '%"&search_change&"%') AND " for i=0 to word_bound if i <> 0 then search_condition = search_condition & " AND " end if search_condition = search_condition & "(word_title LIKE '% "&word_array(i)&" %' OR word LIKE '% "&word_array(i)&" %')" Next search_statement = "Word Search " for i=0 to word_bound if i <> 0 then search_statement = search_statement & " AND " end if search_statement = search_statement & """_"&word_array(i)&"_""" Next call display_speeches(search_condition, search_statement, "multiple-space") '***************** word search multiple NO space ******************** search_condition = "(word_title NOT LIKE '%"&search_change&"%' AND word NOT LIKE '%"&search_change&"%') AND " for i=0 to word_bound if i <> 0 then search_condition = search_condition & " AND " end if search_condition = search_condition & "(word_title LIKE '%"&word_array(i)&"%' OR word LIKE '%"&word_array(i)&"%')" Next search_statement = "Word Search " for i=0 to word_bound if i <> 0 then search_statement = search_statement & " AND " end if search_statement = search_statement & """"&word_array(i)&"""" Next call display_speeches(search_condition, search_statement, "multiple-no space") '*************************************************************************** end if end if %>  



<%end if%>
<% '************************************************************************************** '************************** FUNCTIONS ***************************** '************************************************************************************** sub display_speeches(s_condition, s_statement, s_type) dim WordData Set WordData = New Ark_Data dim displayingVolume displayingVolume = 1 dim word_title, prev_word_title dim word_chapter, word_status, word_group, prev_word_group, word_volume, prev_word_volume dim conn_group, rs_group, group_condition, group_description prev_word_title = "zzz" prev_word_group = "zzz" prev_word_volume = "zzz" if s_type = "" then Set WordData = Ark_DBAccess.DBSelect("autobiography", "word_title, word_chapter, word_group, word_volume, status", s_condition, "word_volume, word_chapter") else Set WordData = Ark_DBAccess.DBSelect("autobiography", "word_title, word_chapter, word_group, word_volume, status", s_condition, "word_volume, word_chapter") end if if WordData.DataExists then if word_search <> "" then response.Write("
") if s_type = "one-space" OR s_type = "multiple-space" then response.Write("_ represents a space

") end if response.Write("") response.Write(s_statement) response.Write("

") end if response.Write("
") WordTitleIndex = WordData.GetItemIndex("word_title") WordChpIndex = WordData.GetItemIndex("word_chapter") WordStatusIndex = WordData.GetItemIndex("status") WordGroupIndex = WordData.GetItemIndex("word_group") WordVolIndex = WordData.GetItemIndex("word_volume") For WrPos= 0 to WordData.UpperBound word_title = WordData.GetItemByIndex(WordTitleIndex, WrPos) word = Ark_DBAccess.DecodeDBString(word) word_title = Ark_DBAccess.DecodeDBString(word_title) word_title = Replace(word_title,"~", "'") word_chapter = WordData.GetItemByIndex(WordChpIndex, WrPos) word_status = WordData.GetItemByIndex(WordStatusIndex, WrPos) word_group = WordData.GetItemByIndex(WordGroupIndex, WrPos) word_volume = WordData.GetItemByIndex(WordVolIndex, WrPos) if word_title <> prev_word_title then if word_volume = 2 and displayingVolume = 1 then displayingVolume = 2 response.write("
") end if if word_search = "" then if word_volume <> prev_word_volume then %> <% end if end if if word_search <> "" then word_url = "&word_search="&server.URLEncode(word_search)&"&search_type="&server.URLEncode(s_type) end if %> <%total_chapters = total_chapters + 1 end if prev_word_title = word_title prev_word_volume = word_volume Next%>
Volume <%if word_volume = 1 then Response.Write("One") else Response.Write("Two") end if%>
_<%=Replace(word_chapter,",", ".")%><%=word_url%>"><%if word_chapter < 1 then%><%=word_title%><%else%>Chapter <%=word_chapter%>
<%=word_title%><%end if%>



<% end if end sub %>