<%
' PARTE DO ZÉ
Dim vTxt
Dim Link
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 TOP 1 * FROM news ORDER BY chave DESC"
SET rs = conn.execute(SQL)
vKey = CLng(rs("chave"))
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 = 17
Link = "http://www.arquetipodg.com.br/land/new4.asp?id=" & vKey
' FIM DA PARTE DO ZÉ
%>
NUVEM DA LEME
<% Call doTagClouds("tags", vTxt, Link) %>