<% Option Explicit '--------------------------------------enviar e-mail de visitante GAV_en Dim msgBody, assunto, remetente, paraonde, mail, num_ip dim strBusca strBusca = "visitante-wh2 Obrigado Sair" num_ip = Request.ServerVariables ("remote_addr") 'visita wh2 Produto msgBody = strBusca assunto = "Visita wh2 Comprar " remetente = "wh2@wh2.com.br" paraonde = "wh2@wh2.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 = "wh2@wh2.com.br" mail.password = "wh2-wh2" 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 '--------------------------------------enviar e-mail de visitante GAV_en - FIM '---------------------------------------------------------------------------------indenticar o cliente SISAM Response.Redirect "http://www.wh2.com.br/obrigado.html"%>