Choose your language: español english
		EL HOTEL EMPRESAS QUÉ HACER RESTAURANTE RESERVAS Y TARIFAS CONTACTAR

Empresas Salones Tarifas Carta de Comidas		<% Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\cardamomo\datos\cardamomo.mdb" Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\XVRT\cardamomosiguenza.com\Data\cardamomo.mdb" Set rs = Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM Cardamomo_tarifa_empresas WHERE tipo_tarifa=1 AND estado='activo' ORDER BY id ASC;" set rs=Conn.Execute(SQL) if rs.BOF and rs.EOF then Response.End end if ' a=0 ' b=0 Do While NOT rs.EOF ' if b=a then ' clase="" ' a=a+1 ' else ' clase="tdblack" ' b=a ' end if response.write "" rs.movenext loop %> Tarifas Salas de Reuniones Tarifa " & rs("nombre_tarifa") & " " & rs("precio_tarifa") & " € <% Set rs = Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM Cardamomo_tarifa_empresas WHERE tipo_tarifa=2 AND estado='activo' ORDER BY id ASC;" set rs=Conn.Execute(SQL) if rs.BOF and rs.EOF then Response.End end if a=0 b=0 Do While NOT rs.EOF if b=a then clase="tdblack" ancho=16 a=a+1 else clase="" ancho=30 b=a end if response.write "" rs.movenext loop %> Tecnologia " & rs("nombre_tarifa") & " " & rs("precio_tarifa") & " €