<%
set rs1=Server.CreateObject("ADODB.Recordset")
SQLINST = "SELECT * from tvideos where(cdcontrole=2 and posicao='Historico')order by dtinclusao desc"
Set Rs1=COnn.Execute(Sqlinst)
%>
<%
' Para cada registro encontrado...
do while not rs1.eof
%>
Vídeo: <%=rs1("titulo")%>
<% rs1.movenext
loop%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
SQLINST1 = "SELECT * from tvideos where(cdcontrole=2 and nmcategoria='recados')order by dtinclusao desc"
Set Rs=COnn.Execute(Sqlinst1)
%>
<%
' Para cada registro encontrado...
do while not rs.eof
%>