<% DIm Vhoy,Vanno,Vmes,i Dim Vsalir Vhoy = date() vanno = year(Vhoy) vmes = month (vhoy) set MiConexion = Server.CreateObject("ADODB.Connection") DSNtemp = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp = DSNtemp & "DBQ=" & server.mappath("_private/humaina.mdb") 'URL=_private/Planning Ocupacin.mdb" ' Miconexion.Open DSNtemp ' DSNless connection to Access Database 'SQL Querry set MiRS=Miconexion.execute("select * from ocupacion_c where (((Ocupacion.anno)>=" & Vanno & ")) ") 'set MiRS=Miconexion.execute("select * from ocupacion_c where (((Ocupacion.anno)>=" & Vanno & ") AND ((Ocupacion.Id_mes)>= " & Vmes & ")) ") vsalir = false mirs.movefirst do until vsalir if mirs("id_mes") = vmes then vsalir = true else mirs.movenext end if Loop %> <% 'Dim Opcion, Valor 'set MiConexion = Server.CreateObject("ADODB.Connection") 'MiConexion.ConnectionTimeout = Application("humaina_ConecctionTimeout") 'MiConexion.Commandtimeout = Application("humaina_CommandTimeout") 'MiConexion.Open Application("humaina_ConnectionString"), Application("humaina_RuntimeUserName"), Application("humaina_RuntimePassword") ' 'set MiRS = Server.CreateObject("ADODB.Recordset") 'MiRS.ActiveConnection = MiConexion ' "humaina" 'Opcion = "SELECT * FROM 2001;" 'MiRS.CursorLocation = 3 'MiRS.Open Opcion,MiConexion,adOpendynamic ' %>

 

Dostępność

 

Wstecz
Dostępność
Tarifas
Rezerwacja


 Parque Natural 
 Montes de Málaga 
Ctra de Colmenar s/n 
29013 Málaga 

  Telf. 0034 95 264 10 25
  Fax  0034 95 264 01 15

  email:  info@hotelhumaina.es 
 

 

 

<% Vsalir = false i=0 do until Vsalir %> <% MiRS.MoveNext i=i+1 If Mirs.eof or i > 11 then Vsalir = true end if loop %>

Miesiąc Rok

 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
<%=MiRS("polaco")%> <%=MiRS("anno")%> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13"> images/br.GIF<% else %>images/bv.GIF<% end if %>" width="13" height="13">
<% MiRS.Close set MiRS = Nothing %>

Pokoje dostępne

Nie ma wolnych pokoi

 

[ Strona główna ] [ Wprowadzenie ] [ Hotel na bazie ekologicznej ] [ Usługi ] [ Rezerwacja ] [ Jak do nas dotrzeć ] [ Uwagi ] [ Linki ]

Enviar correo electrónico a info@hotelhumaina.es con preguntas o comentarios sobre este sitio Web.
Copyright © 2004 Hotel Humaina