<%@ LANGUAGE="VBSCRIPT" %> <% concept=trim(request("concept")) grade = trim(request("grade")) if (concept="") or (grade="") then Response.Redirect "index.asp" end if Set MyConn1 = Server.CreateObject("ADODB.Connection") MyConn1.Open ("DRIVER={Microsoft Access Driver (*.mdb)};" _ & "DBQ=" & Server.MapPath("PRISMNEO.mdb")) SQL_query = "SELECT Distinct Sketches.SketchID, Sketches.SketchbookTitle, Sketches.Filename, " & _ "Sketches.SketchpadLevel, Sketches.Movie1, Sketches.Movie2, Sketches.Movie3, " & _ "Sketches.SupportFile1, Sketches.SupportFile2, Sketches.SupportFile3, Sketches.SketchSource, Sketches.Folder, Sketches.SourceOrder " & _ "FROM (SELECT * " & _ "FROM Sketches INNER JOIN (Concepts INNER JOIN ConceptGrade ON Concepts.ConceptID = ConceptGrade.ConceptID) " & _ "ON Sketches.SketchID = ConceptGrade.SketchID " if concept <> "All" then SQL_query = SQL_query & "WHERE ((Concepts.Concept = '" & concept & "') " if grade <>"All" then SQL_query = SQL_query & "AND (ConceptGrade.Grade = " & grade & "))" else SQL_query = SQL_query & ")" end if else if grade <> "All" then SQL_query = SQL_query & "WHERE (ConceptGrade.Grade = " & grade & ") " end if end if SQL_query = SQL_query & ") ORDER BY Sketches.SourceOrder, Sketches.SketchbookTitle;" Set RS = MyConn1.Execute(SQL_query) %> <%=concept%>
<%=grade%> <% i=1 while not RS.eof%> <%i=i+1 RS.MoveNext wend RS.Close MyConn1.Close%>

<%=RS("SketchbookTitle")%>

<%=RS("Filename")%>