|
Search
the NTTI Lesson Database
All lessons on this website are written by classroom teachers. If the NTTI logo appears at the top of the PDF file, the lesson was written by an NTTI Master Teacher. If the SVTC logo appears at the top of a PDF file, the lesson was written by an NTTI participant.
 
Lessons By Grade
K-2
3-5
6-8
9-12
Staff Development
Lessons By Subject
<%
'Our query holds ID and name columns from the tblsubject.
DIM objfldID, objfldName
'create connection object
Dim objCmd', objRS
set objCmd = Server.CreateObject("ADODB.Command")
set objRS = Server.CreateObject("ADODB.RecordSet")
set objCmd.ActiveConnection = objConn
'--- the command will be executed later on in the script: As will the record set be created if the retval is not -1.
objCmd.CommandText = "{? = call pbs_list_lesson_sol_subjects}"
objCmd.Parameters.Append objCmd.CreateParameter("RetVal", 3, 4, 0)
objRS.open objCmd
set objfldID = objRS("ID")
set objfldName = objRS("name")
Do until objRS.EOF
%>
<%=objfldName%>
<%
objRS.moveNext
Loop
set objfldID = nothing
set objfldName = nothing
set objRS = nothing
set objCmd = nothing
'set objconn = nothing
%>
You will need Adobe
Acrobat Reader to view all lesson files in PDF format. If you do
not have it, download a free copy from Adobe.com.
|
