<% 'Rotina para os títulos de todos os pareceres 'Data de desenvolvimento: 01/02/2006 às 15:20 'Data da última alteração: --/--/-- às --:-- 'Requisitante: Fábio Zorob 'Sub que realiza a consulta no banco e exibe os pareceres ativos Sub ExibirTitulosPareceres() Dim strExibirTitulosPareceres, rsExibirTitulosPareceres 'Monta a variável responsável pela consulta strExibirTitulosPareceres = " SELECT Pareceres_ID, Pareceres_Titulo, Pareceres_DataCriacao" strExibirTitulosPareceres = strExibirTitulosPareceres & " FROM tb_Pareceres" strExibirTitulosPareceres = strExibirTitulosPareceres & " WHERE Pareceres_Ativo = TRUE" strExibirTitulosPareceres = strExibirTitulosPareceres & " ORDER BY Pareceres_Titulo" 'realiza a consulta Set rsExibirTitulosPareceres = Server.CreateObject("ADODB.Recordset") rsExibirTitulosPareceres.Open strExibirTitulosPareceres, cnDbBaddini, 3, 3 'exibe os dados da consulta caso tenha satisfeito as condições Response.Write("") Response.Write(" ") Response.Write(" ") Response.Write(" ") If ((rsExibirTitulosPareceres.EOF = TRUE) AND (rsExibirTitulosPareceres.BOF = TRUE)) Then Response.Write(" ") Response.Write(" ") Response.Write(" ") Else Do While ((rsExibirTitulosPareceres.EOF = FALSE) AND (rsExibirTitulosPareceres.BOF = FALSE)) Dim strParecer_Titulo, strParecer_DataCriacao, strParecer_ID strParecer_ID = Int(rsExibirTitulosPareceres.Fields("Pareceres_ID").Value) strParecer_Titulo = TrataString(rsExibirTitulosPareceres.Fields("Pareceres_Titulo").Value, "OBD") strParecer_DataCriacao = ExibeData(rsExibirTitulosPareceres.Fields("Pareceres_DataCriacao").Value, "BRA") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write(" ") rsExibirTitulosPareceres.MoveNext Loop End If Response.Write(" ") Response.Write(" ") Response.Write(" ") Response.Write("

Abaixo segue a lista completa de todos os pareceres publicados em nosso site, selecione um dos títulos para poder visualizado:

Nenhum parecer publicado até o momento.

" & strParecer_Titulo & "

Publicado em: " & strParecer_DataCriacao & "

") Set rsExibirTitulosPareceres = Nothing End Sub %>

| Home |    Envie um e-mail com seus dados, que entraremos em contato com você. Obrigado. <% Call ExibirTitulosPareceres() %> empresa | profissionais | área de atuação | cursos | links | contato