<% Set rs1 = Server.CreateObject("ADODB.Recordset") sqlString1 = "select ar_id, ar_titulo, ar_chamada, ar_link, ar_target from artigos where ar_subarea=0 order by ar_id desc" rs1.Open sqlString1, Conexao %> <% while not rs1.eof %> <% if rs1(3) <> "" then linkurl = rs1(3) else linkurl = "artigos_integra.asp?idA="&rs1(0)&"" end if %> <% rs1.moveNext wend %>
. <%=rs1(1)%>
<%=rs1(2)%>
<% Set rs2 = Server.CreateObject("ADODB.Recordset") sqlString2 = "select ar_id, ar_titulo, ar_chamada, ar_link, ar_target from artigos where ar_subarea=1 order by ar_id desc" rs2.Open sqlString2, Conexao %> <% while not rs2.eof %> <% if rs2(3) = "" then linkurl = "artigos_integra.asp?idA="&rs2(0)&"" else linkurl = rs2(3) end if %> <% rs2.moveNext wend %> <% Set rs3 = Server.CreateObject("ADODB.Recordset") sqlString3 = "select ar_id, ar_titulo, ar_chamada, ar_link, ar_target from artigos where ar_subarea=2 order by ar_id desc" rs3.Open sqlString3, Conexao %> <% while not rs3.eof %> <% if rs3(3) = "" then linkurl = "artigos_integra.asp?idA="&rs3(0)&"" else linkurl = rs3(3) end if %> <% rs3.moveNext wend %> <% Call fecha_conexao() %>
Entrevistas
. <%=rs2(1)%>
<%=rs2(2)%>
Depoimentos
. <%=rs3(1)%>
<%=rs3(2)%>