<% cmd = Request.Form("cmd") if Trim(cmd) = "Envoyer" then nombre = Request.Form("nombre") nacionalidad = Request.Form("nacionalidad") edad = Request.Form("edad") sexo = Request.Form("sexo") telefono = Request.Form("telefono") email = Request.Form("email") profesion = Request.Form("profesion") hotel = Request.Form("hotel") seguro = Request.Form("seguro") vivienda = Request.Form("vivienda") colegio = Request.Form("colegio") cuenta = Request.Form("cuenta") curso = Request.Form("curso") permiso_residencia = Request.Form("permiso_residencia") motivo_traslado = Request.Form("motivo_traslado") ciudad_pais = Request.Form("ciudad_pais") fecha_llegada = Request.Form("fecha_llegada") numero_personas = Request.Form("numero_personas") duracion_estancia = Request.Form("duracion_estancia") fecha_llegada_hotel = Request.Form("fecha_llegada_hotel") fecha_salida_hotel = Request.Form("fecha_salida_hotel") habitacion = Request.Form("habitacion") precio_maximo = Request.Form("precio_maximo") recamaras = Request.Form("recamaras") banos = Request.Form("banos") presupuesto = Request.Form("presupuesto") muebles = Request.Form("muebles") numero_ninos = Request.Form("numero_ninos") edades = Request.Form("edades") idioma = Request.Form("idioma") info_adicional = Request.Form("info_adicional") 'if nombre = "" or nacionalidad = "" or telefono = "" or email = "" then %> <% 'else 'txt1 = "" txt1 = "" txt1 = txt1 & "" txt1 = txt1 & "
" txt1 = txt1 & "" txt1 = txt1 & "" txt1 = txt1 & "" txt1 = txt1 & "
   Datos de contacto
" txt1 = txt1 & "" txt1 = txt1 & "" txt1 = txt1 & "
  Nombre y apellidos
  Nacionalidad
  Edad
  Sexo
  Teléfono
  E-mail
  Profesión
" txt1 = txt1 & "
   Servicios de interés
" txt1 = txt1 & "
  Reservación de hotel  Contratación de un seguro médico
  Búsqueda de vivienda  Búsqueda de colegio
  Apertura de cuenta bancaria  Búsqueda de curso universitario
  Permiso de residencia 
   Datos sobre el traslado
" txt1 = txt1 & "" txt1 = txt1 & "
  Motivo del traslado
  Ciudad y país de salida
  Fecha de llegada a Barcelona
  Nº de personas que se trasladan
  Duración de la estancia
   Datos sobre el hotel
" txt1 = txt1 & "
  Fecha de llegada
  Fecha de salida
  Habitación individual o doble
  Precio máximo por noche
   Datos sobre la vivienda
" txt1 = txt1 & "
  Nº mínimo de recámaras necesarias
  Nº mínimo de cuartos de baño necesarios
  Presupuesto máximo de alquiler mensual
  Amueblado o sin amueblar
   Datos sobre la escuela
" txt1 = txt1 & "
  Número de niños a escolarizar
  Edades
  Idioma en el que deben ser impartidas las clases
   Información Adicional
" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nombre if email = "" then email = "Desconocido" Mailer.FromAddress= email Mailer.AddRecipient "Habita Barcelona", "info@habitabarcelona.com" 'Mailer.AddRecipient "Habita Barcelona", "xllebaria@cualinet.com" Mailer.RemoteHost = "smtpmail.activeisp.com" Mailer.ContentType = "text/html" Mailer.Subject = "Formulario de información" Mailer.BodyText = txt1 if Mailer.SendMail then 'Response.Write "Mail sent..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if Response.Buffer=true Response.Redirect("/formulario_respuesta.asp?idioma=FR&nombre="&Server.URLEncode(nombre)) end if %>
   Information sur le client
  Nom et Prénom
  Nationalité
  Âge
  Sexe
  Téléphone
  E-mail
  Profession
   Information sur le déménagement
  Raisons du déménagement
  Transfert de
  Date d´arrivée
  Nombre de personnes qui déménagent
  Durée du séjour
   Services qui vous intéressent
  Réservation d’hôtel   Embauche d’une assurance médicale
  Recherche de logement   Recherche d’établissement scolaire
  Ouverture de compte bancaire   Recherche de cours universitaire
  Permis de séjour  
   Information sur l’hôtel
  Date d’arrivée
  Date de départ
  Type de chambre (individuelle ou double)
  Prix maximum par nuit
   Information sur la recherche de logement
  Nombre de chambres
  Nombre de salle de bains
  Prix maximum loyer mensuel
  Meublé (oui ou non)
   Information sur l’établissement scolaire
  Nombre d’enfants
  Âges
  Nationalité de l’école
   Information additionnelle