<%
on error resume next
dim nome, email, assunto, empresa, msg 'variáveis para contato.asp - nome, e-mail e empresa também para newsletter.asp
dim cidade, estado, profissao, area 'variáveis para newsletter.asp
dim tipoContato, mail, msg_confirm 'variáveis para o script
tipoContato = request.form("assun")
nome = replace(request.form("nome"),"'","´")
email = replace(request.form("email"),"'","´")
assunto = replace(request.form("assunto"),"'","´")
empresa = replace(request.form("empresa"),"'","´")
msg = replace(request.form("msg"),"'","´")
cidade = replace(request.form("cidade"),"'","´")
estado = replace(request.form("estado"),"'","´")
profissao = replace(request.form("profissao"),"'","´")
area = replace(request.form("area"),"'","´")
set mail = server.createobject("persits.mailsender")
mail.isHTML = true
mail.host = "localhost"
mail.from = email
mail.fromname = nome&" - "&empresa
mail.addaddress "web@crossmidia.inf.br", "Webmaster"
select case tipoContato
case "contato":
mail.subject = assunto
mail.body = msg
msg_confirm = "
Seu e-mail foi enviado.
"
case "mailing":
mail.subject = "Cadastro para recebimento da newsletter"
mail.body = "Novo cadastro para newsletter"
mail.body = mail.body&"
Nome: "&nome&"
"
mail.body = mail.body&"
E-mail: "&email&"
"
mail.body = mail.body&"
"
mail.body = mail.body& "Empresa: "&empresa&"
Localidade: "&cidade&"/"&estado&"
Profissão: "&profissao&"
Área de atuação: "&area
mail.body = mail.body&"
"
msg_confirm = "
Seus dados foram enviados.
"
end select
if err <> 0 then
dim mailErr
set mailErr = server.createobject("persits.mailsender")
mailErr.isHTML = true
mailErr.host = "localhost"
mailErr.from = "webmaster@crossmidia.inf.br"
mailErr.addaddress "webmaster@enepress.com.br", "Webmaster"
mailErr.subject = "ERRO - crossmidia"
mailErr.body = "Número do erro: "&err.number&"
"
mailErr.body = mailErr.body &"Descrição do erro: "&err.description&"
"
mailErr.body = mailErr.body &"Página: "&request.servervariables("URL")
mailErr.send
response.write "
Desculpe, houve um erro na execução da página. Um relatório foi enviado ao administrador.
"
response.write "
« Voltar"
set mailErr = nothing
response.end
else
mail.send
response.write msg_confirm
response.write "
« Voltar"
set mail = nothing
end if
%>