<%@LANGUAGE="VBSCRIPT"%> La Tahona Garden <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_adonis_STRING 'MM_adonis_STRING = "dsn=adonis;" MM_adonis_STRING= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:\XVRT\tahonagarden.com\Html\panel_de_control\tahona.mdb" & ";" %> <% 'dDate="26/04/2004" mes= Request.querystring("mes") ano= Request.querystring("ano") if mes <> "" then ddate= "01/" & mes & "/" & ano else ddate= date() end if %> <% 'Funciones '**************************************************** '**************************************************** '**************************************************** Function GetDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) GetDaysInMonth = Day(dTemp) End Function Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) GetWeekdayMonthStartsOn = WeekDay(dTemp) End Function Function SubtractOneMonth(dDate) SubtractOneMonth = DateAdd("m", -1, dDate) End Function Function AddOneMonth(dDate) AddOneMonth = DateAdd("m", 1, dDate) End Function Function hayalgo(dDate) auxfecha= month(dDate) & "/" & day(dDate) & "/" & year(dDate) Set r_reservas = Server.CreateObject("ADODB.Recordset") r_reservas.ActiveConnection = MM_adonis_STRING r_reservas.Source = "SELECT * FROM reservas WHERE fecha_Inicio <= #" & auxfecha & "# AND fecha_fin >= #" & auxfecha & "#" r_reservas.CursorType = 0 r_reservas.CursorLocation = 2 r_reservas.LockType = 1 r_reservas.Open() If not r_reservas.eof Then if r_reservas("confirmadas")="Si" then hayalgo="Confirmada" else hayalgo="NoConfirmada" end if else hayalgo="nada" End If r_reservas.Close() Set r_reservas = Nothing End Function '***************************************************** Dim dDate ' Date we're displaying calendar for Dim iDIM ' Days In Month Dim iDOW ' Day Of Week that month starts on Dim iCurrent ' Variable we use to hold current day of month as we write table Dim iPosition ' Variable we use to hold current position in table iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(dDate) -1 %> <% Dim precios Dim precios_numRows Set precios = Server.CreateObject("ADODB.Recordset") precios.ActiveConnection = MM_adonis_STRING precios.Source = "SELECT * FROM precios" precios.CursorType = 0 precios.CursorLocation = 2 precios.LockType = 1 precios.Open() precios_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 1 Repeat1__index = 0 precios_numRows = precios_numRows + Repeat1__numRows %>

Reservas y Ofertas

<% precios.Close() Set precios = Nothing %>
Reserved Rights © Tahona Garden :: Contacto :: Aviso Legal :: Inicio :: Webmail / Sucursalweb