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. |
<%
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
%>
Su mensaje ha sido enviado. Nos comunicaremos con usted a la mayor brevedad posible.
<%
End if
End if
%>