Categorias:

<% if strAcao = "edita" then mtzCat = SPLIT(rsNot("idCategorias"), ",") Do While not rs.eof IdCat = TRIM(rs("id")) StrCat = rs("nome") MaxCount = Ubound(mtzCat) Condicao = 0 For i=0 to MaxCount if TRIM(mtzCat(i)) = IdCat then Condicao = 1 end if Next if Condicao = 1 then %> <%= strCat %> <% else %> <%= strCat %> <% end if rs.MoveNext Loop %> <% else %> <% Do While not rs.eof %> "><%= rs("nome") %> <% rs.movenext Loop end if %>

Título:
value="<%= rsEdita("titulo") %>"<% end if %> id="titulo" size="40" maxlength="255">

Data: <% if strAcao = "edita" then %> " size="2" maxlength="2"> de " size="2" maxlength="2"> de " size="4" maxlength="4"> <% else %> de de <% end if %>

Artigo relacionado:
selected<% end if %>>Não, nenhum artigo relacionado! <% Do While not rsArt.eof %> "<% if rsEdita("artRelac") = rsArt("id") then %> selected<% end if %>>(<%= rsArt("dt") %>) <%= rsArt("fonte") %>: <%= rsArt("titulo") %> <% rsArt.movenext Loop %>

Algum artigo relacionado?
Não, nenhum artigo relacionado! <% Do While not rsArt.eof %> ">(<%= rsArt("dt") %>) <%= rsArt("fonte") %>: <%= rsArt("titulo") %> <% rsArt.movenext Loop %>

Conteúdo:
<% if strAcao = "edita" then %><%= rsEdita("texto") %><% end if %>

<% if strAcao = "inclui" then %> <% else %>

Clique aqui para DELETAR esta nota

Clique aqui para incluir uma nova nota <% end if %>