Confira as bulas de seu interesse.
<%
strTipContent = request("link")
strBulasID = request("ID")
if strBulasID <> "" then
Set objrs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Bulas WHERE BulaID = " & strBulasID
objRS.open strSQL, objConexao
%>
<%if objRs.EOF then%>
Aguade, em breve, novos conteúdos.
<%else%>
<%=objRS("Titulo")%>
<%
aliasNoticia = objRS("descricao")
%>
<%= aliasNoticia%>
<%
objRs.Close
set objRs = nothing
%>
<%end if%>
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Bulas where BulaID <> " & strBulasId
objRs.open strSQL, objConexao
%>
OUTRAS BULAS
<%
if objRs.EOF then
%>
Não há outras bulas.
<%
else
Do while not objRs.eof%>
" class="link"><%=objRs("Titulo")%>
<%
objRs.MoveNext
LOOP
end if
%>
<%
ObjRs.Close
set ObjRs = nothing
%>
<%else%>
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Bulas"
objRs.open strSQL, objConexao
%>
TODAS AS BULAS
<%
if objRs.EOF then
%>
Não há outras publicações.
<%
else
Do while not objRs.eof%>
" class="link"><%=objRs("Titulo")%>
<%
objRs.MoveNext
LOOP
end if
%>
<%
ObjRs.Close
set ObjRs = nothing
%>
<%end if%>
