%
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "cache-control","private"
Response.AddHeader "pragma","no-cache"
response.expires = 0
response.buffer = true
setor7 = "Hangar Computadores"
setor9 = "Comercial"
Setor10 = "Suporte"
setor11 = "Marketing"
setor12 = "Cobrança"
setor13 = "Administração"
setor14 = "Webmaster"
if Request("Alterar") = "*" then
erro = ""
acesso = true
c1 = Request("c1")
setor = Request("setor")
Descricao = Request("Descricao")
nome = Request.form("nome")
fone = Request.form("fone")
email = Request.form("email")
if c1 = "" then acesso = false : erro ="Escolha o tipo de contato"
if setor = "" then acesso = false : erro ="Escolha o setor"
if descricao= "" then acesso = false : erro ="Campo descrição está vazio"
if acesso = true then
mem = mem & "Data.....: " & Now & Chr(13) & Chr(10)
mem = mem & "Nome.....: " & nome & Chr(13) & Chr(10)
mem = mem & "Email....: " & email & Chr(13) & Chr(10)
mem = mem & "Fone.....: " & Fone & Chr(13) & Chr(10)
mem = mem & " " & Chr(13) & Chr(10)
mem = mem & "Tipo.....: " & c1 & Chr(13) & Chr(10)
mem = mem & "Setor....: " & EVAL("SETOR" & setor) & Chr(13) & Chr(10)
mem = mem & "Descrição: " & descricao & Chr(13) & Chr(10)
'tipo,to,apelido,texto
'manda = funcaoemail(setor,"",nome, Mem)
manda = FCustomizaEmail(setor,"",nome,mem,"","","")
if not manda then
Acesso = false : erro ="Email não enviado. Tente outra vez"
else
status = "Email enviado com sucesso"
c1 = ""
setor = ""
Descricao = ""
End if
End if
End if
%>
Hangar