ATUALIZE-SE
<%
vlsSQL = "Select * from Atualize Where Home = -1 order by destaque, data ASC"
vloRS.Open vlsSQL,vloconn
If not vloRS.bof and not vloRS.eof then
Do While not vloRS.eof
vlsLinha = " "
if vloRS("destaque") then
vlsLinha = vlsLinha & "" & vloRS("Data") & " - " & vloRS("Hora") & " - " & vloRS("Titulo") & "
"
else
vlsLinha = vlsLinha & "" & vloRS("Data") & " - " & vloRS("Hora") & " - " & vloRS("Titulo") & "
"
end if
vlsLinha = vlsLinha & "" & fgsTXT2HTML(vloRS("Descricao")) & "
"
response.write vlsLinha
vloRS.movenext
Loop
Else
Response.Write " "
End if
vloRS.close
%>
|
NEWSLETTER
Cadastre-se e receba o informativo do INSTITUTO CYRO MARTINS
Preencha todos os campos
|