<%
Dim oConn, oRs
Dim qry, connectstr
Dim db_path
Dim db_dir
dim url
dim Genre
dim AName
dim imagestring
dim titlestring
dim Order
Order = "AUTHLASTNAME"
if request.querystring("g") = "" then
Genre = "and tblGenre.genreID = 1"
else
if request.querystring("g") = 9 then
Order = "Title"
ELSE
Genre = "and tblGenre.genreID = " & request.querystring("g")
end if
end if
Set oConn = Server.CreateObject("ADODB.Connection")
fieldname = "Title"
connectstr ="PROVIDER=SQLOLEDB;DATA SOURCE=whsql-v19.prod.mesa1.secureserver.net;"
connectstr = connectstr & "UID=tiercel;PWD=Books4Sale;DATABASE=tiercel"
oConn.Open connectstr
qry = "select title, titleid from tbltitle order by title"
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
do until oRS.EOF
titlestring = titlestring & ""
oRs.movenext
loop
oRS.close
end if
qry = "select AuthFirstNAme, AuthLastName, AuthID from tblAuthor order by AuthLastName"
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
do until oRS.EOF
Authstring = Authstring & ""
oRs.movenext
loop
oRS.close
end if
response.write ""
if request.form("Auth") <> "" then Genre = "and tbltitle.AuthID = '" & request.form("Auth") & "'"
if request.form("title") <> "" then Genre = "and titleid = " & request.form("title")
qry = "SELECT * FROM tblTitle, tblAuthor,tblGenre where tblTitle.AuthID = tblAuthor.AuthID and tblTitle.GenreID = tblGenre.genreID " & Genre & " order by " & Order
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
if len(Genre) > 0 then response.write "
" & oRs.Fields("genre") & "
"
if len(Genre) > 0 then response.write "
" & oRs.Fields("Chat") & "
"
while not oRS.EOF
if AName <> oRs.Fields("AuthfirstName") & " " & oRs.Fields("AuthLastName")then
response.write " " & oRs.Fields("AuthfirstName") & " " & oRs.Fields("AuthLastName")& "
" & oRs.fields("AuthBio") & "
"
AName = oRs.Fields("AuthfirstName") & " " & oRs.Fields("AuthLastName")
end if
IF len(oRs.Fields("CoverIMAGE")) > 0 then
if len(oRs.Fields("PurchaseURL"))>0 then
IMagestring = imagestring & ""
else
IMagestring = imagestring & ""
end if
end if
if len(oRs.Fields("PurchaseURL"))>0 then
url = ""
else
url = ""
end if
response.write " " & url & "" & oRs.Fields(fieldname) & " "
'response.write ", " & oRs.Fields("Blurb
'response.write "
" & oRs.Fields("Sample") & "
"
oRS.movenext
response.write "
" & imagestring & "
"
imagestring = ""
wend
oRS.close
end if
Set oRs = nothing
Set oConn = nothing
%>
Sign up for the
WhereTheMapEnds
newsletter
and receive an exclusive
(and fun) free gift: "The Horrific But True Psychological Phases of
Writing a Novel"
