<% bookASIN = Request("asin") ' ======= Comment by Kasapa Aware Co,Ltd ======= 'strConn = "bookstoreDB" 'Set conn = Server.CreateObject("ADODB.Connection") 'conn.Open strConn ' ======= Add by Kasapa Aware Co,Ltd ======= data ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../database/booklist.mdb") ' ======= Comment by Kasapa Aware Co,Ltd ======= 'SQL = "SELECT * FROM books WHERE ASIN = '" & bookASIN & "'" 'set db = conn.Execute(SQL) ' ======= Add by Kasapa Aware Co,Ltd ======= SQL = "SELECT * FROM books WHERE ASIN = '" & bookASIN & "'" Set db = Server.CreateObject("ADODB.Recordset") db.Open SQL, data,1,3 if db.eof or db.bof then dbTitle = "Unable to find book" blnOpen = false Else dbTitle = db("title") blnOpen = true End If %> Inspired Planet Books - <%=dbTitle%>
Our 4 largest sections of books:

The most interesting and inspiring
categories:

New Books

Full Selection
arranged alphabetically:

African Art and
Culture


American Art and
Culture
(especially Native
American)


The Ancient and
Classical World
(especially Egypt)


Asian Art and
Culture


Biographies of
Inspired Humans


The Death Journey

Earth Mysteries and
Far-out Theories


Environment and
Sustainable Living


European Art and
Culture


The Evolution of
Consciousness


Gifts for Children
and Young Readers


Initiation, Shamanism
and Healing


Mythology and
Symbolism


Nature

Pilgrimage to
Sacred Places


Poetry, Novels, and
Inspired Writings


Reference

Science and Mysticism

Travel, Exploration
and Adventure


Visionary Art

World Religions
and Philosophy


 

BOOKS

<%=dbTitle%>
<% If blnOpen Then response.write("" & vbnewline) response.write("" & vbnewline & vbNewline) End If %>
" & vbnewline) response.write("" & vbnewline) response.write("" & db("title") & "
" & vbnewline) response.write(db("author") & "
" & vbnewline) response.write(db("publisher") & vbnewline) response.write("
" & vbnewline) response.write("" & vbnewline) if trim(db("image")) <> "" then response.write("") response.write("" & vbnewline) end if response.write("" & vbnewline) response.write("
" & vbnewline) response.write("" & vbnewline) response.write(db("desc") & vbnewline) response.write("" & vbnewline) response.write("
" & vbnewline) response.write("") response.write("Information / Purchase" & vbnewline) response.write("
") response.write("Section: " & getFullTitle(db("section")) & "") response.write("


   Back


In Association with Amazon.com

Email us. Questions
Comments Information
Info@Inspiredplanet.com


Send this page to a friend

Opening Page | Travel | Books | Table of Contents | Artifacts | Masks and Ritual Objects | Jewelry | Paintings | Contact | Photography | Photo Lectures |

<% 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 %>