<% response.Buffer=true %> <% 'funcion para enviar correos con EasyMail Function EnviarCorreo() Archivo = correo_plantilla1 Plantilla = Server.MapPath(".") & "\" & Archivo ' change to address of your own SMTP server strHost = SERVIDOR_SMTP Session.CodePage = 1252 Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Username = correo_Usuario Mail.Password = correo_Clave Mail.Host = strHost Mail.Port = 25 Mail.From = correo_FromAddr Mail.FromName = correo_From Mail.AddAddress correo_cliente,correo_NombreCliente Mail.AddBCC correo_administrativo,correo_NombreAdministrativo ' message subject Mail.Subject = correo_Subject ' append body from file Dim strVariables,strValores strVariables="" strValores="" For Each Campo In Request.Form strVariables= strVariables & Campo & "," strValores= strValores & Replace(Request.Form(Campo),",",",") & "," Next plantillaTemp=generaPlantilla (Plantilla,strVariables,strValores) Mail.charset = "iso-8859-1" Mail.ContentTransferEncoding = "Quoted-Printable" Mail.Body = plantillaTemp Mail.IsHTML= True ' send message EnviarCorreo=Mail.Send End Function var_ok=2 if request("mail")=1 then if EnviarCorreo then var_ok = 1 else var_ok = 0 end if end if %> COOREPA :: Contacto ::
 
   
   
   
   Empresa    Maquinaria    Localización    Contacto
   
         
 
 
Español   Inglés
Francés   Italiano
 
    <%if var_ok = 2 then%> A continuación, si lo desea, puede mandarnos un correo de contacto.
En breve contactaremos con usted.
 
Nombre:
Apellidos:
Dirección:
Población:
Teléfono:
E-mail:
Comentarios:
               
<%end if%> <%if var_ok = 1 then%>
Su correo ha sido enviado correctamente, nuestro departamento de atención al cliente se pondrá en contacto con usted lo antes posible.

Muchas gracias por su colaboración.

<%end if%> <%if var_ok = 0 then%>
Su correo no ha podido enviarse, inténtelo más tarde.

Disculpe las molestias.


<%end if%>
 
     
 
   
   
     
   
·  Aviso Legal  ·  ecomputer, 2005  ·  webeditor: internet@ecomputer.es  · 
<% response.Flush() %>