<% vlsSQL = "Select * from Atualize Where Home = -1 order by data ASC " vloRS.Open vlsSQL,vloconn If not vloRS.bof and not vloRS.eof then Do While not vloRS.eof if vloRS("destaque") = 0 then vlsLinha = "" vlsLinha = vlsLinha & "" vlsLinha = vlsLinha & "" response.write vlsLinha end if vloRS.movenext Loop Else Response.Write " " End if vloRS.close %>

ATUALIZE-SE

<% vlnIdAtualize = Request.QueryString("txtIdAtualizacao") If vlnIdAtualize <> 0 then vlsSQL = "Select * from Atualize Where IdAtualize = " & vlnIdAtualize Else vlsSQL = "Select * from Atualize Where Destaque = -1 order by data ASC" End if vloRS.Open vlsSQL,vloconn If not vloRS.bof and not vloRS.eof then Do While not vloRS.eof vlsLinha = "

" vlsLinha = vlsLinha & " " vlsLinha = vlsLinha & "" & vloRS("Data") & " - " & vloRS("Hora") & " - " & Ucase(vloRS("Titulo")) & "
" vlsLinha = vlsLinha & "" & vloRS("Nome") & "
" vlsLinha = vlsLinha & "
" vlsLinha = vlsLinha & fgsTXT2HTML(vloRS("Descricao")) vlsLinha = vlsLinha & "

" vlsLinha = vlsLinha & "
" response.write vlsLinha vloRS.movenext Loop Else Response.Write " " End if vloRS.close %>

" vlsLinha = vlsLinha & "

" & vloRS("Data")& " | " & vloRS("Hora") & "
" vlsLinha = vlsLinha & Ucase(vloRS("Nome")) & "
" vlsLinha = vlsLinha & fgsTXT2HTML(vloRS("Descricao")) vlsLinha = vlsLinha & "

" vlsLinha = vlsLinha & "

Páginas 1 | 2 | 3