<%@Language = vbscript%> <% nome = request.form("nome") siape = request.form("siape") unidade = request.form("unidade") setor = request.form("setor") cidade = request.form("cidade") estado = request.form("estado") telefone = request.form("telefone") email = request.form("email") comentario = request.form("comentario") 'monta texto do email strtext =""&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "

Contato com IBGE-EAD via Site"&_ "

Envio de formulario do site EAD

Nome: "&_ " "& nome&"

SIAPE: "&_ " "& siape&"

Unidade: "&_ " "& unidade&"

Setor: "&_ " Pessoal: "& setor&"

Cidade: "&_ " "& cidade&"

Estado: "&_ " "& estado&"

Telefone: "&_ " "& telefone&"

E-mail: "&_ " "& email&"

Comentario: "&_ " "& comentario&"

" 'monta o texto do email de agradecimento text = "

Sua mensagem de contato foi recebida com sucesso! Aguarde a nossa resposta.

"&_ "

Atenciosamente,
Escola Virtual IBGE
ENCE-CTA-EaD
" 'envia email para EAD do IBGE Call enviaemail(email, "ead@ibge.gov.br", "Contato com a Escola Virtual IBGE", strtext) 'envia email de agradecimento Call enviaemail("ead@ibge.gov.br", email, "Contato com a Escola Virtual IBGE", text) response.redirect("../form_ok.htm") '**************** '**************** '**************** Sub enviaemail(de, para, assunto, texto) Set mail = Server.CreateObject("CDONTS.NewMail") mail.from = de mail.to = para mail.subject = assunto mail.BodyFormat = 0 mail.MailFormat = 0 mail.body = texto mail.send set mail = nothing end sub %>