<% 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 :: Contact ::
 
   
   
   
   Company    Machinery    Localization    Contact
   
         
 
 
Español   Inglés
Francés   Italiano
 
    <%if var_ok = 2 then%> Now you can send us your feedback. We will shortly contact you.
 
Name :
Last name:
Address:
City:
Telephone:
E-mail:
Comments:
               
<%end if%> <%if var_ok = 1 then%>
Your mail have been sent correctly. Our department will contact you as soon as possible.

Thanks for your collaboration.
<%end if%> <%if var_ok = 0 then%>
Your mail have not been send correctly. Please try later.

Excuse the annoyances.


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