<% sql="Select * from comite where comite='" & request("comite") & "'" Set Rec2=Conn.execute(sql) titulo=rec2("titulo") sql="Select * from Partners where tipo='" & request("comite") & "' order by orden" Set Rec=Conn.execute(sql) %>
 

<%=titulo%>


<%do until Rec.eof idPartner=rec("idPartner") partner=rec("partner") descripcion=rec("descripcion") webSite=rec("webSite") logo=rec("logo") flagLogo=rec("flagLogo") %> <%Rec.movenext loop%>
  <%=trim(partner)%> <%=trim(orden)%> <%If flagLogo=1 Then%> <%End if%> <%=trim(descripcion)%>