<% dim titulo, resumo, imagem, arquivo, destaque, dataCriacao, noticiaId, publicacaoId Dim connNoticiasDestaque, connNoticiasArquivo dim sqlNoticiasDestaque, sqlNoticiasArquivo if (Request.QueryString.count > 0) then if (isNumeric(Request.QueryString("publicacaoId"))) then publicacaoId = Request.QueryString("publicacaoId") else publicacaoId = "0" end if else publicacaoId = "0" end if sqlNoticiasDestaque = "SELECT id, Titulo, Resumo, Imagem, Arquivo, Destaque, DataCriacao FROM Noticias WHERE visivel > 0 and Destaque = 1 AND estado=1 AND PublicacaoId = " + publicacaoId + " ORDER BY DataCriacao DESC" sqlNoticiasArquivo = "SELECT id, Titulo, Resumo, Imagem, Arquivo, Destaque, DataCriacao FROM Noticias WHERE visivel > 0 and Arquivo = 1 AND estado=1 AND PublicacaoId = " + publicacaoId + " ORDER BY DataCriacao DESC" Set connNoticiasDestaque=Server.CreateObject("ADODB.Connection") connNoticiasDestaque.ConnectionString = aConnectionString connNoticiasDestaque.Open Set dataNoticiasDestaque = connNoticiasDestaque.execute(sqlNoticiasDestaque) Set connNoticiasArquivo=Server.CreateObject("ADODB.Connection") connNoticiasArquivo.ConnectionString = aConnectionString connNoticiasArquivo.Open Set dataNoticiasArquivo = connNoticiasArquivo.execute(sqlNoticiasArquivo) %> Álvaro Duarte & Associados – Marcas e Patentes

Eventos

<%if NOT dataNoticiasDestaque.EOF then do While Not dataNoticiasDestaque.EOF noticiaId = dataNoticiasDestaque("id") titulo = dataNoticiasDestaque("Titulo") resumo = dataNoticiasDestaque("Resumo") imagem = dataNoticiasDestaque("Imagem") dataCriacao = FormatMediumDate(dataNoticiasDestaque("DataCriacao")) %> <% if (imagem = "" ) or (IsNull(imagem)) then%> <%else%> <%end if set fs=nothing %>

<% Response.Write(titulo) %> .<% Response.Write(dataCriacao) %>
<% Response.Write(resumo) %>
Presenças: Rui Duarte Catana

<% dataNoticiasDestaque.MoveNext Loop else Response.Write("Não existem noticias em destaque.") end if %>

OHIM – Office for Harmonization in the Internal Market
http://www.aippi.org

WIPO – World Intelectual Property Organization
http://www.ecta.org

EPO – European Patent Office


<% Set oRsSQL = nothing 'oConnSQL.Close 'set oConnSQL = nothing connNoticiasArquivo.close set connNoticiasArquivo = nothing connNoticiasDestaque.close set connNoticiasDestaque = nothing %>