Gary Carpenter: Works

<%@language=VBScript%> <% dim oRS, results, crit, howmany, sqltext ' create a pointer to an object 'set crit to be the search form field criteria sqltext = "SELECT id, release_date, title, publisher, genre FROM works WHERE 0=0" crit = Request.Form("title_name") ' first bit of criteria If crit <> "" Then sqltext = sqltext & " AND lcase(title) like '%"& lcase(crit) &"%'" End If crit = Request.Form("rel_date") ' second bit of criteria If crit <> "" Then sqltext = sqltext & " AND release_date like '%"& crit &"%'" End If crit = Request.Form("pub") ' second bit of criteria If crit <> "" Then sqltext = sqltext & " AND lcase(publisher) like '%"& lcase(crit) &"%'" End If crit = Request.Form("gen") ' second bit of criteria If crit <> "" Then sqltext = sqltext & " AND lcase(genre) like '%"& lcase(crit) &"%'" End If ' Response.write sqltext ' Get the search results Set oConn = Server.CreateObject("ADODB.Connection") strConn = "Driver={MySQL}; DATABASE=garycarpenterdb; UID=garycarpenter; PASSWORD=garyin2db;" oConn.Open strConn Set oRS=Server.CreateObject("ADODB.RecordSet") 'create the object oRS.ActiveConnection = oConn oRS.open sqltext, oConn, 2 ' perform the query %> Gary Carpenter: Works

Works

<% If howmany > 0 Then %> <% oRs.MoveFirst Do While NOT oRS.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" oRS.moveNext Loop %> <%else%> <% End If %>

<% howmany = 0 do while not oRs.EOF howmany = howmany + 1 oRS.MoveNext loop Response.Write "Your search returned "&howmany&" matches" %>

Release Date Title Genre Publisher
" & oRS("release_date") & " " & oRS("title") & " " & oRS("genre") & " " & oRS("publisher") & "

<< new search

<% oRS.Close %>