<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Pagine__MMColParam
Pagine__MMColParam = "camere"
If (Request("MM_EmptyValue") <> "") Then
Pagine__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Pagine
Dim Pagine_numRows
Set Pagine = Server.CreateObject("ADODB.Recordset")
Pagine.ActiveConnection = MM_Generale_STRING
Pagine.Source = "SELECT ID, PaginaIT, Foto1, TitoloEN, TestoEN FROM Pagine WHERE PaginaIT = '" + Replace(Pagine__MMColParam, "'", "''") + "' ORDER BY TitoloEN DESC"
Pagine.CursorType = 0
Pagine.CursorLocation = 2
Pagine.LockType = 1
Pagine.Open()
Pagine_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Pagine_numRows = Pagine_numRows + Repeat1__numRows
%>
Pompei bed and breakfast, b&b pompei, b and b pompei, vesuvius b&b,
bed&breakfast near vesuvio, rooms
THE ROOMS
<% If Not Pagine.EOF Or Not Pagine.BOF Then %>
dining room
The rooms are bright and sunny, all overlooking the
courtyard. Have been recently refurbished and decorated with
contemporary works by creating a striking effect art gallery
The rooms are warm and welcoming
with a heating, air conditioning, telephone, refrigerator,
private entrance, room door-values and free parking
Ischia bedroom
Procida bedroom
Capri bedroom
<% End If ' end Not Pagine.EOF Or NOT Pagine.BOF %>
