<% SET Ob_Conn = Server.CreateObject ("ADODB.Connection") SET Ob_Tarifas = Server.CreateObject ("ADODB.RecordSet") SET Ob_Habitaciones = Server.CreateObject ("ADODB.RecordSet") SET Ob_Condiciones = Server.CreateObject ("ADODB.RecordSet") SET Ob_Descuentos = Server.CreateObject ("ADODB.RecordSet") SET Ob_Suplementos = Server.CreateObject ("ADODB.RecordSet") Ob_Conn.Open "amperweb.net.hotelbrisa" Ob_Tarifas.Open "Tarifas",Ob_Conn,3,3 Ob_Habitaciones.Open "Habitaciones",Ob_Conn,3,3 Ob_Condiciones.Open "CondicionesTarifas",Ob_Conn,3,3 Ob_Descuentos.Open "SELECT DISTINCT Descripcion FROM Descuentos",Ob_Conn,3,3 Ob_Suplementos.Open "SELECT DISTINCT Descripcion FROM Suplementos",Ob_Conn,3,3 %> <% Ob_Tarifas.Close Ob_Habitaciones.Close Ob_Condiciones.Close Ob_Descuentos.Close Ob_Suplementos.Close Ob_Conn.Close %>