<% 'obtener el numero de inmuebles en promocion para hacer un random 'if session("sel_provincia")="" then ' where = " " 'else ' where = " and cod_provincia=" + session("sel_provincia") 'end if 'if session("sel_poblacion")="" then ' where = where + " " 'else ' where = where + " and cod_poblacion=" + session("sel_poblacion") 'end if where = where + " and producto_promocion=1 " 'ahora compruebo que hay destacados sino cambio el where sqlRand = "select count(*) as cuenta from dame_destacados('where inmueble is not null" + where + "')" 'producto_promocion=1 Set ObjRand = Server.CreateObject("ADODB.Recordset") ObjRand.Open sqlRand, oConn, adCmdText, adOpenStatic num_destacados = cint(cstr(ObjRand.fields("cuenta"))) if num_destacados = 0 then where = "" end if ObjRand.Close sqlRand = "select count(*) as cuenta from dame_destacados('where inmueble is not null" + where + "')" 'producto_promocion=1 Set ObjRand = Server.CreateObject("ADODB.Recordset") ObjRand.Open sqlRand, oConn, adCmdText, adOpenStatic num_destacados = cint(cstr(ObjRand.fields("cuenta"))) if num_destacados > 3 then random = num_destacados - 3 skip = RandomNumber (0,random) else 'random = 0 skip = 0 end if sqlRand = "select first 3 skip " & skip & " * from dame_destacados('where inmueble is not null" + where + "') order by venta asc" ObjRand.Close ObjRand.Open sqlRand, oConn, adCmdText, adOpenStatic num_destacados = ObjRand.RecordCount cuenta = 1 %> <%if cuenta<=num_destacados then%> <% cuenta = cuenta + 1 ObjRand.movenext end if %> <%if cuenta<=num_destacados then%> <% cuenta = cuenta + 1 ObjRand.movenext end if %> <%if cuenta<=num_destacados then%> <% cuenta = cuenta + 1 ObjRand.movenext end if %>
<%=ObjRand.fields("precio")%>

" target="_top"> " alt="Pulse aquí para ver información más detallada" width="150" height="150" class="left" border="0"/>

<%=server.HTMLEncode(ObjRand.fields("notas_inmueble"))%>

<%=ObjRand.fields("precio")%>

" target="_top"> " alt="Pulse aquí para ver información más detallada" width="150" height="150" class="left" border="0"/>

<%=server.HTMLEncode(ObjRand.fields("notas_inmueble"))%>

<%=ObjRand.fields("precio")%>

" target="_top"> " alt="Pulse aquí para ver información más detallada" width="150" height="150" class="left" border="0"/>

<%=server.HTMLEncode(ObjRand.fields("notas_inmueble"))%>