<% response.write"" response.write"" response.write"" response.write"" response.write "" response.write "" response.write"" topico="Eventos" acao=request("acao") if acao="" then acao="vazio" end if select case acao case "vazio" %> <% sql = "select * from ferramenta where topico='"&topico&"'" rs.open sql,conn if not rs.bof and not rs.eof then response.write"
" response.write"
" id=rs("id") titulo=rs("titulo") texto=rs("texto") texto = Replace(texto, vbCrLf, "
") texto = Replace(texto, "

", "") response.write"

" response.write"" response.write"
" response.write"
"&titulo&"
" response.write"" response.write texto response.write"
" end if rs.close set rs = nothing conn.close set conn = nothing end select %>