<% Call abre_conexao(ConnString,conexao) Set rs1 = Server.CreateObject("ADODB.Recordset") sqlString1 = "select pr_titulo from premios where pr_subarea=0 order by pr_id desc" rs1.Open sqlString1, Conexao %> <% while not rs1.eof %> <% rs1.moveNext wend %>
Pr�mios
. <%=rs1(0)%>
<% Set rs2 = Server.CreateObject("ADODB.Recordset") sqlString2 = "select pr_titulo from premios where pr_subarea=1 order by pr_id desc" rs2.Open sqlString2, Conexao %> <% while not rs2.eof %> <% rs2.moveNext wend %> <% Call fecha_conexao() %>
T�tulos e distin�es
. <%=rs2(0)%>