<% 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 ::
<%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.
<%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.
Entreprise
Machines
Localisation
Contact
ecomputer, 2005 · webeditor: internet@ecomputer.es ·