<%@LANGUAGE="VBSCRIPT"%> <% '--------------------------------------------------------------------------------------> Dim objConn Dim Temporada Dim PDminim Dim PDmaxim Dim PIminin Dim PImaxim Dim Pdiasenser Dim Pmigdia Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/dochotel.mdb") Set preusrs = objConn.Execute("SELECT * FROM Preus ORDER BY ID") If preusrs.BOF and preusrs.EOF Then Temporada = "" PDminim = 0 PDmaxim = 0 PIminin = 0 PImaxim = 0 Pdiasenser = 0 Pmigdia = 0 Else Temporada = preusrs("Temporada_ES") PDminim = preusrs("Doble_minim") PDmaxim = preusrs("Doble_maxim") PIminin = preusrs("Individual_minim") PImaxim = preusrs("Individual_maxim") Pdiasenser = preusrs("Diasenser") Pmigdia = preusrs("Migdia") End If %>

	<%= Temporada%>
	precio mínimo según temporada	precio máximo según temporada
Doble	<%= PDminim%> €	<%= PDmaxim%> €
Individual	<%= PIminin%> €	<%= PImaxim%> €
* desayuno buffet incluido * precios por habitación y noche * IVA incluido
Disponemos de una sala de reuniones con capacidad para 20 personas.
Día entero	<%= Pdiasenser%> €
Medio día	<%= Pmigdia%> €
* IVA incluido * Servicios incluidos en el precio: montaje, aguas minerales, caramelos, pizarra y papel para los asistentes. * Servicios no incluidos en el precio: vídeo, monitor, proyectores, etc. Suministramos todo tipo de material necesario, previa solicitud.

 

<% preusrs.close objConn.close %>