%
searchword1 = Request("input1")
searchword2 = Request("input2")
Dim objConn
Dim objRec
Dim strConn
TitleAuthorSQL = "SELECT authors.au_lname,authors.au_fname,titles.title_id,titles.title From titles,authors,titleauthors where authors.au_id=titleauthors.au_id AND titles.title_id=titleauthors.title_id AND authors.au_lname like'"&searchword1&"%' AND titles.title like '"& searchword2&"%' order by authors.au_lname,authors.au_fname;"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
%>
|
|
|
LAB12:TWO ARGUMENTS FOR ONE QUERY
The Search String You Entered For Author was: <% =searchword1 %>
The Search String You Entered For Title was: <% =searchword2 %>
HERE ARE THE RESULTS OF YOUR DATABASE QUERY
<%
if Request.Form("go1") <> "" Then
objRec.Open TitleAuthorSQL, objConn
%>
<%
while Not objRec.EOF
Response.Write "" & objRec("au_lname") & ", " & objRec("au_fname") & ", " & objRec("title_id") & ", " & objRec("title") & " "
objRec.MoveNext
Wend
End If
'objRec.Close
set objRec = Nothing
%>
|
|
|