<% Dim conn, RS4, queID, sql1, SQL4, rs1, randomNews, AdvObject, adHTML, variavel_qualquer Dim mes, rs, sql, link, RSB, RSFOTO, SQLB, link2, link3, contador set conn = server.createobject("adodb.connection") conn.open CONEXAO_PRODUCAO set RS = Server.CreateObject("ADODB.Recordset") SQL = "select * from NOTICIAS where not_codigo=" & Request.QueryString("nt") SQL = "select * from NOTICIAS where not_codigo=" & Request.QueryString("nt") RS.open SQL, conn set RSFOTO = Server.CreateObject("ADODB.Recordset") %> obs.: se houver, clique no ícone para o ver o respectivo arquivo. <%if MostraImagem(RS("not_codigo")) <> "" then %><%=MostraImagem(RS("not_codigo"))%>" TARGET="_blank"><%end if%>   <%=rs("not_titulo")%>         <%=rs("not_resumo")%> <%=rs("not_texto")%> veja todas as notícias deste tema | voltar   Participe. Compartilhe conosco as últimas notícias de seu conhecimento acerca do Universo do Direito.

<% Function MostraImagem(noticia) Dim x, NomeImg, Arquivo, SQL SQL = "select foto_txt_arquivo from FOTOS where foto_nr_noticia=" & noticia RSFOTO.open SQL, conn if not RSFOTO.EOF then Arquivo = RSFOTO("foto_txt_arquivo") for x=1 to len(Arquivo) if mid(right(Arquivo,x),1,1)="\" then exit for else NomeImg = mid(right(Arquivo,x),1,1) & NomeImg end if next else NomeImg = "" end if RSFOTO.Close MostraImagem = NomeImg End Function %>