[Resolvido] palavras mais acessadas

Bom Dia !

Isso é tag cloud, tem um exemplo no laboratório de scripts, dá uma olhada lá.

Abraços,

Vinicius Ianni

Achei Vinicius,

<%
Function tagClouds()
Set Cn = Server.CreateObject("ADODB.Connection")

'/##### Conexao Com o Servidor Portal #####/

Cn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Inetpub\wwwroot\te_database.mdb;"

Cn.CursorLocation = 3
Cn.open

	sql = "SELECT TOP 10 * FROM produtos WHERE num_cliques > 10"
	Set objRs = Cn.Execute(sql)

	Dim tempTag

	While Not objRs.EOF
 tempTag = tempTag & objRs("produto") & " "
	objRs.MoveNext
	Wend

	sArr = split(tempTag," ")

	link = "gol"

	For i = 0 to ubound(sArr)
 'randomize usado para que cada atualizaçao as fonte troquem de tamnho - opcional
 randomize
 sCSS = sCSS & "<span class=""tag"&Int(3 * Rnd)&"""><a href='busca.asp?str=" & link & "'>"& sArr(i) &"</span> "
	Next
	Response.Write(sCss)

End Function

%>
<style type="text/css">
#MaisBuscados a {

	font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
	color:#666666;
	text-decoration:none;
}

#MaisBuscados a:hover {

	font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
	color:#666666;
	text-decoration:underline;
}

#tags{background-color:#EAEBF5;}
#MaisBuscados span{padding: 5px;}
#MaisBuscados span.tag0 {font-size: 13px;}
#MaisBuscados span.tag1 {font-size: 20px;}
#MaisBuscados span.tag2 {font-size: 30px;}

</style>

<table width="50%" border="0" cellspacing="0" cellpadding="0">
 <tr>
	<td>
<div id="MaisBuscados">
 <div id="tBuscados">
	<h4>Mais Buscados</h4>
 </div>
 <div id="tags">
	<% tagClouds %>
 </div>
</div>
	</td>
 </tr>
</table>

Muito obrigado.

precisando, só falar

:)

Abraços,

Vinicius Ianni