Página Principal
Requerimientos Técnicos Mapa de Sitio Enviar un correo electrónico
 
 
 
<% if request.QueryString("go") = "enviar" then txtNombre = request.form("txtNombre") txtCorreo = request.form("txtCorreo") txtComentario = request.form("txtComentario") If InStr(txtNombre,"@")>0 Then Response.Write("") Response.Write("") Else If InStr(txtCorreo,"@")=0 Then Response.Write("") Response.Write("") Else 'CORREO PARA EL USUARIO htmlBody = ""&txtNombre&",

Tus comentarios se enviaron de manera satisfactoria, un agente de Cosmética Dental & Láser se contactará lo más pronto posible. " htmlBody = htmlBody & "

Visítanos en www.cosmeticadental-laser.com

Teléfonos en México DF
MX(52) 55 5259 8370
MX(52) 55 5259 8371
MX(52) 55 5259 8376 " htmlBody = htmlBody & "

Correo Electrónico
info@cosmeticadental-laser.com

" 'Set NewMail = Server.CreateObject("CDONTS.NewMail") ' NewMail.To= txtCorreo ' the email address it will be sent to ' NewMail.From= "info@cosmeticadental-laser.com" ' the email address it was sent from ' Body= strBody ' NewMail.Subject = "Cosmética Dental & Láser / Gracias" ' NewMail.Body = htmlBody ' NewMail.Bodyformat=0 ' NewMail.Mailformat=0 ' NewMail.Send ' Set NewMail=Nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.cosmeticadental-laser.com" Mail.Username = "postmaster@cosmeticadental-laser.com" Mail.Password = "1treslunasmx1" Mail.From = "info@cosmeticadental-laser.com" Mail.FromName = "Cosmética Dental & Láser" Mail.AddAddress txtCorreo Mail.Subject = "Cosmética Dental & Láser / Gracias" Mail.Body = htmlBody Mail.IsHTML = True On Error Resume Next Mail.Send If Err <> 0 then Response.write "Error: " & Err.Description End if Set Mail = Nothing 'CORREO PARA COSMETICA DENTAL htmlBodyb = "Datos del usuario:


Nombre: "&txtNombre&"
Correo Electrónico: "&txtCorreo&"
Comentarios: "&txtComentario&"
" 'Set NewMail = Server.CreateObject("CDONTS.NewMail") ' NewMail.To= "ovadiad@prodigy.net.mx;digitalplexus@gmail.com" ' the email address it will be sent to ' NewMail.From= "info@cosmeticadental-laser.com" ' the email address it was sent from ' Body= strBody ' NewMail.Subject = "Cosmética Dental & Láser / Comentario desde la página" ' NewMail.Body = htmlBody ' NewMail.Bodyformat=0 ' NewMail.Mailformat=0 ' NewMail.Send ' Set NewMail=Nothing Set Mailb = Server.CreateObject("Persits.MailSender") Mailb.Host = "mail.cosmeticadental-laser.com" Mailb.Username = "postmaster@cosmeticadental-laser.com" Mailb.Password = "1treslunasmx1" Mailb.From = "info@cosmeticadental-laser.com" Mailb.FromName = "Cosmética Dental & Láser" Mailb.AddAddress "ovadiad@prodigy.net.mx;digitalplexus@gmail.com" Mailb.Subject = "Cosmética Dental & Láser / Comentario desde la página" Mailb.Body = htmlBodyb Mailb.IsHTML = True On Error Resume Next Mailb.Send If Err <> 0 then Response.write "Error: " & Err.Description End if Set Mailb = Nothing End if End if %>



La información se envío de manera satisfactoria,
un agente de Cosmética Dental & Láser se comunicará con usted lo más pronto posible.

Gracias



<%else%>

Contáctanos

DIRECCIÓN
TELÉFONOS

Paseo de la Reforma 2608, piso 12
Col. Lomas Altas.
C.P. 11950
México D.F.


MX(52) 55 5259 8370
MX(52) 55 5259 8371
MX(52) 55 5259 8376

CORREO ELECTRÓNICO


Dr. David Ovadia
ovadiad@prodigy.net.mx

Cosmética Dental & Láser
info@cosmeticadental-laser.com

 

<%end if%>
Agradecimientos

Este sitio fue desarrollado por Digital Plexus