<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% id = request.querystring("id") %> Grupo Evemarina
Home / Fundación Evemarina / Contacto
 
 

 

Teléfono y dirección de contacto
Fundación Evemarina
Avda. Pintor Sorolla, 51 29016 Málaga
Tel:952 16 12 95


Déjenos sus datos y su motivo de consulta y le atenderemos a la mayor brevedad posible:
<% if request.querystring("accion")="enviar" then mail_para="l.naranjo@grupoevemarina.com" mail_de=request("email") telefono_de=request("ntelefono") nombre_de=request("nombre") apellidos_de=request("apellidos") mensaje=request("consulta") function sendmail(email_para, nombre_para, email_desde, nombre_desde, asunto, contenido, cc, fichero) 'Creamos una instancia del objeto CDO Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail") 'Asignamos las propiedades al objeto ObjetoCDO.From = nombre_desde&"<"&email_desde&">" ObjetoCDO.To = nombre_para&"<"&email_para&">" ObjetoCDO.Subject = asunto ObjetoCDO.Body = contenido ObjetoCDO.BodyFormat = 0 ObjetoCDO.MailFormat = 0 if cc <> "" then ObjetoCDO.Cc = cc end if if fichero <> "" then ObjetoCDO.AttachFile fichero end if 'Enviamos el e-mail ObjetoCDO.Send Set ObjetoCDO = Nothing sendmail=0 end function function pCase(str) myString = trim(str) bStr="" for iLen = 1 to Len(myString) 'Check each Character mStr = Mid(myString, iLen, 1) if iLen = 1 then bStr = bStr & UCASE(mStr) else bStr = bStr & LCase(mStr) 'LCASE char end if next pCase = bStr end function cuerpo="Documento sin título

Nombre: " & nombre_de & " " & apellidos_de & "
Teléfono: " & telefono_de & "
E-mail: " & mail_de & "

Mensaje: " & mensaje & "

" envio = sendmail(mail_para, sucursal, mail_de , nombre_de, "Envio de contacto en Fundación Evemarina" ,cuerpo, "", "") %>

Gracias, Su mensaje ha sido enviado.
En breve nos pondremos en contacto con usted.
<% else %>
Nombre:
Apellidos:
E-mail:
Teléfono:
Comentario:
      
     Política de privacidad       Deseo recibir información del Grupo Evemarina    
<%end if %>