<%'GoLive Content Source set sector = ADORecordSet("cysdb" , "select TIPO from Establecimientos Group by TIPO order by TIPO", "block=1", "", "sector") %><%'GoLive Content Source set econcertada = ADORecordSet("cysdb" , "select * from Establecimientos where TIPO like '%" & Request.QueryString("TIPO") & "%' order by NOMBRE", "block=10", "COD", "econcertada") %>

Ir al Inicio de Caza y Safaris

<%Set ad=Server.CreateObject("MSWC.AdRotator")%><%=ad.GetAdvertisement("/publi/redirect/Banner468Ad2.txt")%>

<%IF Request.QueryString="" THEN%>Si desea conocer las empresas concertadas en las cuales podrá beneficiarse de sus ofertas, descuentos, productos exclusivos, etc,...

Solo tendrá que seleccionar el sector que quiere consultar, una vez obtenga el listado, pinchar en la flecha para conocer los datos que ofrece.

Seleccionar Sector:

<%ELSE%>

<% econcertada.MoveFirst %><% econcertada.Move econcertada.FirstRecordOnPage - 1 %><% while not econcertada.EOF and not econcertada.EOB %> <% econcertada.MoveNext %><% wend %>
EMPRESA CONCERTADA
<%=econcertada.Value("NOMBRE")%>

<%IF econcertada.RecordCount>10 THEN%>

| >PRIMERO | ><-ANTERIOR | >SIGUIENTE-> | >ÚLTIMO | <%=econcertada.AbsolutePosition%> de <%=econcertada.RecordCount%>

<%END IF%>

- VOLVER -


<%END IF%>

<%Set ad=Server.CreateObject("MSWC.AdRotator")%>

<%=ad.GetAdvertisement("/publi/redirect/Banner130Ad2.txt")%>
<%=ad.GetAdvertisement("/publi/redirect/Banner130Ad3.txt")%>


<% if 0 then %> <% end if %>