Muchas " a= a & "Gracias por Elegirnos
" a= a & "
" a= a & "
" a= a & "Le recordamos que sus datos ingresados fueron:
" a= a & "
" a= a & "Nombre: " & request.form("Txt_Nombre") & " " a= a & "
" a= a & "Mail: " & request.form("Txt_Mail_Ingresado") & " " a= a & "
" a= a & "Telefono: " & request.form("Txt_Telefono") & " " a= a & "
" a= a & "Mensaje: " & request.form("Txt_Mensaje") & " " a= a & "
" a= a & "
" a= a & " Tierra Aerobica
" a= a & "Tierraaerobica
" a= a & "www.Tierraaerobica.com
" a= a & "

" a= a & "

" a= a & "" a= a & "" body= a 'Response.Write body ' ---Enviamos el correo con los datos---- 'Set Mail = Server.CreateObject ("CDONTS.NewMail") 'Mail.From = "tierraaerobica@ciudad.com.ar" 'Mail.To = "tierraaerobica@ciudad.com.ar" 'Mail.Subject = "Solicitud de Contacto en Tierraaerobica.Com" 'Mail.MailFormat = 0 'Mail.BodyFormat = 0 'Mail ("Content-type")="Text/Html" 'Mail.Body = body 'Mail.Send 'Set Mail = Nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.tierraaerobica.com" ' Specify a valid SMTP server Mail.From = "administrador@tierraaerobica.com.ar" Mail.FromName = "Consulta Web Site Tierra Aerobica" Mail.AddAddress "tierraaerobica@ciudad.com.ar" Mail.AddAddress "brianjawor@fibertel.com.ar" Mail.AddAddress "ventas@tierraaerobica.com" Mail.AddAddress Request.form("txt_mail_ingresado") 'podes poner la cantidad de destinatarios que quieras Mail.AddReplyTo "tierraaerobica@ciudad.com.ar" 'si tu formulario tiene un campo llamado email, toma el email 'de la persona y le responde ahi. 'Mail.AddReplyTo "ventas@tuempresa.com" 'que responda a ese email fijo 'Mail.Subject = request.querystring("asunto") 'tu formulario debe terner el campo asunto, sino le ponemos uno fijo Mail.Subject = "Solicitud de Contacto en Tierraaerobica.Com" Mail.IsHTML = True Mail.Body = body On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %> <% end if end if %>

To ventas@tierraaerobica.com Name E-Mail Telephone Message