|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
'Dim MM_agriturismo_STRING
'MM_agriturismo_STRING = "Provider=MSDataShape.1;Driver={MySQL ODBC 5.1 Driver};Server=db0;Database=agriturismo;User Id=agriturismo_asp;Password=mazzu114"
' MM_agriturismo_STRING = "Provider=MSDASQL;Dsn=agriturismo"
MM_agriturismo_STRING = "Provider=MSDASQL;Driver={MySQL ODBC 5.1 Driver};Server=db0;Database=agriturismo;User Id=agriturismo_asp;Password=mazzu114"
%>
<%
Function getImageVoto(voto)
Dim arr
Dim ris
'Response.Write(voto)
'Response.End()
voto = replace(voto, ",", ".")
arr = split(voto, ".")
select case Cint(arr(1))
case 0
ris = Cstr(arr(0))
case 5
ris = arr(0) + arr(1)
case 1, 2, 3, 4
ris = Cstr(arr(0))
case 6, 7, 8, 9
ris = Cstr(arr(0)+1)
end select
getImageVoto = "voto" & ris + ".gif"
End Function
%>
<%
if Request("id") & "" <> "" then
id_agri = Request("id")
else
id_agri = CStr(id)
end if
if id_agri <> "" then
Set rs_stats_commenti = Server.CreateObject("ADODB.Recordset")
rs_stats_commenti.ActiveConnection = MM_agriturismo_STRING
rs_stats_commenti.Source = "select * from v_comment_statistics_new where id_agriturismo = " + id_agri
rs_stats_commenti.CursorType = 0
rs_stats_commenti.CursorLocation = 2
rs_stats_commenti.LockType = 1
'Response.Write(rs_stats_commenti.Source)
'Response.End()
rs_stats_commenti.Open()
Set rs_visitato = Server.CreateObject("ADODB.Recordset")
rs_visitato.ActiveConnection = MM_agriturismo_STRING
rs_visitato.Source = "SELECT visitato_da_noi FROM aziende WHERE id = " + id_agri
rs_visitato.CursorType = 0
rs_visitato.CursorLocation = 2
rs_visitato.LockType = 1
rs_visitato.Open()
Dim visitato_da_noi
visitato_da_noi = rs_visitato("visitato_da_noi") & ""
rs_visitato.close()
set rs_visitato = nothing
%>
<% if not rs_stats_commenti.EOF then
Dim n_com
n_com = CInt(rs_stats_commenti("num_commenti"))
if CInt(n_com) = 1 then
n_com = n_com & " beurteilung"
else
n_com = n_com & " beurteilungen"
end if
%>
<% else %>
<% end if
if visitato_da_noi = "1" then %>
<% end if
rs_stats_commenti.close()
set rs_stats_commenti = nothing
end if %>
|
|
|
|
|
|
|
|
|
|
Boschi di Montecalvi Ecoresort
| |
Beschreibung
| |
Die neue Farbgebung der Wände, Vorhänge und Bettüberzüge aus Seide und ästhetische Gestaltungen durch Experten machen die Wohnungen des alten Gutshauses noch erlesener und funktioneller und für ein anspruchsvolles Publikum geeignet, das die Liebe zum Detail und wertvolle Materialien sowie die Kombination der Wärme und Schönheit der antiken toskanischen Architektur mit der Raffinesse und dem Komfort der Gegenwart zu schätzen weiß.
In Erwartung der Möglichkeit, Ihnen das Ergebnis unserer Gestaltungen auf Fotos zeigen zu können, möchten wir Ihnen die Farben präsentieren, die wir für die verschiedenen Umgebungen ausgesucht haben: zarte Blautöne, sonniges Gelb und sanfte Grünnuancen. |
| |
|
|
|
