<% set conexao = server.CreateObject("adodb.connection") conexao.Open application("odbc") sql = "select * from consultores order by index, nome" set rsconsultor = conexao.Execute(sql) set conexao = nothing %> <% while not rsconsultor.eof %> <% rsconsultor.movenext wend set rsconsultor = nothing %>

<% if rsconsultor("foto") <> "" then %> " align="left" hspace="10" width="80" style="border:1 solid">  <% end if %> <%=rsconsultor("nome")%> <%=replace(rsconsultor("curriculum"), chr(13), " ")%>