<% Call abre_conexao(ConnString,conexao) Set rs = Server.CreateObject("ADODB.Recordset") sqlString = "select de_id, de_titulo, de_chamada, de_link, de_target from destaques where de_arquivar='on' order by de_id desc" rs.Open sqlString, Conexao %> <% while not rs.eof %> <% if rs(3) = "" then linkurl = "arquivo_integra.asp?idA="&rs(0)&"" else linkurl = rs(3) end if %> <% rs.moveNext wend %>
. <%=rs(1)%>
<%=rs(2)%>