Nombre:
Apellido:
Email:

Profesional del área de:

Especialista en:
Máximo 75 caracteres

País:
Estado:
Teléfonos
  Cod País Cod Area Número Extensión
Ofina/Consultorio:
Móvil 1:
Móvil 2:
Habitación:

¿Acepta recibir información Continua de Nuevos Productos y Ofertas?

 Si No
<% 'creo el objeto correo set mail = server.createObject("Persits.MailSender") 'configuro el mensaje 'señalo el servidor de salida para enviar el correo mail.host = "clinicalar@clinicalar.com" 'indico la dirección de correo del remitente mail.from = "correo remitente" 'indico la dirección del destinatario del mensaje mail.addAddress "webmaster@clinicalar.com" 'Obtengo los datos del formulario nombre = request.form("nombre") cliente = request.form("cliente") empresa = request.form("empresa") email = request.form("email") modelo1 = request.form("modelo1") modelo2 = request.form("modelo2") modelo3 = request.form("modelo3") modelo4 = request.form("modelo4") modelo5 = request.form("modelo5") modelo6 = request.form("modelo6") modelo7 = request.form("modelo7") modelo8 = request.form("modelo8") modelo9 = request.form("modelo9") modelo10 = request.form("modelo10") modelo11 = request.form("modelo11") 'compongo el cuerpo del mensaje cuerpo = "Formulario enviado desde nuestra página web"& VBNEWLINE & VBNEWLINE cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE cuerpo = cuerpo & "Cliente: " & cliente & VBNEWLINE cuerpo = cuerpo & "Empresa: " & empresa & VBNEWLINE cuerpo = cuerpo & "E-mail: " & email & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & "Modelo 1: " & modelo1 & VBNEWLINE cuerpo = cuerpo & "Modelo 2: " & modelo2 & VBNEWLINE cuerpo = cuerpo & "Modelo 3: " & modelo3 & VBNEWLINE cuerpo = cuerpo & "Modelo 4: " & modelo4 & VBNEWLINE cuerpo = cuerpo & "Modelo 5: " & modelo5 & VBNEWLINE cuerpo = cuerpo & "Modelo 6: " & modelo6 & VBNEWLINE cuerpo = cuerpo & "Modelo 7: " & modelo7 & VBNEWLINE cuerpo = cuerpo & "Modelo 8: " & modelo8 & VBNEWLINE cuerpo = cuerpo & "Modelo 9: " & modelo9 & VBNEWLINE cuerpo = cuerpo & "Modelo 10: " & modelo10 & VBNEWLINE cuerpo = cuerpo & "Modelo 11: " & modelo11 & VBNEWLINE 'mando el correo... 'indico el cuerpo del mensaje mail.body = cuerpo 'lo envio 'aseguro que no se presenten errores en la página si se producen On Error Resume Next mail.send if Err ><0 then response.write "Error, no se ha podido completar la operación" else Request.Form("nombre") 'Declaro Saludo de despedida del visitante saludo = "Gracias por usar este servicio.
En el menor tiempo posible será contestada su solicitud. & nombre & ", el formulario se ha enviado correctamente" 'Muestro saludo response.write saludo end if %>
Presione el botón una sola vez y espere respuesta