<%
call db_open()
if (Request.Form() <> "") then
' Monta a SQL
sql = "insert into CF_Mensagem ("
for each item in request.Form()
if ((left(item,3) = "txt") or (left(item,3) = "chk") or (left(item,3) = "rdo") or (left(item,3) = "cmb")) then
sql_campos = sql_campos & right(item,len(item) - 4)& ", "
sql_valores = sql_valores & "'" &request.form(item) & "', "
end if
next
sql = sql & left(sql_campos,len(sql_campos) -2) & ") values ("&left(sql_valores,len(sql_valores) -2) & ")"
str_sql = sql
' Executa
con.execute(sql)
' Seta a mensagem como respondida
if (request.form("id_mensagem") <> "") then
id_mensagem = request.form("id_mensagem")
if (id_mensagem <> "") then
con.execute("update cf_mensagem set respondida = 1 where id_cf_mensagem = "&id_mensagem&"")
end if
end if
form_alert("Mensagem enviada.") : form_script("top.location.href = 'Mensagem_Recebida.asp'")
end if
if (request("id_mensagem") <> "") then
id_mensagem = request("id_mensagem")
sql = "select msg.*, ent_de.nome as de_nome, ent_para.nome as para_nome from cf_mensagem msg, cf_entrevistador ent_de, cf_entrevistador ent_para "_
& "where (msg.de = ent_de.id_cf_entrevistador) and (msg.para = ent_para.id_cf_entrevistador) and msg.id_cf_mensagem = "&id_mensagem&" "_
& "order by convert(datetime, data_envio, 103), convert(datetime, hora, 103) desc"
set rs = con.execute(sql)
if (id_mensagem <> "") then
con.execute("update cf_mensagem set lida = 1, data_leitura = "&dt_date("dd/mm/yyyy",now)&" where id_cf_mensagem = "&id_mensagem&"")
end if
end if
%>
IPESO