<% ' Envio de correo usando ASPEmail en formato Texto. Dim message br = vbCrLf 'Salto de Linea If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") 'Enter valid SMTP host ==> mail.bojorquezmiramontes.com.mx, No mover IP Mail.Host = "mail.bojorquezmiramontes.com.mx" Mail.Username = "web@bojorquezmiramontes.com.mx" Mail.Password = "web" Mail.From = "web@bojorquezmiramontes.com.mx" Mail.FromName = "Comentarios Web 2009" Mail.AddAddress "vb_miramontestax@hotmail.com" Mail.AddCC "informes@bojorquezmiramontes.com.mx" Mail.AddCC "mario_leal_leal@hotmail.com" Mail.AddCC "vb_miramontestax@prodigy.net.mx" Mail.AddCC "isabela-851@hotmail.com" ' message subject Mail.Subject = "Correo enviado de la web Bojorquezmiramontes.com.mx" 'message body 'Creamos la variable message con todos los datos message = "" message = message + "Comentario:"+ br + br + br message = message + "Nombre : " + Request("nom") + br + br message = message + "Teléfono : " + Request("cognoms") + br + br message = message + "Correo : " + Request("email") + br + br message = message + "Ciudad : " + Request("ciudad") + br + br message = message + "Mensaje : " + Request("comentaris") + br message = message + " -------------------------------------------------------- " Mail.Body = message On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encontrado: " & Err.Description Else Response.buffer=true Response.redirect "gracias.htm" End If End If %>

 

 
Copyright© 2007 Viajes Bojorquez Miramontes. Todos los Derechos reservados                                            Diseñado por Solucioneselectronicas.com.mx