Confira publicações afins de seu interesse.
<%
strTipContent = request("link")
strNoticiaID = request("ID")
if strNoticiaID <> "" then
Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Mode = 3
strSQL = "UPDATE Noticias SET Visitas = Visitas + 1 WHERE NoticiaID = " & strNoticiaID
Set RS = objConexao.Execute(strSQL)
set RS = nothing
Set objrs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT imagem, titulo"&session("lang")&" as aliasTitulo, noticia"&session("lang")&" as aliasNoticia FROM Noticias WHERE NoticiaID = " & strNoticiaID
objRS.open strSQL, objConexao
%>
<%if objRs.EOF then%>
Aguade, em breve, novos conteúdos.
<%else%>
<%IF objRS("Imagem") <> "" THEN%>
" align="left" border="1">
<%end if%>
<%=objRS("aliasTitulo")%>
<%
aliasNoticia = objRS("aliasNoticia")
%>
<%= aliasNoticia%>
<%
objRs.Close
set objRs = nothing
%>
<%end if%>
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT noticiaId, titulo"&session("lang")&" as aliasTitulo FROM NOTICIAS where NoticiaID <> " & strNoticiaId
objRs.open strSQL, objConexao
%>
OUTRAS PUBLICAÇÕES
<%
if objRs.EOF then
%>
Não há outras publicações.
<%
else
Do while not objRs.eof%>
" class="link"><%=objRs("aliasTitulo")%>
<%
objRs.MoveNext
LOOP
end if
%>
<%
ObjRs.Close
set ObjRs = nothing
%>
<%else%>
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT noticiaId, titulo"&session("lang")&" as aliasTitulo FROM NOTICIAS"
objRs.open strSQL, objConexao
%>
TODAS AS PUBLICAÇÕES
<%
if objRs.EOF then
%>
Não há outras publicações.
<%
else
Do while not objRs.eof%>
" class="link"><%=objRs("aliasTitulo")%>
<%
objRs.MoveNext
LOOP
end if
%>
<%
ObjRs.Close
set ObjRs = nothing
%>
<%end if%>
