<% data = now codfor = 21 if Session("logado")=1 then Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") RS.open "SELECT R.CODRES FROM RESPOSTAQUESTAO R, QUESTAO Q WHERE R.CODQUE = Q.CODQUE AND R.CODUSU = " & Session("codusu") & " AND Q.CODFOR = " & codfor, Conn, 3 if not RS.Bof and not RS.Eof then Session("respostaquestao")=2 end if Set RS = Nothing Conn.Close Set Conn = Nothing if Session("respostaquestao")=2 then Response.Redirect "index.asp" end if end if email = "" email = email & "" coditem = 69 descricao = Request("preencha_69") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 70 descricao = Request("preencha_70") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 71 descricao = Request("preencha_71") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 72 descricao = Request("preencha_72") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 73 descricao = Request("preencha_73") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 74 descricao = Request("preencha_74") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 77 descricao = Request("preencha_77") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(51,coditem,descricao,data) end if coditem = 141 descricao = Request("Informa_141") valor = "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSEngeWNet Set RS = Server.CreateObject("ADODB.RecordSet") SQLquery = "SELECT I.DESIDI" & session("indice") & ", Q.DESIDI" & session("indice") & " AS QUESTAO FROM ITEMQUESTAO I INNER JOIN QUESTAO Q ON I.CODQUE = Q.CODQUE WHERE I.CODITEM = " & coditem RS.Open SQLquery, Conn, 3 if rtrim(RS("DESIDI" & session("indice") & "")) <> "" then valor = rtrim(RS("DESIDI" & session("indice") & "")) else valor = rtrim(RS("QUESTAO")) end if Set RS = Nothing Conn.Close Set Conn = Nothing email = email & "" if rtrim(descricao)<>"" then erro = GravaQuestao(52,coditem,descricao,data) end if email = email & "

Formulário da página ""comoadquirir.asp""
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "
" & valor & "	" & descricao & "

" erro = enviaEmail("daniela.camargos@engecompany.com.br;josiane.antunes@engecompany.com.br", "Cadastro de Necessidade de Fornecimento – Engebuilder®", email) Response.Redirect "pagina_resposta.asp" %>