<%@language="vbscript" codepage="1252"%> <crossmidia> <% call pegaNotG1 call pegaNot %>
<% 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 %>