<% dim id_entrevista id_entrevista = Trim(Request.QueryString("id_entrevista")) for each item in request.form() if left(item, 3) = "QID" then if instr(item, "CHECKBOX") <> 0 then if instr(item, "OTHERCHECKBOX") <> 0 then nome = split(item, "||") id = right(nome(0), len(nome(0)) -3) texto = Request.Form("qid"&id&"othertext") 'response.Write(texto)'OTHERCHECKBOX sql = sql + "exec insere_resposta '" & id & "','0','" & texto & "','" & id_entrevista & "';" else nome = split(item, "||") id = right(nome(0), len(nome(0)) -3) questao = nome(2) 'response.Write(id & " : " & questao & "
") sql = sql + "exec insere_resposta '" & id & "','" & questao & "','" & texto & "','" & id_entrevista & "';" end if elseif (instr(item, "OTHERTEXT") = 0) then if (request.Form(item) = "AnswerOther") then id = right(item, len(item)-3) texto = Request.Form("qid"&id&"othertext") id_resposta = Request.Form(item) 'response.Write(texto) sql = sql + "exec insere_resposta '" & id & "','0','" & texto & "','" & id_entrevista & "';" else '-- None -- id = right(item,len(item)-3) texto = Request.Form("qid"&id&"othertext") id_resposta = Request.Form(item) ' pega os radios e combos if isnumeric(id_resposta) then 'response.Write("texto = " & texto & " | id da questao = " & id & " | id da resposta = " & id_resposta & "
") sql = sql + "exec insere_resposta '" & id & "','" & id_resposta & "','" & texto & "','" & id_entrevista & "';" end if ' pega texto normal if (not isnumeric(id_resposta)) and (id_resposta <> "") and (id_resposta <> "-- None --")then 'response.Write("texto = " & texto & " | id da questao = " & id & " | id da resposta = " & id_resposta & "
") sql = sql + "exec insere_resposta '" & id & "','0','" & id_resposta & "','" & id_entrevista & "';" end if end if end if end if next if sql <> "" then sql = sql + "exec insere_resposta '0','0','pag_10','" & id_entrevista & "';" call db_open 'response.Write(sql) : response.End() con.execute(sql) Response.Redirect("q10.asp?" & request.QueryString()) call db_close end if call db_open if (db_scalar("select * from cf_questao_resposta where id_cf_entrevista = '" & id_entrevista & "' and texto = 'pag_10' ") <> "") then form_alert("Digitação de questionario finalizada.") : form_script("window.close();") end if call db_close %> Foodservice 2006 Survey
Foodservice 2006



 
Page 11 of 11
 
  Página 10  

 
 
v242) Na hora de comprar copos de vidro para o seu estabelecimento, o que pesa mais na escolha da marca do copo ?
Somente para quem utiliza copos de vidro
 
 
 
 
 
 
 
 
       
 
 
 
 
v243) Aqui no seu estabelecimento vocês utilizam algum produto na embalagem sachê ? Quais ?
 
 
 
 
 
 
 
 
 
 
 
 
 
V244) Vocês vendem sorvetes aqui neste estabelecimento ?
 
 
 
 
 
 
 
 
V245) Tem algum freezer de Sorvete neste estabelecimento ?
 
 
 
 
       
 
 
 
 

marca mais utilizada
 
 
 
 
 
v247) Quais são os aspectos que pesam mais na escolha dessa marca?
 
 
 
 
 
 
       
 
 
 
 
v248) Quais os tipos de preparo de café que vocês utilizam aqui no seu estabelecimento ?
 
 
 
 
 
 
 
 
 
 
 
 
 

Somente para quem tem café expresso em máquina grande tirado manualmente
 
 
 
 
 
v250) A máquina é própria, alugada ou está em comodato ?
Somente para quem tem café expresso em máquina grande tirado manualmente
 
 
 
 
 
 
 
 
v251) Quais são os aspectos que pesaram mais na escolha dessa máquina de café ?
Somente para quem tem café expresso em máquina grande tirado manualmente
 
 
 
 
 
 
       
 
 
 
 
v252) Vocês compram o café da mesma empresa que alugam a máquina ?
Somente para quem tem café expresso em máquina grande tirado manualmente
 
 
 
       
 
 
 
 

Somente para quem tem café expresso em máquina grande tirado manualmente - anote "1" se não utiliza
 
 
 
 
 
V254) No local tem alguma Vending Machines ?
 
 
 
 
 
       
 
 
  Back   Done   Cancel