<%@ Language="VBScript" %> <% Set DatabaseConnection = Server.CreateObject("ADODB.Connection") DatabaseConnection.Open Get_ConexaoAdm Set UserRecordset = Server.CreateObject("ADODB.Recordset") DatabaseConnection.CursorLocation = 3 UserRecordset.PageSize = 20 vCodigo =GM_StrToNumber(request("Codigo")) vOpcao = GM_StrToNumber(request("Opcao")) select case vOpcao case 0,1 vOpcao = 1 vNomePagina = "titulo_noticias.jpg" case 2 vNomePagina = "titulo_imprensa.jpg" case 3 vNomePagina = "titulo_eventos.jpg" case 4 vNomePagina = "titulo_pressrelease.jpg" case 5 vNomePagina = "titulo_cursos.jpg" case 6 vNomePagina = "titulo_oficinas.jpg" end select SQLString = "SELECT * FROM Noticias where ID = "& vCodigo SQLString = SQLString & " order by Data_Noticia desc " UserRecordset.Open SQLString, DatabaseConnection if not UserRecordset.EOF then vTitulo = UserRecordset("Titulo") vArquivo = UserRecordset("Arquivo") vDescricao = UserRecordset("Descricao") vFonte = UserRecordset("Fonte") vData = UserRecordset("Data_Noticia") else vMens = "Erro ao tentar localizar artigo." end if %> Banco de Alimentos
Português Inglês Espanhol Italiano
 
Quem somos O que fazemos Como fazemos Nossos números Participe  
<% if vArquivo <> "" or not isNull(vArquivo) then %>
<%end if %> <%=FormataData(vData) %> - <%=vTitulo %>
<%=vDescricao %>
<%if trim(vFonte) <> "" then response.write "Fonte:" &vFonte end if%>

Voltar    

Copyright © Banco de Alimentos 2004/2007 -
<% DatabaseConnection.Close Set DatabaseConnection = Nothing Set UserRecordset = Nothing if trim(vMens) <> "" then%> <%end if %>