<%@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 = "Assess" 'MM_editConnection = MM_connassess_STRING MM_editTable = "factech_2002" MM_editRedirectUrl = "insert.asp" MM_fieldsStr = "q1a1|value|q1a2|value|q1a3|value|q1a4|value|q1a5|value|q1a6|value|q1a7|value|q1b|value|q1c|value|u1|value|g1|value|u2|value|g2|value|u3|value|g3|value|u4|value|g4|value|u5|value|g5|value|u6|value|g6|value|u7|value|g7|value|u8|value|g8|value|u9|value|g9|value|u10|value|g10|value|u11|value|g11|value|u12|value|g12|value|u13|value|g13|value|u14|value|g14|value|q2c|value|q3a|value|q3b|value|q3c|value|q3d|value|q3e|value|q3f|value|q3g|value|q3h|value|q3i|value|q3j|value|q3k|value|q4a|value|q4b|value|q4c|value|q4d|value|q4e|value|q4f|value|q4g|value|q4h|value|q5a|value|q5b|value|q5c|value|q5d|value|q6e|value|q6a|value|q6b|value|q6c|value|q6d|value|q7|value|q8a|value|q8b|value|q9a|value|q9b|value|q9c|value|q10|value|q11c|value" MM_columnsStr = "q1a1|',none,''|q1a2|',none,''|q1a3|',none,''|q1a4|',none,''|q1a5|',none,''|q1a6|',none,''|q1a7|',none,''|q1b|',none,''|q1c|',none,''|u1|none,1,0|g1|none,1,0|u2|none,1,0|g2|none,1,0|u3|none,1,0|g3|none,1,0|u4|none,1,0|g4|none,1,0|u5|none,1,0|g5|none,1,0|u6|none,1,0|g6|none,1,0|u7|none,1,0|g7|none,1,0|u8|none,1,0|g8|none,1,0|u9|none,1,0|g9|none,1,0|u10|none,1,0|g10|none,1,0|u11|none,1,0|g11|none,1,0|u12|none,1,0|g12|none,1,0|u13|none,1,0|g13|none,1,0|u14|none,1,0|g14|none,1,0|q2c|',none,''|q3a|none,none,NULL|q3b|none,none,NULL|q3c|none,none,NULL|q3d|none,none,NULL|q3e|none,none,NULL|q3f|none,none,NULL|q3g|none,none,NULL|q3h|none,none,NULL|q3i|none,none,NULL|q3j|none,none,NULL|q3k|none,none,NULL|q4a|none,none,NULL|q4b|none,none,NULL|q4c|none,none,NULL|q4d|none,none,NULL|q4e|none,none,NULL|q4f|none,none,NULL|q4g|none,none,NULL|q4h|none,none,NULL|q5a|none,none,NULL|q5b|none,none,NULL|q5c|none,none,NULL|q5d|none,none,NULL|q6e|none,none,NULL|q6a|none,none,NULL|q6b|none,none,NULL|q6c|none,none,NULL|q6d|none,none,NULL|q7|none,none,NULL|q8a|none,1,0|q8b|none,1,0|q9a|none,1,0|q9b|none,1,0|q9c|none,1,0|q10|none,none,NULL|q11c|',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 %> WCU Technology in Teaching Survey 2002

Western Carolina University
Faculty Technology Survey

The following survey is designed by the Office of University Planning in conjunction with Academic Affairs to obtain information on current computer technology applications in teaching. Individual responses are confidential as well as encrypted so that no one can read your responses while submitting the information online. Only summary information will be reported to the university community. The survey will take you about 10 minutes to complete.  When you have completed the survey form, click on the submit button (only once!) at the end of the form. If you have problems or questions, please contact Kirsten Huscusson by email, khuscusson@email.wcu.edu or by phone at 227-3042. Thank you for taking the time to complete this form.


1a.  Please give your opinion on each of the following: (Use your mouse to click on the most appropriate response)

Strongly Agree Agree Neutral  Disagree  Strongly Disagree Don’t use/does not apply
I'd like assistance in moving my traditional "in-class"activities towards an on-line web-based environment.
I'd like training in course content development for the web.
I'd like instruction in the use of scanners, digital cameras/camcorders, etc.
I'd like to learn more about palm/wireless computing devices to support teaching.
I am  interested in having a faculty mentor help me develop my technology skills.
I'd like training in developing web pages.
I’ve received adequate technical support for using technology in my teaching.

1b.  If you have not received adequate support for using technology in your teaching, please explain: (Text will wrap as you type in the box below)

1c. What type of technology do you feel most pressed to master at this time? (Text will wrap as you type in the box below)

2a. In my classes, I......   (Please click on all appropriate class level boxes for each item)

Undergraduate Graduate
Make assignments requiring the use of a word processing program (e.g. Word)
Make assignments requiring the use of a spreadsheet program (e.g. Excel)
Make assignments requiring the use of a statistical package
Make assignments requiring the use of discipline-specific software
Make assignments requiring the use of a presentation package (e.g. PowerPoint)
Make assignments requiring the use of a database program (e.g. Access)
Use email to communicate with individual students
Use email to communicate with an entire class
Require students to build a web page
Require students to access internet
Use Campus Pipeline to communicate with my students
Use palm devices with students
Use wireless technology
Require the usage of a departmental computer lab

2b. The single greatest barrier to my using on-line or internet web-based technology is:  (Text will wrap as you type in the box below)
 

3a.  How many regular (exclude independent study, etc.) courses are you teaching this semester?

1 2 3 4 5 6

3b.  How many courses have web sites?

1 2 3 4 5 6

3c.  Please indicate whether you use the Web to do the following in regularly scheduled (non-distance education) classes:

Post my syllabus   Yes  No

Never  Occasionally  Frequently
  Post lecture notes 
  Post assignments
  Provide examples of assigned projects 
  Provide links to on-line resources 
  Give examinations or quizzes
  Use student chat rooms
  Help manage class content and instruction
  Conduct online discussions

  4. Please evaluate the impact of computer technology on each of the following: 

Increased No effect  Decreased Don’t use/No opinion
Interaction between me and my students
Interaction between students
Active learning opportunities for students
My students’ time-on-task
My ability to provide rapid, frequent feedback
My expectations of my students
My respect for different talents and ways of learning
My teaching effectiveness 

 

5. I would use the following technology in the classroom if I had student copies of:

Yes No  No opinion
Dreamweaver, Flash, Authorware, Fireworks
Photoshop, Pagemaker
WebHelp
Illustrator/Freehand

6. I would use these instructional tools if they were made available:

Yes No  No opinion
Dreamweaver, Flash, Authorware, Fireworks
Electronic Gradebook software
Exam/Test Creator software
Graphic Organizer software
SurveyPro software

7. College of primary teaching responsibilities: (Please click on only one response)

Applied Sciences Arts and Sciences Business Education and Allied Professions


8.  Course level taught (Check all that apply):

Undergraduate Graduate

9.  Location of courses taught (Check all that apply):

Asheville    Cullowhee   Other

10.  I teach: (please click on only one response)

full-time part-time

11. Other Comments:
 
 


    Click on the submit button (only once!) to finish the survey.

Thank you for your time and assistance!