<% ' PARTE DO ZÉ Dim vTxt Dim Link vKey = CLng(request.querystring("k")) If vKey = 0 Then vKey = 13 End If set conn = server.createobject("adodb.connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _ Server.MapPath ("../Dados/arquetipo.mdb")&";Persist Security Info=False" SQL = "SELECT * FROM news WHERE chave = " & vKey SET rs = conn.execute(SQL) vTxt = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(rs("NW_txt"), "?", ""), "'", ""), "!", ""), ".", ""), ",", ""), "-", ""), ":", ""), chr(10), ""), chr(13), ""), chr(34), "") rs.close conn.close vMax = 44 ' FIM DA PARTE DO ZÉ %> NUVEM DA LEME <% Call doTagClouds("tags", vTxt, Link) %>