<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Pagine__MMColParam Pagine__MMColParam = "prezzi" 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, TitoloEN, TestoEN, Foto1 FROM Pagine WHERE PaginaIT = '" + Replace(Pagine__MMColParam, "'", "''") + "'" 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 %> bed and breakfast naples, Caserta special offert, b&b last minute,Prices and Offert

<% If Not Pagine.EOF Or Not Pagine.BOF Then %> <% End If ' end Not Pagine.EOF Or NOT Pagine.BOF %>
Prices & Offert

<% While ((Repeat1__numRows <> 0) AND (NOT Pagine.EOF)) %>
<%=(Pagine.Fields.Item("TitoloEN").Value)%>
<%=(Pagine.Fields.Item("TestoEN").Value)%> ">
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Pagine.MoveNext() Wend %>

home - rooms - services - prices - where we are - links - reservation - info - guestbook
b&b la corte
via cesare battisti 30 cap. 80029 - sant'antimo- napoli (italy)
Tel/fax: +39.081.505.19.87- Email: info@bblacorte.com
<% Pagine.Close() Set Pagine = Nothing %>