<%@ 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) %> Sketch Details
<% i=1 while not RS.eof%> <%i=i+1 RS.MoveNext wend RS.Close MyConn1.Close%>
 
Sketches List < < Back

The list below shows the available sketches for your selection of:
Grade: <%=grade%> and Math Concept: <%=concept%>
 
Sketch Title
Diffi-
culty
Sketch File
Source
<%=RS("SketchbookTitle")%>
<%if RS("SketchpadLevel")="Easy" then%> <%elseif RS("SketchpadLevel")="Intermediate" then %> <%elseif RS("SketchpadLevel")="Difficult" then %> <%end if%>
 " title="Open Sketchpad File"><%=RS("Filename")%>
<%=RS("SketchSource")%>
<%if RS("Movie1")<>"" then %>  " title="Open QuickTime File"><%=RS("Movie1")%> <%end if%> <%if RS("Movie2")<>"" then %>  " title="Open QuickTime File"><%=RS("Movie2")%> <%end if%> <%if RS("Movie3")<>"" then %>  " title="Open QuickTime File"><%=RS("Movie3")%> <%end if%> <%if RS("SupportFile1")<>"" then %>  " title="Open PDF File"><%=RS("SupportFile1")%> <%end if%> <%if RS("SupportFile2")<>"" then %>  " title="Open PDF File"><%=RS("SupportFile2")%> <%end if%> <%if RS("SupportFile3")<>"" then %>  " title="Open PDF File"><%=RS("SupportFile3")%> <%end if%>

 Sketchpad Virtual Manipulatives
National Library of Virtual Manipulatives