 |
"%>Camere<%if Pagina = "camere" then response.write ""%>
|
|
|
|
"%>Offerte speciali
<%if Pagina = "offerte" then response.write ""%>
|
|
|
|
"%>
Galleria Immagini
<%if Pagina = "galleria" then response.write ""%>
|
|
|
|
"%>
Opere d'Arte
<%if Pagina = "opere" then response.write ""%>
|
|
|
|
"%>
Ristorazione
<%if Pagina = "ristorazione" then response.write ""%>
|
|
|
|
"%>
Shopping
<%if Pagina = "shopping" then response.write ""%>
|
|
|
|
"%>
Servizi
<%if Pagina = "servizi" then response.write ""%>
|
|
|
|
"%>
Mostre
<%if Pagina = "mostre" then response.write ""%>
|
|
|
|
"%>
Eventi & Congressi
<%if Pagina = "eventi" then response.write ""%>
|
|
|
|
"%>
Monumenti
<%if Pagina = "monumenti" then response.write ""%>
|
|
|
|
"%>
Link Utili
<%if Pagina = "link" then response.write ""%>
|
|
|
|
|
| |
|
| FIRENZE - OFFERTE SPECIALI E
PROMOZIONI |
<%
Select Case Pagina
Case "mostre"
ParItem = "MOS"
condizioni = " tipo_item = 'MOS' "
If Instr(Request.servervariables("PATH_INFO"),"/ita/") >=1 Then
str_mex_err_no_promozioni = "Al momento non sono presenti Mostre"
else
str_mex_err_no_promozioni = "At present there are no Exhibitions"
End If
Case "eventi"
ParItem = "EVE"
condizioni = " tipo_item = 'EVE' "
If Instr(Request.servervariables("PATH_INFO"),"/ita/") >=1 Then
str_mex_err_no_promozioni = "Al momento non sono presenti Eventi"
else
str_mex_err_no_promozioni = "At present there are no Events"
end if
Case "offerte"
ParItem = ""
condizioni = " tipo_item <> 'MOS' and tipo_item <> 'EVE' "
If Instr(Request.servervariables("PATH_INFO"),"/ita/") >=1 Then
str_mex_err_no_promozioni = "Al momento non sono presenti Offerte"
else
str_mex_err_no_promozioni = "At present there are no Special Offers"
end if
End Select
'Response.write "Case:" & ParItem
%>
<%
If Instr(Request.servervariables("PATH_INFO"),"/ita/") >=1 Then
Session.lcid = 1040
Session("id_lingua") = 1
strValida = "Valida"
str_dal = "Dal"
str_al = "Al"
else
Session.lcid = 1033
Session("id_lingua") = 2
strValida = "Available"
str_dal = "From"
str_al = "To"
End If
%>
<%
'******************************* P R O M O Z I O N I *********************************
set rs = Server.CreateObject("ADODB.Recordset")
with rs
strSQL = "SELECT * FROM PROMOZIONI " & _
" WHERE VALIDA_DAL <= NOW() AND VALIDA_AL >= NOW() AND VISIBILE <> 0 AND " &_
"ID_LINGUA = " & Session("id_lingua")& " and " &_
condizioni &_
" order by ORDINAMENTO "
'response.write "
" & strSQL & "
"
.ActiveConnection = Application("v_Connection")
.Source = strSQL
.Open
if not .EOF then
Do until .EOF
%>
| <%
if Left(.Fields("NOME_PROMO"), 1) = "&" then
response.write .Fields("NOME_PROMO")
else
response.write Server.HTMLEncode(.Fields("NOME_PROMO"))
end if%> |
<%
if .Fields("PREZZO") <> "" Then
prezzo = FormatNumber(.Fields("PREZZO"), 2) & " " & .Fields("VALUTA")
else
prezzo = ""
End if
%>
<%'=prezzo%> |
<%
if Left(.Fields("DESCRIZIONE_PROMO"), 1) = "&" then
response.write Replace(.Fields("DESCRIZIONE_PROMO"),VbCrLf,"
")
else
' response.write Replace(Server.HTMLEncode(.Fields("DESCRIZIONE_PROMO")),VbCrLf,"
")
response.write Replace(.Fields("DESCRIZIONE_PROMO"),VbCrLf,"
")
end if%> |
<%
if Session("id_lingua") = 6 then
valida_dal = .Fields("VALIDA_DAL") & " " & str_dal
valida_al = .Fields("VALIDA_AL") & " " & str_al
testo_validita = strValida & " " & valida_dal & " " & valida_al
else
valida_dal = str_dal & " " & .Fields("VALIDA_DAL")
valida_al = str_al & " " & .Fields("VALIDA_AL")
testo_validita = strValida & " " & valida_dal & " " & valida_al
end if
' response.write testo_validita
%> | |
 |
|
|
<%
.MoveNext
Loop
Else
%>
<%=str_mex_err_no_promozioni%>
|
<%
end if
.Close
end with
set rs = Nothing
%>
|
|
Le offerte speciali ed i relativi prezzi possono
cambiare senza preavviso
|
|
