Contacto


Puede comunicarse con nosotros en:
Teléfono: 809-689-0166            Email: info@celsoperez.com           Fax: 809-685-0007
O puede llenar el siguiente formulario y un representante le contactará a la mayor brevedad posible.

Nombre

Email

Asunto

Comentarios

<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Declaramos las variables a usar Dim nombre, email, asunto, comentarios, OBJ_EMAIL 'Obtenemos los valores del formulario Nombre = Request.Form("nombre") Email = Request.Form("email") Asunto = Request.Form("asunto") Comentarios = Request.Form("comentarios") 'Creación del objeto Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail") OBJ_EMAIL.From = "info@celsoperez.com" 'No hace falta especificar un email valido OBJ_EMAIL.To = "info@celsoperez.com" OBJ_EMAIL.Subject = "Email enviado desde el formulario de contactos de Celsoperez.com" OBJ_EMAIL.Body = "Nombre: " & Nombre & "
" & "Email: " & Email & "
" & "Asunto: " & Asunto & "
" & "Comentarios: " & Comentarios' Cuerpo del mensaje OBJ_EMAIL.Send 'Envia el mail 'Cierra el Objeto Set OBJ_EMAIL = Nothing Success = Request.Form("oculto") if Success = "success" Then %>
OK

Su mensaje ha sido enviado. Nos comunicaremos con usted a la mayor brevedad posible.

<% End if End if %>