<%@LANGUAGE="VBSCRIPT"%> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> <% ' Trim by length (by FELIXONE.it) Function TrimByLength(str, slen, word) trail = "" If (Len(str) > slen) Then trail = "..." str = Left(str, slen) For i=1 To Len(str) If (Mid(str,i,1) = " ") Then pos = i Next If (word) Then str = Left(str, pos) TrimByLength = str & trail End Function %> Alojamientos en Roma

Alojamientos en Roma
Alojamientos en Roma


Alojamientos en Roma

Alquiler coches

 


BB-Roma - Alojamientos en Roma

Alojamientos en Roma Posadas en Roma Alojamientos en Roma

COMO RESERVAR

1 ) Mira nuestro sitio web para elegir una zona o algunos alojamientos en roma

2) Contacte nuestro call center (+39/066148388) o escribe una e-mail (info@bb-roma.it) o rellena el impreso que està en la PAgina de todos nuestros alojamientos

3) Recibida su recuqesta, dentro de 1 hora recibirA' nuestra respuesta

4) Si entiende reservar una de las propuesta, tendrA' que comunicarlo por e-mail o por telèfono, y dentro de 48 horas tendrA' que pagar un anticipo del 20% por trasferencia bancaria o tarjeta de crEdito. En caso de pago por trasferencia bancaria tiene que enviernos un fax con la copia, al nUmero +39/06/62209407


5) Recibido su fax (o el pago por tarjeta de crèdito), le enviaremos el voucher de la reserva con todos lo detallos de los Alojamientos en roma reservados


Muchas gracias

BB-Roma - Alojamientos en Roma

Click aquì para ver nuestros bed and breakfast en Roma

 

Alojamientos en Roma

 

 


Alojamientos en Roma
___________

BB-Roma english
English version

___________

BB-ROMA Italia
Versione italiana

___________

Reglas BB-ROMA
Reglas de BB-ROMA
___________________

RESERVAR APARTAMENTOS EN ROMA
Como reservar

_____________________

LAST MINUTE EN ROMA!
Last minute!!!


_____________________


Servicio taxi
Alquiler coches con conductor

_____________________



Hotel en el mundo !

Hotel last minute en el mondo !
_______________


Aeropuertos de Roma
Aeropuertos de Roma

______________________

Sito Trenitalia - Ferrovie dello Stato
Trenitalia - Tren en Italia
_____________________

Trasporti a Roma
Transportes - Metro y autobus
__________________________



Mappa Roma
Mapa de Roma


______________________

meteo
dati meteo ilmeteo.it

Se aceptan pagos con tarjeta de crèdito por paypal system
Paypal

BB-Roma.it è un sito gestito dalla
Doppiaerre s.n.c.
P.Iva: 09995021004