'A aplicação completa se encontra no arquivo zipado em anexo...

<!--#include file=topo.asp-->
<center>
<BR><BR>
<span class=t3b>Seja bem vindo aos seus favoritos</span>
<BR>
<span class=t2>(Usuário: <%=session("usuario_favoritos")%>)</span>
<BR>
<A HREF="fav_cadastro.asp"><IMG SRC="imagens/novo_link.gif" WIDTH="59" HEIGHT="57" BORDER="0" ALT=""><BR>
Inserir novo Favorito</A>
<p>
<!--#include file=include_cnn.asp-->
<%
Set rst = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from tb_favoritos where usuario = '" & session("usuario_favoritos") & "' order by nome"
rst.Open SQL, cnn
%>
<!--#include file=include_VerErros.asp-->
<%
If rst.eof Then %>
	<center>
		<div id="aviso">
			<BR>
			Nenhum registro localizado!!!<BR>
			</div>
		</center>
	<%
	response.End
	
	rst.close
	Set rst = nothing
End If
%>
<table border="1" width="95%" cellPadding="0"  class=t1 cellSpacing="0" bgcolor="#ffffff" bordercolor="#BCBCBC" style="border-collapse: collapse">
	<tr bgcolor=#E5E5E5>
		<TH>Nome<TH>Link<TH>Ação
	<tr>
		<%
		Do Until rst.eof
			response.write "<tr>"
			response.write "<td>" & rst("nome") & "<td>" & rst("link")
			response.write "<td align=center>"
			%>
			  <input type="image" style="cursor:hand" src="imagens/lupa.ico"  WIDTH="18" HEIGHT="18" alt='Abrir página' onClick="abrirDoc('<%=rst("link")%>')"/>&nbsp;&nbsp;
			<A HREF="fav_Acao.asp?num=<%=rst("num")%>"><IMG SRC="imagens/excluir.gif"  BORDER="0" ALT="Excluir favorito"></A>

			<%
			rst.movenext
		loop
	%>
</table>
</center>

<%
rst.close
Set rst = nothing
%>

</center>
</div>
</div>