<% ' FP_ASP ASP gerado automaticamente por um componente do FrontPage. Não edite. On Error Resume Next strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Não é possível criar conexão" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Não é possível criar o conjunto de registros" fp_conn.Open Application("index_ConnectionString") FP_DumpError strErrorUrl, "Não é possível abrir o banco de dados" fp_rs.Open "Resultados", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Não é possível abrir o conjunto de registros" fp_rs.AddNew FP_DumpError strErrorUrl, "Não é possível adicionar novo conjunto de registros ao banco de dados" Dim arFormFields0(56) Dim arFormDBFields0(56) Dim arFormValues0(56) arFormFields0(0) = "recursos_Outros, quais:" arFormDBFields0(0) = "recursos_Outros,_quais:" arFormValues0(0) = Request("recursos_Outros, quais:") arFormFields0(1) = "caracteristicas_fornecer estímulos" arFormDBFields0(1) = "caracteristicas_fornecer_estímulos" arFormValues0(1) = Request("caracteristicas_fornecer estímulos") arFormFields0(2) = "qdificuld_Outras. Quais" arFormDBFields0(2) = "qdificuld_Outras__Quais" arFormValues0(2) = Request("qdificuld_Outras. Quais") arFormFields0(3) = "idade" arFormDBFields0(3) = "idade" arFormValues0(3) = Request("idade") arFormFields0(4) = "instituicao" arFormDBFields0(4) = "instituicao" arFormValues0(4) = Request("instituicao") arFormFields0(5) = "melhoraprendi_Exercícios on-line" arFormDBFields0(5) = "melhoraprendi_Exercícios_on-line" arFormValues0(5) = Request("melhoraprendi_Exercícios on-line") arFormFields0(6) = "caracteristicas_aceitação de críticas e sugestões" arFormDBFields0(6) = "caracteristicas_aceitação_de_críticas_e_sugestões" arFormValues0(6) = Request("caracteristicas_aceitação de críticas e sugestões") arFormFields0(7) = "caracteristicas_outra, qual?" arFormDBFields0(7) = "caracteristicas_outra,_qual?" arFormValues0(7) = Request("caracteristicas_outra, qual?") arFormFields0(8) = "melhoraprendi_Outros, quais:" arFormDBFields0(8) = "melhoraprendi_Outros,_quais:" arFormValues0(8) = Request("melhoraprendi_Outros, quais:") arFormFields0(9) = "caracteristicas_flexibilidade" arFormDBFields0(9) = "caracteristicas_flexibilidade" arFormValues0(9) = Request("caracteristicas_flexibilidade") arFormFields0(10) = "qdificuld_Dificuldade em se expressar" arFormDBFields0(10) = "qdificuld_Dificuldade_em_se_expressar" arFormValues0(10) = Request("qdificuld_Dificuldade em se expressar") arFormFields0(11) = "recursos_Publicacao" arFormDBFields0(11) = "recursos_Publicacao" arFormValues0(11) = Request("recursos_Publicacao") arFormFields0(12) = "melhoraprendi_publicacao" arFormDBFields0(12) = "melhoraprendi_publicacao" arFormValues0(12) = Request("melhoraprendi_publicacao") arFormFields0(13) = "importancia" arFormDBFields0(13) = "importancia" arFormValues0(13) = Request("importancia") arFormFields0(14) = "caracteristicas_disposição para colaborar" arFormDBFields0(14) = "caracteristicas_disposição_para_colaborar" arFormValues0(14) = Request("caracteristicas_disposição para colaborar") arFormFields0(15) = "tecnica" arFormDBFields0(15) = "tecnica" arFormValues0(15) = Request("tecnica") arFormFields0(16) = "recursos" arFormDBFields0(16) = "recursos" arFormValues0(16) = Request("recursos") arFormFields0(17) = "melhoraprendi_Relatos" arFormDBFields0(17) = "melhoraprendi_Relatos" arFormValues0(17) = Request("melhoraprendi_Relatos") arFormFields0(18) = "qdificuld_Demora nas respostas" arFormDBFields0(18) = "qdificuld_Demora_nas_respostas" arFormValues0(18) = Request("qdificuld_Demora nas respostas") arFormFields0(19) = "vantagens" arFormDBFields0(19) = "vantagens" arFormValues0(19) = Request("vantagens") arFormFields0(20) = "recursos_Fóruns de debate" arFormDBFields0(20) = "recursos_Fóruns_de_debate" arFormValues0(20) = Request("recursos_Fóruns de debate") arFormFields0(21) = "umrecurso" arFormDBFields0(21) = "umrecurso" arFormValues0(21) = Request("umrecurso") arFormFields0(22) = "caracteristicas_agilidade nas respostas" arFormDBFields0(22) = "caracteristicas_agilidade_nas_respostas" arFormValues0(22) = Request("caracteristicas_agilidade nas respostas") arFormFields0(23) = "qdificuld_Falta de colaboração" arFormDBFields0(23) = "qdificuld_Falta_de_colaboração" arFormValues0(23) = Request("qdificuld_Falta de colaboração") arFormFields0(24) = "recursos_Email" arFormDBFields0(24) = "recursos_Email" arFormValues0(24) = Request("recursos_Email") arFormFields0(25) = "melhoraprendi_Vídeo-aulas" arFormDBFields0(25) = "melhoraprendi_Vídeo-aulas" arFormValues0(25) = Request("melhoraprendi_Vídeo-aulas") arFormFields0(26) = "teveorientador" arFormDBFields0(26) = "teveorientador" arFormValues0(26) = Request("teveorientador") arFormFields0(27) = "tutqualidade" arFormDBFields0(27) = "tutqualidade" arFormValues0(27) = Request("tutqualidade") arFormFields0(28) = "curso" arFormDBFields0(28) = "curso" arFormValues0(28) = Request("curso") arFormFields0(29) = "recursos_Aulas interativas (chats)" arFormDBFields0(29) = "recursos_Aulas_interativas_(chats)" arFormValues0(29) = Request("recursos_Aulas interativas (chats)") arFormFields0(30) = "recursos_Vídeo-aulas" arFormDBFields0(30) = "recursos_Vídeo-aulas" arFormValues0(30) = Request("recursos_Vídeo-aulas") arFormFields0(31) = "caracteristicas_fornecer feedback" arFormDBFields0(31) = "caracteristicas_fornecer_feedback" arFormValues0(31) = Request("caracteristicas_fornecer feedback") arFormFields0(32) = "caracteristicas_facilidade de se expressar" arFormDBFields0(32) = "caracteristicas_facilidade_de_se_expressar" arFormValues0(32) = Request("caracteristicas_facilidade de se expressar") arFormFields0(33) = "qdificuld_Não aceitação de críticas e sugestões" arFormDBFields0(33) = "qdificuld_Não_aceitação_de_críticas_e_sugestões" arFormValues0(33) = Request("qdificuld_Não aceitação de críticas e sugestões") arFormFields0(34) = "dificuldades" arFormDBFields0(34) = "dificuldades" arFormValues0(34) = Request("dificuldades") arFormFields0(35) = "melhoraprendi_Aulas interativas (chats)" arFormDBFields0(35) = "melhoraprendi_Aulas_interativas_(chats)" arFormValues0(35) = Request("melhoraprendi_Aulas interativas (chats)") arFormFields0(36) = "dificuldade" arFormDBFields0(36) = "dificuldade" arFormValues0(36) = Request("dificuldade") arFormFields0(37) = "qdificuld_Falta de liderança" arFormDBFields0(37) = "qdificuld_Falta_de_liderança" arFormValues0(37) = Request("qdificuld_Falta de liderança") arFormFields0(38) = "recursos_Textos eletrônicos" arFormDBFields0(38) = "recursos_Textos_eletrônicos" arFormValues0(38) = Request("recursos_Textos eletrônicos") arFormFields0(39) = "nivel" arFormDBFields0(39) = "nivel" arFormValues0(39) = Request("nivel") arFormFields0(40) = "melhoraprendi_Email" arFormDBFields0(40) = "melhoraprendi_Email" arFormValues0(40) = Request("melhoraprendi_Email") arFormFields0(41) = "caracteristicas_dominar o conteúdo" arFormDBFields0(41) = "caracteristicas_dominar_o_conteúdo" arFormValues0(41) = Request("caracteristicas_dominar o conteúdo") arFormFields0(42) = "qdificuld_Falta de feedback" arFormDBFields0(42) = "qdificuld_Falta_de_feedback" arFormValues0(42) = Request("qdificuld_Falta de feedback") arFormFields0(43) = "recursos_Exercícios on-line" arFormDBFields0(43) = "recursos_Exercícios_on-line" arFormValues0(43) = Request("recursos_Exercícios on-line") arFormFields0(44) = "melhoraprendi_Fóruns de debate" arFormDBFields0(44) = "melhoraprendi_Fóruns_de_debate" arFormValues0(44) = Request("melhoraprendi_Fóruns de debate") arFormFields0(45) = "caracteristicas_liderança" arFormDBFields0(45) = "caracteristicas_liderança" arFormValues0(45) = Request("caracteristicas_liderança") arFormFields0(46) = "qdificuld_Falta de estímulos" arFormDBFields0(46) = "qdificuld_Falta_de_estímulos" arFormValues0(46) = Request("qdificuld_Falta de estímulos") arFormFields0(47) = "qdificuld_Não dominava o conteúdo" arFormDBFields0(47) = "qdificuld_Não_dominava_o_conteúdo" arFormValues0(47) = Request("qdificuld_Não dominava o conteúdo") arFormFields0(48) = "tutdefeito" arFormDBFields0(48) = "tutdefeito" arFormValues0(48) = Request("tutdefeito") arFormFields0(49) = "qdificuld_Falta de flexibilidade" arFormDBFields0(49) = "qdificuld_Falta_de_flexibilidade" arFormValues0(49) = Request("qdificuld_Falta de flexibilidade") arFormFields0(50) = "melhoraprendi_Textos eletrônicos" arFormDBFields0(50) = "melhoraprendi_Textos_eletrônicos" arFormValues0(50) = Request("melhoraprendi_Textos eletrônicos") arFormFields0(51) = "necessidade" arFormDBFields0(51) = "necessidade" arFormValues0(51) = Request("necessidade") arFormFields0(52) = "recursos_Relatos" arFormDBFields0(52) = "recursos_Relatos" arFormValues0(52) = Request("recursos_Relatos") arFormFields0(53) = "vantagens1" arFormDBFields0(53) = "vantagens1" arFormValues0(53) = Request("vantagens1") arFormFields0(54) = "dificuldades1" arFormDBFields0(54) = "dificuldades1" arFormValues0(54) = Request("dificuldades1") arFormFields0(55) = "satisfeito" arFormDBFields0(55) = "satisfeito" arFormValues0(55) = Request("satisfeito") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_de_usuário" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_do_computador_remoto" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_de_navegador" End If FP_SaveFieldToDB fp_rs, Now, "Carimbo_de_hora" fp_rs.Update FP_DumpError strErrorUrl, "Não é possível atualizar o banco de dados" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Response.Redirect "agradecimento.html" End If End If %> Home page
<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & Server.HTMLEncode(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) If Err.Number <> 0 Then fp_conn.Close If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & strMsg & "

" Response.Write "Descrição do erro: " & Err.Description & "

" Response.Write "Nº do erro: " & Err.Number & "

" Response.Write "Origem do erro: " & Err.Source & "

" Response.End End If End if End Function %>

  1. Qual sua faixa etária?

    até 30 anos            de 31 a 40 anos            de 41 a 50 anos            acima de 51 anos

     

     

  2. De qual curso você está participando?

    MBA Executivo em Negócios Financeiros

    MBA Executivo em Gestão de Operações e Serviços

     

  3. Através de qual instituição?

    FGV - Fundação Getúlio Vargas Rio de Janeiro

    PUC - Pontifícia Universidade Católica Rio de Janeiro

    UnB/INEPAD - Universidade de Brasília  

    UFRGS - Universidade Federal do Rio Grande do Sul.

     

     

  4. Como você descreveria o tipo de envolvimento do professor/tutor na sua aprendizagem on-line?

    Participação de alto nível, fornecendo suporte acima do esperado

    Boa participação, fornecendo suporte necessário

    Pouca participação na minha aprendizagem

    Eu não penso que tive um professor

     

     

  5. Em seu curso de pós-graduação a distância, você foi orientado sobre como solucionar problemas com software por algum tutor/orientador de seu curso?

    Sim Não


     

  6. Quais recursos seu curso utiliza? (marque quantas alternativas forem necessárias).

    Aulas interativas (chats)                        Exercícios on-line       Fóruns de debate
Textos eletrônicos                               Relatos                  Vídeo-aulas
Publicação de materiais produzidos pelos alunos  E-mail                                                                                              
Outros, quais:                                   
     
     

  7. Dos recursos utilizados em seu curso, qual lhe proporcionou melhor experiência de aprendizagem?

    Aulas interativas (chats)                        Exercícios on-line       Fóruns de debate 
    Textos eletrônicos                               Relatos                  Vídeo-aulas
Publicação de materiais produzidos pelos alunos  E-mail
    Outros, quais:                                   
     
     

  8. Você teve Tutores, Monitores ou Orientadores durante seu curso? (pessoa que faz o elo de ligação entre os alunos e professores).

    Sim. Então por gentileza responda as questões abaixo
    Não. Siga para a questão nº 10.


     

  9. Atribua um valor de 1 a 5 para sua opinião sobre a importância dos tutores, monitores ou orientadores em sua aprendizagem.

    1 2 3 4 5

     


  10. Das qualidades abaixo, selecione TRÊS, que você considera fundamentais a um bom tutor:

    Flexibilidade                      Aceitação de críticas e sugestões  Disposição para colaborar
Fornecer feedback                  Agilidade nas respostas            Fornecer estímulos 
Dominar o conteúdo                 facilidade de se expressar         liderança
    Outra. Qual?                       
     
     

  11. Durante seu curso, houve algum problema, relacionado a tutoria, que tenha dificultado ou limitado sua participação?

    Sim Não


    Em caso positivo, qual ou quais:

    Falta de flexibilidade             Não aceitação de críticas e sugestões  Falta de colaboração
Falta de feedback                  Demora nas respostas                   Falta de estímulos
Não dominava o conteúdo            Dificuldade em se expressar            Falta de liderança
    Outras. Quais                          
     

  12. Você acredita que são necessários tutores para os cursos a distância desenvolvidos pelo Banco do Brasil?

    Sim Não


  13. Quais as principais vantagens que você identificou em realizar um curso a distância?

  14. Quais as maiores dificuldades que você encontrou durante a realização de seu curso a distância?

     

  15. Você está satisfeito com seu curso de pós graduação a distância?

    Sim Não