<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_sezioni__MMColParam rs_sezioni__MMColParam = "1" If (Request.QueryString("ID_sezione") <> "") Then rs_sezioni__MMColParam = Request.QueryString("ID_sezione") End If %> <% Dim rs_sezioni Dim rs_sezioni_cmd Dim rs_sezioni_numRows Set rs_sezioni_cmd = Server.CreateObject ("ADODB.Command") rs_sezioni_cmd.ActiveConnection = MM_conn_db_STRING rs_sezioni_cmd.CommandText = "SELECT * FROM tb_sezioni WHERE ID_sezione = ? AND Pubblicazione = 'Si' AND LivelloAccesso = '1' ORDER BY Posizione ASC" rs_sezioni_cmd.Prepared = true rs_sezioni_cmd.Parameters.Append rs_sezioni_cmd.CreateParameter("param1", 5, 1, -1, rs_sezioni__MMColParam) ' adDouble Set rs_sezioni = rs_sezioni_cmd.Execute rs_sezioni_numRows = 0 %> <% Dim rs_pagine__MMColParam rs_pagine__MMColParam = "1" If (Request.QueryString("ID_sezione") <> "") Then rs_pagine__MMColParam = Request.QueryString("ID_sezione") End If %> <% Dim rs_pagine Dim rs_pagine_cmd Dim rs_pagine_numRows Set rs_pagine_cmd = Server.CreateObject ("ADODB.Command") rs_pagine_cmd.ActiveConnection = MM_conn_db_STRING rs_pagine_cmd.CommandText = "SELECT * FROM tb_pagine WHERE ID_sezione = ? AND Pubblicazione = 'Si' ORDER BY Posizione ASC" rs_pagine_cmd.Prepared = true rs_pagine_cmd.Parameters.Append rs_pagine_cmd.CreateParameter("param1", 5, 1, -1, rs_pagine__MMColParam) ' adDouble Set rs_pagine = rs_pagine_cmd.Execute rs_pagine_numRows = 0 %> <% Dim rs_contenutipagine__MMColParam rs_contenutipagine__MMColParam = "1" If (Request.QueryString("ID_pagina") <> "") Then rs_contenutipagine__MMColParam = Request.QueryString("ID_pagina") End If %> <% Dim rs_contenutipagine Dim rs_contenutipagine_cmd Dim rs_contenutipagine_numRows Set rs_contenutipagine_cmd = Server.CreateObject ("ADODB.Command") rs_contenutipagine_cmd.ActiveConnection = MM_conn_db_STRING rs_contenutipagine_cmd.CommandText = "SELECT * FROM tb_contenutipagine WHERE ID_pagina = ? ORDER BY Posizione ASC" rs_contenutipagine_cmd.Prepared = true rs_contenutipagine_cmd.Parameters.Append rs_contenutipagine_cmd.CreateParameter("param1", 5, 1, -1, rs_contenutipagine__MMColParam) ' adDouble Set rs_contenutipagine = rs_contenutipagine_cmd.Execute rs_contenutipagine_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_contenutipagine_numRows = rs_contenutipagine_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_pagine_numRows = rs_pagine_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> HOTEL AIRONE
 
 

LAST MINUTE
 
 
 
  • Prenota Online
 
<% If Not rs_sezioni.EOF Or Not rs_sezioni.BOF Then %> <% If rs_contenutipagine.EOF And rs_contenutipagine.BOF Then %> <%if "" & Contenuti = "" then%> <%=(rs_sezioni.Fields.Item("Contenuti").Value)%> <%end if%> <%if "" & Testolink = "" then%>
" target="_blank" class="testolink"><%=(rs_sezioni.Fields.Item("Testolink").Value)%>
<%end if%> <%if len(rs_sezioni.Fields.Item("TestoAllegato")) > 0 then%>
" target="_blank" class="allegatonews"> <%=(rs_sezioni.Fields.Item("TestoAllegato").Value)%>
<%end if%> <% End If ' end rs_contenutipagine.EOF And rs_contenutipagine.BOF %> <% End If ' end Not rs_sezioni.EOF Or NOT rs_sezioni.BOF %> <% If Not rs_contenutipagine.EOF Or Not rs_contenutipagine.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT rs_contenutipagine.EOF)) %> <%if "" & TitoloPagina = "" then%>

<%=(rs_contenutipagine.Fields.Item("TitoloPagina").Value)%>

<%end if%> <%if "" & Titolo = "" then%>

<%=(rs_contenutipagine.Fields.Item("Titolo").Value)%>

<%end if%> <%if "" & Sottotitolo = "" then%>

<%=(rs_contenutipagine.Fields.Item("Sottotitolo").Value)%>

<%end if%> <%if "" & Contenuti = "" then%> <%=(rs_contenutipagine.Fields.Item("Contenuti").Value)%> <%end if%> <%if "" & Testolink = "" then%>
" target="_blank" class="testolink"><%=(rs_contenutipagine.Fields.Item("Testolink").Value)%>
<%end if%> <%if len(rs_contenutipagine.Fields.Item("TestoAllegato")) > 0 then%>
" target="_blank" class="allegatonews">" target="_blank" class="allegatonews"><%=(rs_contenutipagine.Fields.Item("TestoAllegato").Value)%>
<%end if%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_contenutipagine.MoveNext() Wend %> <% End If ' end Not rs_contenutipagine.EOF Or NOT rs_contenutipagine.BOF %> <% While ((Repeat1__numRows <> 0) AND (NOT rs_pagine.EOF)) %> <% If Date () <= (rs_pagine.Fields.Item("DataValiditaNews").Value) Then %>

<%=(rs_pagine.Fields.Item("TitoloPagina").Value)%>

<% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_pagine.MoveNext() Wend %>

<% If rs_sezioni.EOF And rs_sezioni.BOF Then %> « Torna ai Lastminute <% End If ' end rs_sezioni.EOF And rs_sezioni.BOF %>

 
Hotel Airone - Via Pola, 1 (Spiaggia di Levante) - 30021 CAORLE (Venezia)
e-mail: info@hotelairone.it - Skype: hotelaironespa - tel. +39 0421 81570 fax +39 0421 82074
  

 
<% rs_sezioni.Close() Set rs_sezioni = Nothing %> <% rs_pagine.Close() Set rs_pagine = Nothing %><% rs_contenutipagine.Close() Set rs_contenutipagine = Nothing %>