<% 'get info to query sInstruction = Request.QueryString("action") sTitle = Request.QueryString("fTitle") sAuthor = Request.QueryString("fAuthor") sLevelStart = Request.QueryString("fLevelStart") sLevelEnd = Request.QueryString("fLevelEnd") sPoints = Request.QueryString("fPoints") sOrder = Request.QueryString("fOrder") %>

Title
Author
Between Level	AND
Minimum Points
Sort By	>Title >Author >Reading Level >Minimum Points

<% 'build query statement xWHERE = " WHERE " If Not (IsNull(sTitle) Or sTitle="") Then xWHERE = xWHERE & " Title LIKE '%" & sTitle & "%'" End If If Not (IsNull(sAuthor) Or sAuthor="") Then If InStr(xWHERE,"Title")<>0 Then xWHERE = xWHERE & " AND Author LIKE '%" & sAuthor & "%'" Else xWHERE = xWHERE & " Author LIKE '%" & sAuthor & "%'" End If End If If Not ((IsNull(sLevelStart) Or sLevelStart="") Or (IsNull(sLevelEnd) And sLevelEnd="")) Then If IsNull(sLevelStart) And sLevelStart="" Then sLevelStart=0 End If If IsNull(sLevelEnd) And sLevelEnd="" Then sLevelEnd=999 End If If InStr(xWHERE,"Title")<>0 Or InStr(xWHERE,"Author")<>0 Then xWHERE = xWHERE & " AND RdLevel Between " & sLevelStart & " AND " & sLevelEnd Else xWHERE = xWHERE & " RdLevel Between " & sLevelStart & " AND " & sLevelEnd End If End If If Not (IsNull(sPoints) Or sPoints="") Then If InStr(xWHERE,"Title")<>0 Or InStr(xWHERE,"Author")<>0 Or InStr(xWHERE,"Level")<>0 Then xWHERE = xWHERE & " AND Points >=" & sPoints Else xWHERE = xWHERE & " Points >=" & sPoints End If End If 'create recordset to open database Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.LockType = adLockOptimistic 'create headers on table Response.Write "" & chr(13) Response.Write " " & chr(13) Response.Write " " & chr(13) Response.Write " " & chr(13) 'pull records If sInstruction = "querylist" Then 'update the PersonnelType sql = "SELECT * FROM ARList" & xWHERE & " ORDER BY " & sOrder ' Response.Write sql rs.Open sql, conn numRecords = rs.RecordCount Response.Write "" & chr(13) If Not rs.BOF Then Do While NOT rs.EOF sTitle = rs("Title") sAuthor = rs("Author") sLevelStart = rs("RdLevel") sPoints = rs("Points") Response.Write "" & chr(13) Response.Write " " & chr(13) Response.Write " " & chr(13) Response.Write " " & chr(13) rs.MoveNext Loop Else Response.Write "" & chr(13) End If rs.Close End If %>

Title	Author	Reading Level	Points
" & numRecords & " matches
" & sTitle & "	" & sAuthor & "	" & sLevelStart & "	" & sPoints & "
No Matches. Please change your search options and try again.