<% 'funcion para enviar correos con EasyMail Function EnviarCorreo() Archivo = correo_plantilla Plantilla = Server.MapPath(".") & "\" & Archivo Set SMTP = CreateObject("EasyMail.SMTP.6") With SMTP .LicenseKey = correo_LICENCIA .MailServer = SERVIDOR_SMTP .MailPort = 25 .From = correo_From .FromAddr = correo_FromAddr .Subject = correo_Subject .ESMTP_AuthMode = 1 .ESMTP_Account = correo_Usuario .ESMTP_Password = correo_Clave .OptionFlags = 256 .BodyFormat = 1 .ImportBodyTextEx Plantilla, 2 .AddRecipient correo_NombreCliente, correo_cliente, 1 .AddRecipient correo_NombreAdministrativo, correo_administrativo, 3 For Each Campo In Request.Form .ReplaceBodyTextToken Campo, MemoAHTML(Request.Form(Campo)), 0 Next EnviarCorreo = Not (.Send > 0) End With End Function var_ok=2 if request.QueryString("mail")="si" then if EnviarCorreo then var_ok = 1 else var_ok = 0 end if end if %>

Remítanos cualquier duda o consulta técnica mediente correo ordinario o bien mandando un correo electrónico a la dirección de mail indicada a continuación.         Le responderemos con la mayor brevedad posible. Si desea presupuesto de una instalación indíquenos su teléfono y nos pondremos en contacto con usted.     info@intechuesca.com   INTEC INSTALACIONES TÉCNICAS DE ELECTRICIDAD Y CLIMATIZACIÓN S.L. C\ GANADERÍA (POLÍGONO SEPES)      PARCELA 35 NAVE 5 Telf: 974 23 15 58 Fax: 974 22 98 18 22006 HUESCA

· Aviso legal ·    ecomputer, 2006 · webeditor: internet@ecomputer.es ·