<%@LANGUAGE="VBSCRIPT"%> <% 'CONECTAMOS A LA BASE DE DATOS '------------------------- conectar '------------------------- cliente=Cstr(request.QueryString("cliente")) if cliente="" then cliente="0" end if tipo=request.QueryString("tipo") if tipo="" then tipo="0" end if %>

		LISTADO DE PROYECTOS
		Filtrar proyectos por: Todos los clientes... <%llenar_desplegable "proyectos_clientes","cli_cod","cli_nom",cliente,"cli_nom","asc"%> Todos los tipos... <%llenar_desplegable "proyectos_tipos","tip_cod","tip_nom",tipo,"tip_nom","asc"%> Ver todos
		<% SQL="select * from proyectos as p,proyectos_tipos as pt,proyectos_fotos as pf,proyectos_clientes as pc" & _ " where pc.cli_cod=p.cli_cod and pf.pro_cod=p.pro_cod and pf.fot_cod=1 and p.tip_cod=pt.tip_cod" if cliente<>"0" then SQL=SQL & " and pc.cli_cod=" & cliente end if if tipo<>"0" then SQL=SQL & " and pt.tip_cod=" & tipo end if SQL=SQL & " order by pro_nom asc" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, oConn,3,1 numero=1 if not RS.EOF then response.Write("") Do While Not RS.EOF response.Write("") if numero mod 4 = 0 then numero=0 response.Write("") response.Write("") response.Write("") response.Write("") response.Write("") end if numero=numero+1 RS.MoveNext Loop faltan = abs(4 - (numero-1 mod 4)) if faltan<>0 then for i=1 to faltan response.Write("") next end if response.Write("") else response.Write("") response.Write("") response.Write("") end If RS.Close Set RS = Nothing %> ") %> &tipo=<%=tipo%>&cliente=<%=cliente%>'" onMouseOut="this.style.background='#363636';" onMouseOver="this.style.background='#474747';" title="Ampliar información"> &tipo=<%=tipo%>&cliente=<%=cliente%>" class="textoRN" title="Ampliar información"><%=RS("pro_nom")%> &tipo=<%=tipo%>&cliente=<%=cliente%>" title="Ampliar información">" border="0" width="140" alt=""> <% response.Write(" ") %> <% response.Write(" * No se han encontrado proyectos con esos filtros.

<% 'DESCONECTAMOS A LA BASE DE DATOS '------------------------- desconectar '------------------------- %>