<% COD = Cint("0" & Request("cod")) SQLartigo = "SELECT * FROM artigos WHERE cod_artigo=" & COD Set rsartigo = BCO.Execute(SQLartigo) If Not rsartigo.EOF Then titulo = rsartigo("titulo") subtitulo = rsartigo("subtitulo") coluna1 = Split(rsartigo("coluna1"), vbCRLF) coluna2 = Split(rsartigo("coluna2"), vbCRLF) autor = rsartigo("autor") autor_link = "curriculo.asp?cod=" & Cint("0" & rsartigo("autor_cod")) autor_info = rsartigo("autor_info") If rsartigo("autor_email")="" Then autor_email = "kdpkepler@kdpkepler.com.br" Else autor_email = rsartigo("autor_email") End If data = rsartigo("data") Else titulo = "Artigos" subtitulo = "" texto = "O artigo procurado não foi encontrado..." End If '--- Seleciona os itens para exibir no menu superior (layer) SQLmenu = "SELECT TOP 2 cod_artigo, titulo FROM artigos ORDER BY rnd()" Set rsmenu = BCO.Execute(SQLmenu) %>