Easiteach - Example Literacy Lessons

<%@ Language=VBScript %> <% '-------------------------------------------------------------------------------- 'Main '-------------------------------------------------------------------------------- dim intAge,intFramework,intScheme,intStrand,intActivity,intScreen,intSpecial,intGroup dim intTempAge,intTempFramework,intTempScheme,intType dim strScheme,strAge,strFramework,strSchemeImage,strQueryString,strWCTName,strIDs 'Get data from the query string intTempAge = 4 intTempFramework = 9 intTempScheme = 4 intStrand = Request.QueryString("Strand") intActivity=Request.QueryString("Activity") select case intActivity case 151,154,188,141,107,164,118,169,176 'fine case else intActivity=151 end select intScreen=Request.QueryString("Screen") strWCTName=Request.QueryString("WCT") intSpecial=1 strIDs="151,154,188,141,107,164,118,169,176" intType=Request.QueryString("Type") strQueryString="?Age=" & intTempAge & "&Framework=" & intTempFramework & "&Scheme=" & intTempScheme & "&Strand=" & intStrand & "&Type=" & intType & "&Special=" & intSpecial & "&Activity=" & intActivity & "&IDList=" & strIDs intGroup=1 '-------------------------------------------------------------------------------- 'End of Main '-------------------------------------------------------------------------------- '-------------------------------------------------------------------------------- 'Functions '-------------------------------------------------------------------------------- function getName() 'as String 'Returns the Activity name given a Activity ID dim objActivity,rsActivity,strSQL strSQL="spGetMasterTitle " & intActivity Set objActivity = Server.CreateObject("Livlib.DataConnection") Set rsActivity = objActivity.GetRecordSet(strSQL, session("ET_Connection")) getName=rsActivity("vcTitle") Set objActivity=Nothing Set rsActivity=Nothing end function '-------------------------------------------------------------------------------- 'End of Functions '-------------------------------------------------------------------------------- %> Easiteach - Example Literacy Lessons


	easiteach.co.uk -> Easiteach Literacy -> Example Literacy Lessons -> Lesson Details -> Screenshot



			Rhyme in Poetry - Page 1