<%
conn.close
set conn = Nothing
set db = Nothing
Function getFullTitle(strTitle)
select case strTitle
case "afro"
getFullTitle = "African Art and Culture"
case "amer"
getFullTitle = "Native American Art and Culture "
case "ancient"
getFullTitle = "The Ancient and Classical World"
case "asia"
getFullTitle = "Asian Art and Culture"
case "bio"
getFullTitle = "Biographies of Inspired Humans"
case "child"
getFullTitle = "Gifts for Children and Young Readers"
case "death"
getFullTitle = "The Death Journey"
case "earth"
getFullTitle = "Earth Mysteries and Far-out Theories"
case "env"
getFullTitle = "Environment, Sustainable Living"
case "euro"
getFullTitle = "European Art and Culture"
case "evo"
getFullTitle = "Evolution of Consciousness"
case "init"
getFullTitle = "Initiation, Shamamism and Healing"
case "myth"
getFullTitle = "Mythology and Symbolism"
case "nature"
getFullTitle = "Nature"
case "pilgrim"
getFullTitle = "Pilgrimage to Sacred Places"
case "poetry"
getFullTitle = "Poetry, Novels and Inspired Writing"
case "ref"
getFullTitle = "Reference"
case "sci"
getFullTitle = "Science and Mysticism"
case "travel"
getFullTitle = "Travel, Exploration and Adventure"
case "vis"
getFullTitle = "Visionary Art"
case "world"
getFullTitle = "World Religions and Philosophy"
case "new"
getFullTitle = "New"
case else
getFullTitle = ""
end select
End Function
%>