<%
if request("id") <> "" then
set rs = db.execute("select * from tbl_not where not_id = '"&request("id")&"'")
if rs.eof then
msn = "Nenhum texto adicionado..."
else
tit = rs("not_tit")
desc = rs("not_desc")
img_p = rs("not_img_p")
img_g = rs("not_img_g")
data = rs("not_data")
end if
set rs = nothing
response.Write "["&formatadata(data)&"] -
"&tit&""
response.Write "
"
if img_p = "" or isNull(img_p) then
response.Write "![]() |
"
else
response.Write "![]() "&leg&" |
"
end if
set rs_f = db.execute("select * from tbl_fotos where f_cod = '"&request("id")&"' && f_tipo = 'not'")
do until rs_f.eof
response.Write "![]() "&rs_f("f_leg")&" |
"
rs_f.movenext
loop
response.Write "
"
set rs_f = nothing
response.Write desc & "
[ voltar ]"
else
set eve = db.execute("select * from tbl_not order by not_data DESC")
if eve.eof then
response.Write "
Nenhuma notícia adicionada até o momento
"
else
do until eve.eof
response.Write "
"
if eve("not_img_p") = "" or isNull(eve("not_img_p")) then
response.Write "
"
else
response.Write "
"
end if
response.Write "["&formatadata(eve("not_data"))&"] - "&eve("not_tit")&"
"&RemoveHTMLTags(left(eve("not_desc"),50))&"(...)
Leia na íntegra
"
response.Write "
"
eve.movenext
loop
set eve = nothing
end if
end if%>