%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_connEDIT6170_STRING MM_editTable = "IDA1" MM_editRedirectUrl = "../profiles/participant_page2.asp" MM_fieldsStr = "context|value|system_parts|value|symptoms|value|symptoms_explanation|value|ps_draft|value|data_sources|value|data|value|needs|value|needs_priority|value|participant_id|value|buddy_id|value|ida|value|semester|value|instructor|value" MM_columnsStr = "context|',none,''|system_parts|',none,''|symptoms|',none,''|symptoms_explanation|',none,''|ps_draft|',none,''|data_sources|',none,''|data|',none,''|needs|',none,''|need_priority|',none,''|participant_id|none,none,NULL|buddy_id|none,none,NULL|ida|',none,''|semester|',none,''|instructor|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsParticipant__MMColParam rsParticipant__MMColParam = "1" if (Request.QueryString("participant_id") <> "") then rsParticipant__MMColParam = Request.QueryString("participant_id") %> <% set rsParticipant = Server.CreateObject("ADODB.Recordset") rsParticipant.ActiveConnection = MM_connEDIT6170_STRING rsParticipant.Source = "SELECT * FROM edit6170people WHERE participant_id = " + Replace(rsParticipant__MMColParam, "'", "''") + "" rsParticipant.CursorType = 0 rsParticipant.CursorLocation = 2 rsParticipant.LockType = 3 rsParticipant.Open() rsParticipant_numRows = 0 %> <% Dim IDA1__MMColParam IDA1__MMColParam = "1" if (Request.QueryString("participant_id") <> "") then IDA1__MMColParam = Request.QueryString("participant_id") %> <% set IDA1 = Server.CreateObject("ADODB.Recordset") IDA1.ActiveConnection = MM_connEDIT6170_STRING IDA1.Source = "SELECT * FROM IDA1 WHERE participant_id = " + Replace(IDA1__MMColParam, "'", "''") + "" IDA1.CursorType = 0 IDA1.CursorLocation = 2 IDA1.LockType = 3 IDA1.Open() IDA1_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: Unit Design
Designer's Name:
The purpose of this step is for you to expand one of the objectives that you identified in the course design IDA. As you work through this IDA, you will begin to notice that you will be repeating the same steps, but with one of the unit objectives. You will again implement a hierarchical process by analyzing the task at different levels.
Click here to view Lloyd's instructional curriculum map on one of the units in his Dreamweaver course example.
<% rsParticipant.Close() %> <% IDA1.Close() %>