<% 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 :: Contatto ::
 
   
   
   
   Impresa    Macchinaria    Localizzazione    Contatto
   
         
 
 
Spagnolo   Inglese
Francese   Italiano
 
    <%if var_ok = 2 then%> A continuazione, si lo desidera, puņ mandarvi un corriere di contatto.
Fra poco saremo in contatto con Lei.
 
Nome :
Cognome :
Indirizzo:
Popolazione:
Telefono:
E-mail:
Comentari:
               
<%end if%> <%if var_ok = 1 then%>
Il mail è stata trasmessa correttamente, il nostro reparto di attenzione al cliente se li metterà in contatto con appena possibile.

Grazie molto tramite la relativa collaborazione.

<%end if%> <%if var_ok = 0 then%>
Il mail non ha potuta essere trasmesso.

Scusi i disturbi.


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