<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim i Dim rs, rsSQL Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rsSQL = "SELECT * FROM puntaldia ORDER BY Codice ASC" rs.Open rsSQL, cnDati, 1, 3 rs_numRows = rs.RecordCount Dim rsListino, rsListinoSQL Set rsListino = Server.CreateObject("ADODB.Recordset") rsListinoSQL = "SELECT * FROM listini WHERE villaggio = 'puntaldia'" rsListino.Open rsListinoSQL, cnDati, 1, 3 rsListino.MoveFirst %> PERIODO
<% if rs.recordcount > 0 then rs.movefirst for i = 1 to rs_numRows if i mod 2 = 1 then %> <% else %> <% end if if i < rs_numrows then rs.movenext next %>

 

<%=rsListino("titolo")%>

VILLAGGIO RESIDENZIALE PUNTALDIA

 

 

PERIODO

 

A2

2 PERS.

 

B4

4 PERS.

C6

6 PERS.

 

<%=rs("Codice")%>

 

DAL <%=rs("Periodo1_Da")%> AL <%=rs("Periodo1_A")%>

<% if trim(rs("Periodo2_Da")) <> "" then %>

DAL <%=rs("Periodo2_Da")%> AL <%=rs("Periodo2_A")%>

<% end if %>

 

 

<% if trim(rs("A2"))<>"" then Response.Write(" " & FormatNumber(rs("A2"),2,,,True)) %>

 

 

<% if trim(rs("B4"))<>"" then Response.Write(" " & FormatNumber(rs("B4"),2,,,True)) %>

 

 

<% if trim(rs("C6"))<>"" then Response.Write(" " & FormatNumber(rs("C6"),2,,,True)) %>

 

 

<%=rs("Codice")%>

 

DAL <%=rs("Periodo1_Da")%> AL <%=rs("Periodo1_A")%>
<% if trim(rs("Periodo2_Da")) <> "" then %>

DAL <%=rs("Periodo2_Da")%> AL <%=rs("Periodo2_A")%>

<% end if %>

 

 

<% if trim(rs("A2"))<>"" then Response.Write(" " & FormatNumber(rs("A2"),2,,,True)) %>

 

 

<% if trim(rs("B4"))<>"" then Response.Write(" " & FormatNumber(rs("B4"),2,,,True)) %>

 

 

<% if trim(rs("C6"))<>"" then Response.Write(" " & FormatNumber(rs("C6"),2,,,True)) %>

 

 

NOTE

<%=rsListino("note")%>

 

PRENOTAZIONI: TEL. 0784.86.41.05 FAX 0784.83.41.29 0784.86.41.06 e-mail: cspuntaldia@tiscalinet.it