<% Call abre_conexao(ConnString,conexao) Set rs = Server.CreateObject("ADODB.Recordset") sqlString = "select distinct(ac_midia) from avida_curriculo where ac_status='on' and ac_subarea=0" rs.Open sqlString, Conexao %> <% while not rs.eof %> <% Set rs2 = Server.CreateObject("ADODB.Recordset") sqlString2 = "select ac_id, ac_titulo, ac_ano from avida_curriculo where ac_status='on' and ac_midia='"&rs(0)&"' and ac_subarea=0 order by ac_ano asc" rs2.Open sqlString2, Conexao %> <% while not rs2.eof %> <% rs2.moveNext wend %> <% rs.moveNext wend %>
Diretor
. <%=rs(0)%>
<%=rs2(2)%> - <%=rs2(1)%>
<% Set rs3 = Server.CreateObject("ADODB.Recordset") sqlString3 = "select distinct(ac_midia) from avida_curriculo where ac_status='on' and ac_subarea=1" rs3.Open sqlString3, Conexao %> <% while not rs3.eof %> <% Set rs4 = Server.CreateObject("ADODB.Recordset") sqlString4 = "select ac_id, ac_titulo, ac_ano from avida_curriculo where ac_status='on' and ac_midia='"&rs3(0)&"' and ac_subarea=1 order by ac_ano asc" rs4.Open sqlString4, Conexao %> <% while not rs4.eof %> <% rs4.moveNext wend %> <% rs3.moveNext wend %> <% Set rs5 = Server.CreateObject("ADODB.Recordset") sqlString5 = "select distinct(ac_midia) from avida_curriculo where ac_status='on' and ac_subarea=2" rs5.Open sqlString5, Conexao %> <% while not rs5.eof %> <% Set rs6 = Server.CreateObject("ADODB.Recordset") sqlString6 = "select ac_id, ac_titulo, ac_ano from avida_curriculo where ac_status='on' and ac_midia='"&rs5(0)&"' and ac_subarea=2 order by ac_ano asc" rs6.Open sqlString6, Conexao %> <% while not rs6.eof %> <% rs6.moveNext wend %> <% rs5.moveNext wend Call fecha_conexao() %>
Produtor e Co-produtor
. <%=rs3(0)%>
<%=rs4(2)%> - <%=rs4(1)%>
<%=rs5(0)%>
<%=rs6(2)%> - <%=rs6(1)%>