<% 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 ::
 
   
   
   
   Entreprise    Machines    Localisation    Contact
   
         
 
 
Espagnol   Anglais
Franšais   Italien
 
    <%if var_ok = 2 then%> Si vous le désirez vous pouvez nous envoyer un courrier de contact.
Dans les plus bref détails, nous vous répondrons.
 
Nom :
Prénom :
Adresse:
Commune:
Téléphone:
E-mail:
Commentaires:
               
<%end if%> <%if var_ok = 1 then%>
Son courrier a été correctement envoyé, notre département d'attention au client sera mis en contact avec vous le plus tôt possible.

Merci beaucoup pour sa collaboration.
<%end if%> <%if var_ok = 0 then%>
Son courrier n'a pas pu être envoyé correctement, l'essaye à nouveau plus tard.

Excusez les ennuis.


<%end if%>
 
     
 
   
   
     
   
·  Avis légal  ·  ecomputer, 2005  ·  webeditor: internet@ecomputer.es  · 
<% response.Flush() %>