<% cmd = Request.Form("cmd") if Trim(cmd) = "Send" 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=EN&nombre="&Server.URLEncode(nombre)) end if %>
   Customer information
  Name and surname
  Nationality
  Age
  Gender
  Telephone
  E-mail
  Profession
   Moving information
  Reasons for the transfer
  Moving from (city and country)
  Date of arrival
  Number of family members
  Length of stay
   Services you require
  Hotel reservation   Medical insurance
  House Search   School Search
  Bank account   Higher education options
  Residence Permit  
   Hotel information
  Date of arrival
  Date of departure
  Single or double room
  Max. price per night
   Housing search information
  Min. number of bedrooms
  Min. number of bathrooms
  Max. monthly rental budget (euros)
  Furnished or unfurnished
   School information
  Number of children
  Ages
  School nationality
   Additional information