Um sistema de dicas aleatórias que vou explicar aqui, é simplesmente uma das únicas maneiras de se prosseguir, vou explicar uma forma simples e fácil:

Este aplicativo exige:
- Uma tabela chamada DicasAleatorias em um banco de dados com um campo código e outro dicas
- O campo código, deve ser de númeral apartir de 0 (zero)

Vamos ao código para selecionar a dica do dia no banco de dados:

<% ' A linha abaixo é muito importante ' pois é necessário que o browser não armazene ' a página de dicas aleatórias no cache Response.expires = 0 ' Criando o objeto Set objConn = Server.CreateObject("ADODB.Connection") ' Abrindo conexão com o banco de dados objConn.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("tabela.mdb") ' String SQL para selecionar todos os campos da tabela DicasAleatorias strSQL = "SELECT * FROM DicasAleatorias" ' Criando o RecordSet set objRS = Server.CreateObject("ADODB.RecordSet") ' Executando a strSQL com o RecordSet objRS.Open strSQL, objConn, 3, ,adCmdText ' Vamos agora fazer um randomize apartir de ' todas as dicas cadastradas no BD ' Utilizaremos recordcount e faremos ' uma contagem no total de registros e ' pegar o número inteiro deste total ' aleatoriamente. Randomize timer ' A variavel vai armazenar o número ' inteiro da dica selecionada strDicaAleatoria = INT(RND * objRS.RecordCount) ' Fechamos o BD objRS.Close ' Criaremos agora uma string SQL para selecionar ' a dica que foi escolhida aleatóriamente strSQL = "SELECT * FROM DicasAleatorias WHERE Codigo LIKE '"& strDicaAleatoria &"'" ' Executamos a string SQL apartir da instância do objeto novamente objRS.open strSQL, objConn ' Enfim, executamos um loop e mostramos a dica do dia! while not objRS.EOF response.write objRS("Dicas") & "<BR>" objRS.MoveNext Wend set objRS = nothing set objConn = nothing %>
Bom, conforme o tempo vai voando, vou escrever outras formas de dicas aleatórias
e aprimorar como mostrar dicas aleatórias específicas para específicos usuários,
como fazer a contagem de quantas vezes a dica foi vista e poupa-la de ser mostrada
novamente etc..

Escrito por Cláudio Hickstein