Masters Fantasy Science Fiction Time Travel
Chillers End Times Speculative Classics
View all by Title View all by Author

<% 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 "
Find a title:
Find an author
" 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"

WTME Newsletter Signup
Email: