<% opt=Request.QueryString("opt") combo_treinamento = request.Form("combo_treinamento") call db_open() %> IPESO
<% End If %> <% If (opt="1") Then sql_lista="select count(*) as total from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento set rs = con.execute(sql_lista) total_questionarios=rs("total") for i = 1 to 5 var_radio="radio1=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio11=rs("totradio") end if if i=2 then radio12=rs("totradio") end if if i=3 then radio13=rs("totradio") end if if i=4 then radio14=rs("totradio") end if if i=5 then radio15=rs("totradio") end if next for i = 1 to 5 var_radio="radio2=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio21=rs("totradio") end if if i=2 then radio22=rs("totradio") end if if i=3 then radio23=rs("totradio") end if if i=4 then radio24=rs("totradio") end if if i=5 then radio25=rs("totradio") end if next for i = 1 to 5 var_radio="radio3=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio31=rs("totradio") end if if i=2 then radio32=rs("totradio") end if if i=3 then radio33=rs("totradio") end if if i=4 then radio34=rs("totradio") end if if i=5 then radio35=rs("totradio") end if next for i = 1 to 5 var_radio="radio4=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio41=rs("totradio") end if if i=2 then radio42=rs("totradio") end if if i=3 then radio43=rs("totradio") end if if i=4 then radio44=rs("totradio") end if if i=5 then radio45=rs("totradio") end if next for i = 1 to 5 var_radio="radio5=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio51=rs("totradio") end if if i=2 then radio52=rs("totradio") end if if i=3 then radio53=rs("totradio") end if if i=4 then radio54=rs("totradio") end if if i=5 then radio55=rs("totradio") end if next for i = 1 to 5 var_radio="radio6=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio61=rs("totradio") end if if i=2 then radio62=rs("totradio") end if if i=3 then radio63=rs("totradio") end if if i=4 then radio64=rs("totradio") end if if i=5 then radio65=rs("totradio") end if next for i = 1 to 5 var_radio="radio7=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio71=rs("totradio") end if if i=2 then radio72=rs("totradio") end if if i=3 then radio73=rs("totradio") end if if i=4 then radio74=rs("totradio") end if if i=5 then radio75=rs("totradio") end if next for i = 1 to 5 var_radio="radio8=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio81=rs("totradio") end if if i=2 then radio82=rs("totradio") end if if i=3 then radio83=rs("totradio") end if if i=4 then radio84=rs("totradio") end if if i=5 then radio85=rs("totradio") end if next for i = 1 to 5 var_radio="radio9=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio91=rs("totradio") end if if i=2 then radio92=rs("totradio") end if if i=3 then radio93=rs("totradio") end if if i=4 then radio94=rs("totradio") end if if i=5 then radio95=rs("totradio") end if next for i = 1 to 5 var_radio="radio10=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio101=rs("totradio") end if if i=2 then radio102=rs("totradio") end if if i=3 then radio103=rs("totradio") end if if i=4 then radio104=rs("totradio") end if if i=5 then radio105=rs("totradio") end if next for i = 1 to 5 var_radio="radio11=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio111=rs("totradio") end if if i=2 then radio112=rs("totradio") end if if i=3 then radio113=rs("totradio") end if if i=4 then radio114=rs("totradio") end if if i=5 then radio115=rs("totradio") end if next for i = 1 to 5 var_radio="radio12=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio121=rs("totradio") end if if i=2 then radio122=rs("totradio") end if if i=3 then radio123=rs("totradio") end if if i=4 then radio124=rs("totradio") end if if i=5 then radio125=rs("totradio") end if next for i = 1 to 5 var_radio="radio13=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio131=rs("totradio") end if if i=2 then radio132=rs("totradio") end if if i=3 then radio133=rs("totradio") end if if i=4 then radio134=rs("totradio") end if if i=5 then radio135=rs("totradio") end if next for i = 1 to 5 var_radio="radio14=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio141=rs("totradio") end if if i=2 then radio142=rs("totradio") end if if i=3 then radio143=rs("totradio") end if if i=4 then radio144=rs("totradio") end if if i=5 then radio145=rs("totradio") end if next for i = 1 to 5 var_radio="radio15=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio151=rs("totradio") end if if i=2 then radio152=rs("totradio") end if if i=3 then radio153=rs("totradio") end if if i=4 then radio154=rs("totradio") end if if i=5 then radio155=rs("totradio") end if next for i = 1 to 5 var_radio="radio16=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio161=rs("totradio") end if if i=2 then radio162=rs("totradio") end if if i=3 then radio163=rs("totradio") end if if i=4 then radio164=rs("totradio") end if if i=5 then radio165=rs("totradio") end if next for i = 1 to 5 var_radio="radio17=" & i sql_lista="select count(*) as totradio from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento & " AND " & var_radio set rs = con.execute(sql_lista) if i=1 then radio171=rs("totradio") end if if i=2 then radio172=rs("totradio") end if if i=3 then radio173=rs("totradio") end if if i=4 then radio174=rs("totradio") end if if i=5 then radio175=rs("totradio") end if next 'nota 1 = péssimo, nota 2 = ruim, nota 3 = regular, nota 4 = bom, nota 5 = ótimo %>
Listagem de pesquisas
<% If (opt="") Then %>
Listagem de pesquisas
       
<% end If %>
<% if opt="" then %>

<% sql="select * from CF_TREINAMENTO where ID_CF_TREINAMENTO=" & combo_treinamento set rs1 = con.execute(sql) combo_titulo= rs1("TITULO") %> <% for x = 1 to 16 for i = 1 to 5 var_radio=eval("radio" & x & i) pvar_radio="0.00 %" If (total_questionarios<>0) Then pvar_radio=FormatPercent(var_radio/total_questionarios) End if %> <% if (x=1) and (i=1) then %> <% end if %> <% if (x=2) and (i=1) then %> <% end if %> <% if (x=3) and (i=1) then %> <% end if %> <% if (x=4) and (i=1) then %> <% end if %> <% if (x=5) and (i=1) then %> <% end if %> <% if (x=6) and (i=1) then %> <% end if %> <% if (x=7) and (i=1) then %> <% end if %> <% if (x=8) and (i=1) then %> <% end if %> <% if (x=9) and (i=1) then %> <% end if %> <% if (x=10) and (i=1) then %> <% end if %> <% if (x=11) and (i=1) then %> <% end if %> <% if (x=12) and (i=1) then %> <% end if %> <% if (x=13) and (i=1) then %> <% end if %> <% if (x=14) and (i=1) then %> <% end if %> <% if (x=15) and (i=1) then %> <% end if %> <% if (x=16) and (i=1) then %> <% end if %> <% next %> <% next %> <% radio171=0 radio172=0 radio173=0 radio174=0 radio175=0 pradio171="0.00 %" pradio172="0.00 %" pradio173="0.00 %" pradio174="0.00 %" pradio175="0.00 %" If (total_questionarios<>0) Then pradio171=FormatPercent(radio171/total_questionarios) pradio172=FormatPercent(radio172/total_questionarios) pradio173=FormatPercent(radio173/total_questionarios) pradio174=FormatPercent(radio174/total_questionarios) pradio175=FormatPercent(radio175/total_questionarios) End if %> <% sql_lista="select texto1 from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento set rs = con.execute(sql_lista) %> <% while not rs.eof %> <% rs.moveNext : wend %> <% sql_lista="select texto2 from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento set rs = con.execute(sql_lista) %> <% while not rs.eof %> <% rs.moveNext : wend %> <% sql_lista="select texto3 from CF_PESQUISA_QUALIDADE WHERE id_status_treinamento= " & combo_treinamento set rs = con.execute(sql_lista) %> <% while not rs.eof %> <% rs.moveNext : wend %>
Data do Treinamento <% response.write rs1("DATA_CADASTRO") %>
Hora <% response.write rs1("HORARIO") %>
Título <% response.write rs1("TITULO") %>
Estado <% response.write rs1("ESTADO") %>
Cidade <% response.write rs1("CIDADE") %>
Bairro <% response.write rs1("BAIRRO") %>
Endereço <% response.write rs1("ENDERECO") %>
Local <% response.write rs1("ENDERECO") %>
Título da pesquisa Péssimo    Ruim       Regular    Bom       Ótimo   
Dia e Horário agendados
Localização do Hotel
Atendimento dos funcionários do Hotel
Sistema de comunicação por E-mail
Conforto da sala de reuniões do Hotel
Pontualidade do início da palestra
Cordialidade da funcionária da ESOPE
Clareza na apresentação da proposta de trabalho
Clareza nas instruções de preenchimento do questionário
Disposição da funcionária em esclarecer todas as dúvidas
Duração do treinamento
Remuneração
Forma de pagamento
Prazos de pagamento
Forma de envio e entrega de material
Quantidade de entrevistas<% response.write pvar_radio & " ("&var_radio&")" %>
           
De uma maneira geral, após participar da palestra de instruções e treinamento, você ficou ?          
Muito animado e com vontade de realizar o trabalho : <% response.write pradio171 & " ("&radio171&")" %>        
Com vontade de realizar o trabalho : <% response.write pradio172 & " ("&radio172&")" %>        
Ficou em dúvida : <% response.write pradio173 & " ("&radio173&")" %>        
Desanimado, sem vontade de realizar o trabalho : <% response.write pradio174 & " ("&radio174&")" %>        
Sem nenhuma vontade de realizar o trabalho : <% response.write pradio175 & " ("&radio175&")" %>        
           
De tudo o que foi apresentado a você, o que você gostou mais, achou mais interessante ?          
Resposta : <% db_write(rs("texto1")) %>
O que você não gostou ?          
Resposta : <% db_write(rs("texto2")) %>
No que podemos melhorar ? Deixe aqui suas sugestões para que possamos melhorar nosso recrutamento e seleção:          
Resposta : <% db_write(rs("texto3")) %>
Total de Questionários Respondidos : <% response.write total_questionarios %>

  <% end if %>