%@LANGUAGE="VBSCRIPT"%> <% set rsIDA1 = Server.CreateObject("ADODB.Recordset") rsIDA1.ActiveConnection = MM_connEDIT6170_STRING rsIDA1.Source = "SELECT * FROM IDA1 WHERE ida1.participant_id = 6 AND ida LIKE 'lesson design'" rsIDA1.CursorType = 0 rsIDA1.CursorLocation = 2 rsIDA1.LockType = 3 rsIDA1.Open() rsIDA1_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
Instructional
Design Activity: Lesson Design Example
Designer's Name: Lloyd Rieber
Instructional Strategy Planning Sheet
Write the instructional objectives of your lesson here (it can be more than one):
Your response:
<%=(rsIDA1.Fields.Item("context").Value)%>
Enter your instructional plan for each of the instructional components. Also indicate your media choice for each instructional component.
|
Instructional
Component
|
Instructional
Plan
|
Media Choice
|
|
1. Pre-instructional activities
2. Content presentation
3. Learner participation
4. Assessment
5. Follow-through activities
|
Your response: <%=(rsIDA1.Fields.Item("system_parts").Value)%>
|
Your response: <%=(rsIDA1.Fields.Item("symptoms").Value)%>
|
Provide a rationale for your media choices. How do the media you have selected support the instructional plan you have designed? Do the affordances of the media you've selected match the instructional strategy and support student learning?
Examples of media affordances:
Your response:
<%=(rsIDA1.Fields.Item("symptoms_explanation").Value)%>
<% rsIDA1.Close() %>