<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% on error resume next dim nome, email, msg, mail nome = replace(request.form("nome"),"'","´") email = replace(request.form("email"),"'","´") msg = replace(request.form("msg"),"'","´") set mail = server.createobject("persits.mailsender") mail.isHTML = true mail.host = "localhost" mail.from = email mail.fromname = nome mail.addaddress "web@enepress.com.br", "Webmaster" mail.subject = "Mensagem do site crossmidia" mail.body = msg 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." set mailErr = nothing response.end else mail.send response.write "Seu e-mail foi enviado. Aguarde nossa resposta em breve." set mail = nothing end if %>