<% Call abre_conexao(ConnString,conexao) Set rs = Server.CreateObject("ADODB.Recordset") sqlString = "select ao_id, ao_titulo, ao_descricao, ao_ano from avida_osfilmes where ao_status='on' order by ao_ano asc" rs.Open sqlString, Conexao %> <% Call fecha_conexao() %>
<% i=0 %> <% while not rs.eof %> <% if i=0 then %> . <%=rs(1)%> (<%=rs(3)%>)

<%=rs(2)%>
<% else %> . <%=rs(1)%> (<%=rs(3)%>)

<%=rs(2)%>
<% end if %> <% i=i+1 rs.moveNext wend %>