|
<%
vSQL = "SELECT CDNOTICIA, TXTTITULO, TXTINFORMACAO "
vSQL = vSQL & "FROM NOTICIA "
vSQL = vSQL & "WHERE TXTVISIVEL = 'S' "
vSQL = vSQL & " AND CDNOTICIA = " & request("cdNoticia")
set vRS = vDB.execute(vSQL)
if vRS.eof = true then
%>
Nenhum texto selecionado.
<%
else
%>
<%= vRS("TXTTITULO") %>
<%= replace(vRS("TXTINFORMACAO"),vbCrLf," ") %>
<%
end if
set vRS = nothing
%> |