Soft Books

Program: Select <% sql = "select DISTINCT LEVELID, [LEVEL_NAME] from Book_Prog_Course where Docpath is not null ORDER BY LEVEL_NAME" if rs.state=1 then rs.close set rs=db.execute(sql) if not rs.eof then while not rs.eof %> "> <%=rs("Level_Name")%> <% if rs("LevelId") = "03" then response.write(" (F.A)") elseif rs("LevelId") = "02" then response.write(" (Matric)") end if %> <% rs.movenext wend end if %>

<% ' Server-side code to handle search functionality if Request.Form("Search") <> "" then searchCode = Trim(Request.Form("search_code")) if searchCode <> "" then searchSQL = "SELECT * FROM Book_Prog_Course WHERE Course_Code LIKE '%" & searchCode & "%' AND Docpath IS NOT NULL" set searchRS = db.execute(searchSQL) if not searchRS.eof then Response.Write "" Response.Write "" do while not searchRS.eof Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" searchRS.movenext loop Response.Write "

Course Code	Course Title	Program
" & searchRS("Course_Code") & "	" & searchRS("Course_Title") & "	" & searchRS("Level_Name") & "

" else Response.Write "

No books found for the given course code.

" end if else Response.Write "

Please enter a course code to search.

" end if end if %>