<%@LANGUAGE="VBSCRIPT"%><% ' *** Insert Record: construct a sql insert statement and execute it MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If If (CStr(Request("MM_insert")) <> "") Then MM_tableName = "Resultados" MM_fields = "grupo,IdGrupo,none,none,NULL,profe,IdMaestro,none,none,NULL,q1,q1,none,none,NULL,q2,q2,none,none,NULL,q3,q3,none,none,NULL,q4,q4,none,none,NULL,q5,q5,none,none,NULL,q6,q6,none,none,NULL,q7,q7,none,none,NULL,q8,q8,none,none,NULL,q9,q9,none,none,NULL,q10,q10,none,none,NULL,q11,q11,none,none,NULL,q12,q12,none,none,NULL,q13,q13,none,none,NULL,q14,q14,none,none,NULL,q15,q15,none,none,NULL" MM_redirectPage = "adios.asp" ' create the insert sql statement MM_tableValues = "" MM_dbValues = "" MM_fieldsArray = Split(MM_fields, ",") For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5 FormVal = CStr(Request.Form(MM_fieldsArray(i))) Delim = MM_fieldsArray(i+2) If (Delim = "none") Then Delim = "" AltVal = MM_fieldsArray(i+3) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_fieldsArray(i+4) 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_fieldsArray)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_fieldsArray(i+1) MM_dbValues = MM_dbValues & FormVal Next MM_insertStr = "insert into " & MM_tableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" ' finish the sql and execute it Set MM_insertCmd = Server.CreateObject("ADODB.Command") MM_insertCmd.ActiveConnection = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\hosting\insmon\institutomontini.com\db\EvaMaestros.mdb" MM_insertCmd.CommandText = MM_insertStr MM_insertCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And (Request.QueryString <> "")) Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\hosting\insmon\institutomontini.com\db\EvaMaestros.mdb" Recordset1.Source = "SELECT * FROM Grupos" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open Recordset1_numRows = 0 %> <% set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\hosting\insmon\institutomontini.com\db\EvaMaestros.mdb" Recordset2.Source = "SELECT * FROM Maestros ORDER BY NombreMaestro ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.Open Recordset2_numRows = 0 %> <% set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\hosting\insmon\institutomontini.com\db\EvaMaestros.mdb" Recordset3.Source = "SELECT * FROM Resultados" ' Recordset3.CursorType = 0 ' Recordset3.CursorLocation = 2 ' Recordset3.LockType = 3 ' Recordset3.Open ' Recordset3_numRows = 0 %> Evaluacion de Profesores Instituto Montini, A.C.

 Evaluacion del profesorado

   Responde las preguntas con sinceridad no con tus sentimientos. Esta evaluacion es confidencial

GRUPO: PROFESOR:

1. El profesor ha dado a conocer los objetivos del curso y su contenido?

Si
No
No se

2. El profesor ha dado a conocer las formas y criterios que usará para evaluar el aprendizaje?

Si
No
No se

3. El profesor asiste puntualmente a sus clases?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

4. El profesor aprovecha adecuadamente el tiempo de su clase?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

5. El profesor atiende con paciencia preguntas y solicitudes de aclaración?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

6. Las lecturas, tareas y prácticas que sugiere ayuda a reforzar lo aprendido?

Si
No
No se

7. Se toma lista de asistencia?

Si
No
No se

8. En los exámenes, se pregunta lo que se enseñó?

Si
No
No se

9. El profesor despierta tu entusiasmo por la materia?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

10. El profesor manifiesta su interes por que aprendas?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

11. El profesor domina la materia que enseña?

Si
No
No se

12. El profesor revisa y califica los exámenes y tareas?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

13. En la clase, se utilizan distintos métodos y meteria didáctico (Ej. acetatos, videos, mapas, grupos)?

Siempre
Casi siempre
Solo algunas veces
Nunca
No tengo elementos para opinar

14. Su manera de exponer los temas es clara o complicada?

Clara
Complicada
No se

15. El profesor tiene control de la conducta del grupo?

Si
No
No se