<% Dim rstProcura Dim strSQL 'SQL query strSQL = "SELECT * FROM porcref ORDER BY id desc;" Set rstProcura = cntProcura.Execute(strSQL) %>
 
Portarias do CREF2/RS
<% Do While Not rstProcura.EOF %> <% rstProcura.MoveNext Loop ' Finaliza os processos rstProcura.Close Set rstProcura = Nothing cntProcura.Close Set cntProcura = Nothing %>
<%= rstProcura.Fields("descricao").Value %>