% 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 & "
| Foodservice 2006 |
|