Guardando os favoritos dos usuários em um banco de dados

O código abaixo possibilita que os usuários do seu site guarde os seus favoritos numa base de dados e depois acesse-os diretamente do site.

Muito bom para quem tem algum site e usuários assíduos.

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






Seja bem vindo aos seus favoritos


(Usuário: <%=session("usuario_favoritos")%>)




Inserir novo Favorito


<%
Set rst = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from tb_favoritos where usuario = '" & session("usuario_favoritos") & "' order by nome"
rst.Open SQL, cnn
%>

<%
If rst.eof Then %>
	

		

			

			Nenhum registro localizado!!!

			
		
	<%
	response.End
	
	rst.close
	Set rst = nothing
End If
%>

		<%
		Do Until rst.eof
			response.write ""
			response.write "

	

		
Nome
Link
Ação
	
" & rst("nome") & "
" & rst("link")
			response.write "
"
			%>
			  ')"/>  
			">

			<%
			rst.movenext
		loop
	%>



<%
rst.close
Set rst = nothing
%>