<% 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 "" 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.movenext loop response.Write "
"&leg&"
"&rs_f("f_leg")&"
" 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%>