|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
<%
' 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
| |
Die Umgebung
| |
Wein-Proben & Ausflüge, private Kunst & Kultur Ausflüge nach Pisa/Siena/Florenz/Lucca/Montalcino, Shopping-Touren, Private tägliche Meeres-Ausflüge, Segel-Exkursionen u.Unterricht, Pferde-Reiten, Theater-Auftritte (Dante), organische Behandlungen für die Gesundheit u. Schönheit, Koch-Kursus, Kunst-Unterricht (Terracotta, Acquarel), ein organisch Essen kochendes Restaurant ist im Haus, ebenso bieten wir Wäscherei- & Bügel-Service.
Das schöne Meer ist nur wenige Minuten entfernt! |
| |
|
|
|
