|
<%=objfldSubject%>
To access PDF files
of NTTI lessons, click on your choice of title.
<%
function buildGradeLevel(startGrade, endGrade)
returnValue = ""
if startGrade="" then
returnValue = ""
elseif (startGrade=endGrade OR endGrade="") then
returnValue = "(" & startGrade & ")"
else
returnValue = "(" & startGrade & " - " & endGrade & ")"
end if
buildGradeLevel = returnValue
end function
function buildFullOverview(rs, memoFieldName)
returnValue = ""
''This construct shoudl change to Do while control structure
''mainChunk = overviewField.GetChunk(4000)
'returnValue = mainChunk
''Do Until IsNull(mainChunk)
'' mainChunk = overviewField.GetChunk(4000)
'' returnValue = returnValue & mainChunk
''Loop
mainChunk = rs.Fields(memoFieldName).GetChunk(4000)
returnValue = mainChunk
Do Until IsNull(mainChunk)
mainChunk = rs.Fields(memoFieldName).GetChunk(4000)
returnValue = returnValue & mainChunk
Loop
buildFullOverview = returnValue
end function
Do until objRS.EOF
%>
<%=objfldlessonTitle%>
<%=buildGradeLevel(objfldGradeStart,objfldGradeEnd)%>
<%
If (objYopFld=null or isNull(objYopFld)) then
if objIsGrant then
Response.write(objfldoverview & " (SVTC NTTI Participant Lesson)")
else
Response.write(objfldoverview & " (NTTI Master Teacher Lesson)")
end if
else
if objIsGrant then
Response.write(objfldoverview & " (" &objYopFld&" SVTC NTTI Participant Lesson)")
else
Response.write(objfldoverview & " (" &objYopFld&" NTTI Master Teacher Lesson)")
end if
end if
%>
<%
Response.flush
objRS.movenext
Loop
set objfldGradeStart = nothing
set objfldGradeEnd = nothing
set objfldlessonTitle = nothing
set objfldname = nothing
set objfldoverview = nothing
set objfldID = nothing
set objRS = nothing
'set objconn = nothing
%>
|
