<% Option Explicit '--------------------------------------enviar e-mail de visitante GAV_en Dim msgBody, assunto, remetente, paraonde, mail, num_ip dim strBusca strBusca = "visitante-eti2_Comprar" num_ip = Request.ServerVariables ("remote_addr") 'visita eti2 Produto msgBody = strBusca assunto = "Visita eti2 Comprar " remetente = "eti2@eti2.com.br" paraonde = "eti2@eti2.com.br" set mail = server.CreateObject("persits.mailsender") mail.ishtml = true mail.host = "200.155.160.200" mail.from = remetente mail.fromname = num_ip mail.addaddress paraonde mail.subject = assunto mail.body = msgBody 'mail.username = "rcinfo@rc.com.br" 'mail.password = "@WsX3EDC" mail.username = "eti2@eti2.com.br" mail.password = "@WsX3EDC" on error resume next mail.send if err<> o then session("ws_erro") = "e-mail não foi enviado corretamente" 'Response.Redirect "erro_asp.asp" end if set mail = nothing Session.Timeout = 1440 Response.Redirect "http://www.eti2.com.br/comprar.html"%>