%@ 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) %>
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%>
|
<%=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 |