<% dim vIntIdSala,vIntCuenta,vIntAux1 if request.Form("sala")<>"" then vIntIdSala=request.Form("sala") end if %> Frapema
pixel
pixel
<% dim iLen(5) iLen(0)=750 iLen(1)=250 iLen(2)=160 iLen(3)=160 iLen(4)=120 Dim sLink(4) Dim sLinkEnd(4) Function fun_firstX(str,iLen) dim ffTmp ffTmp=str if Len(ffTmp)>iLen then ffTmp=Left(ffTmp,(iLen-3)) iTmp=1 for i=0 to 1000 if instr(iTmp, ffTmp, " ")=0 then i=1000 else iTmp=instr(iTmp, ffTmp, " ") + 1 end if next ffTmp=Left(ffTmp, (iTmp-1)) ffTmp=ffTmp & "..." end if fun_firstX=ffTmp End Function %>
Frapena  English Version     
pixel
 
Noticias Destacadas
PRESENTACIÓN
Noticias Destacadas
DÓNDE ESTAMOS
Noticias Destacadas
ALQUILER DE DESPACHOS PROFESIONALES Y OFICINAS
Noticias Destacadas
ALQUILER DE SALAS
Noticias Destacadas
DOMICILIACIÓN
Noticias Destacadas
GALERÍA DE IMÁGENES
Noticias Destacadas
<%if (request.QueryString("Fecha")="" or request.QueryString("Error")="") then%> <% end if%>
Noticias Destacadas
<%=request.QueryString("Fecha")&" "& request.QueryString("Error")%>
 
Alquiler de salas / Proceso de reserva: siga los pasos que se indican a continuación
 
<% End if %>

Procedimiento de reserva. Cumplimente los campos que aparecen a continuación en cada uno de los 5 pasos que se indican. Una vez finalizado el proceso correctamente, recibirá un mensaje de confirmación de la reserva provisional. En 24h. recibirá otro mensaje con el presupuesto definitivo adaptado a su solicitud, y las indicaciones para su validación, así como la  firmeza de su reserva.

Los precios aproximados de las salas son los siguientes:
  Precio por hora: desde 10 €.
  Precio por media jornada (4 horas): desde 40 €.
  Precio por jornada completa (8 horas): desde 75€.

<% if Request.Form("textfecha") = "" then %> <% 'Aqui se pasa una fecha Else PassDate = Request("Fecha") PassBizCenter = Request("Biz_center") %> <% Set Conexion = Nothing Set Conexion = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Set Rs1 = Server.CreateObject("ADODB.Recordset") Conexion.Open Application("Conexion") ' sqltxt="SELECT TBRESERVE_ROOM.Room_Date_Res, TBRESERVE_ROOM.id_memb, TBRESERVE_ROOM.Room_Time_Res_From, " &_ ' "TBRESERVE_ROOM.Room_Time_Res_To FROM TBRESERVE_ROOM WHERE (((TBRESERVE_ROOM.Room_Date_Res)=Format('"&Request("Date")&"'))) " &_ ' "and TBRESERVE_ROOM.Room_Time_Res_From = Format('"&Request("time_from")&"') and " & _ ' "TBRESERVE_ROOM.Room_Time_Res_To = Format('"&Request("time_to")&"') and id_room = "&Request("room") ' ' Rs1.Open sqltxt,Conexion,0,1 'response.Write(request.Form("room")) %>
Todas las salas incluyen:
Pizarra y papelógrafo Climatización
Hilo musical Toma de TV
Acceso a internet (ADSL + Wifi) Recepción de visitas
 Paso 1   Seleccione el centro de negocios:
<% Set Conexion = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conexion.Open Application("Conexion") Rs.Open "SELECT TBBiz_Center.Biz_Center, TBBiz_Center.id_Biz_Center FROM TBBiz_Center ORDER BY TBBiz_Center.id_Biz_Center ASC", Conexion, 0,1 %>
Seleccione el centro de negocios:
 Paso 2   Sala a reservar:
 Paso 3   Seleccione la fecha en que desea reservar:
Seleccione una fecha para la reserva:
 Paso 4   Seleccione la hora de la reserva:
Hora: desde: hasta:
Sala seleccionada: <% Rs.Open "SELECT Room_Name FROM TBROOMS WHERE id_room="&request.Form("sala"), Conexion,0,1 If Not Rs.EOF Then While Not Rs.EOF Response.Write(Rs.Fields("Room_Name")) Rs.MoveNext Wend End if Rs.Close %>
 Paso 5   Seleccione la distribución deseada
Distribución: <% 'Desde la BD Rs.Open "SELECT d.nombre,d.foto FROM TBROOMDIST dr, TBDISTRIBUCION d WHERE dr.id_distribucion=d.id_distribucion AND dr.id_room="&vIntIdSala, Conexion,0,1 vIntCuenta=1 If Not Rs.EOF Then While Not Rs.EOF if cint(vIntCuenta)=1 then %> <% vIntAux1=0 end if vIntCuenta=vIntCuenta+1 %> <% if cint(vIntCuenta)>3 then %>
" width="64" height="76">
">
<% vIntCuenta=1 vIntAux1=1 end if Rs.MoveNext Wend if vIntAux1="0" then response.Write("
") end if End if Rs.Close %>

 Paso 6   Seleccione las opciones que desea:

Características opcionales: <% 'Desde la BD Rs.Open "SELECT TBROOM_SERVICES.id_room_services, TBROOM_SERVICES.Desc_Services FROM TBROOM_SERVICES Where id_room_services IN (1,2,3,4,5) Order by TBROOM_SERVICES.id_room_services ASC", Conexion,0,1 If Not Rs.EOF Then While Not Rs.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Rs.MoveNext Wend End if Rs.Close %>
"&Rs.Fields("Desc_Services")&"
Una vez reservada la sala nos pondremos en contacto con usted dentro de las próximas 24 horas. Gracias por efectuar su reserva.
   

 Paso 7    Introduzca sus datos de contacto:

Fecha de la reserva:  " class="input" size="30" readonly=""> " class="input"> " class="input"> " class="input">
Hora de la reserva:  <%=request.Form("time_from")&":00 Hasta "& request.Form("time_to")&":00"%> :00" class="input"> :00" class="input">
Nombre:  *
Apellidos:  *
Dirección de correo electrónico:  *
Empresa: 
Cargo: 
Teléfono:  *
   
 Paso 8   Introduzca sus observaciones o comentarios:
Comentarios: 
   
  " /> " />
© 2008 Frapema, s.a. Normas de privacidad | Aviso legal
Diseño paginas web.
pixel pixel  
avda. América nº 32. 28922 Alcorcón (Madrid). España. UE.   +34 91 103 25 52   +34 91 103 25 54   buzon@frapema.com
  <% Set Rs = Nothing Set Conexion = Nothing %>