<%@ Language=VBScript %>
<%
dim DbChannel, Rs, Sql
set DbChannel = Server.CreateObject("ADODB.Connection")
DbChannel.Open ("ilconcerto")
'DbChannel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\ilconcerto.it\Admin\DB\ilconcerto.mdb"
dim Mese
Mese = Request("mese")
if trim(Mese) = "" then Mese = "Gennaio"
function tabColor(s)
if s = True then
tabColor = "ff9900"
else
tabColor = "336633"
end if
end function
Sql = "select * from " & Mese & " order by Giorno"
set Rs = DbChannel.Execute(Sql)
%>
::: Il Concerto :::
Availability
You can check in real-time the availability of our apartments.
An easy and quick way for you to arrange your stay.
