|
|
Lab 34: Book Ordering Application
Select a title
Enter an author and/or title here:
Current List:
<%
dim objConn, objRec, author, titleString
author = Request.Form("tfAuthor")
titleString = Request.Form("tfTitle")
set objConn = Server.CreateObject("ADODB.Connection")
set objRec = Server.CreateObject("ADODB.Recordset")
PubSQL = "select DISTINCT title, titles.title_id " & _
"from authors, titles, titleauthors " & _
"where au_lname like '" & author & "%' " & _
"AND title like '" & titleString & "%' " & _
"AND titleauthors.au_id = authors.au_id " & _
"AND titleauthors.title_id = titles.title_id"
objConn.Open strConnect
objRec.Open PubSQL, objConn
%>
<%objRec.MoveNext
Wend%>
<%objRec.Close
set objRec = Nothing
' end if%>
|