<% Dim oConn, oRs Dim qry, connectstr Dim db_path Dim db_dir dim url dim Genre dim AName dim titlestring dim Authstring dim Order Order = "AUTHLASTNAME" if request.querystring("g") = "" then Genre = "" 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("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 wend oRS.close end if Set oRs = nothing Set oConn = nothing %> |