SteelCote - Fábrica Argentina de Pinturas

<% if request("action") = "captcha" then if cstr(request("captcha")) = cstr(session("captcha")) then campo_nombre = request.form("campo_nombre") campo_mail = request.form("campo_mail") campo_asunto = request.form("campo_asunto") campo_mensaje = request.form("campo_mensaje") campo_tel = request.form("campo_tel") campo_empresa = request.form("campo_empresa") campo_rubro = request.form("campo_rubro") Set MyMail = Server.CreateObject("Persits.MailSender") MyMail.host="smtp.fibertel.com.ar" MyMail.Username="steelcote.steelcote.com.ar" MyMail.Password="admin56" MyMail.From = "steelcote@steelcote.com.ar" MyMail.FromName= "Consulta desde Web" MyMail.AddAddress "steelcote@steelcote.com.ar" MyMail.AddCC "oscar.gauna@steelcote.com.ar" MyMail.AddCC "pablo.inones@steelcote.com.ar" MyMail.Subject = " (Consulta WEB) " & campo_asunto MyMail.Body = "De: "&campo_nombre& VBNEWLINE &"Mail: "&campo_mail& VBNEWLINE &"Tel: "&campo_tel& VBNEWLINE &"Empresa: "&campo_empresa& VBNEWLINE & "Rubro: "&campo_rubro& VBNEWLINE &"Envio el mensaje: " &VBNEWLINE &campo_mensaje&" " MyMail.Send If Err = 0 Then response.write "
La consulta ha sido enviada. Gracias por contactarse.
Ante cualquier problema no dude en comunicarse por teléfono al 4522-6484." else Response.Write "Error encontrado: " & Err.Description End If else response.write "El texto de verificación ingresado es inválido, intente de nuevo." end if end if Set MyMail = Nothing %>