Help
Nunca quis mostrar dicas aleatórias ou quotes em seu site? Aqui está um displayer texto aleatório que usamos em um site que mostra uma dica aleatórios cada vez que o navegador está atualizado.
A primeira coisa que você precisa fazer é criar um banco de dados com uma tabela chamada tblQuickTips com estes campos:
FID - AutoNumeração
fTip - campo de texto ou campo memo dependendo de quanto tempo as suas dicas são
crie uma página chamada randomtext.asp e copie o código abaixo na sua página:
CÓDIGO
<%
DIM mySQL, objRS
mySQL = "SELECT MAX(fID) AS MaxTip FROM tblContent_Quick_Tips"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
Randomize
DIM intRecord
intRecord = Int(objRS("MaxTip") * Rnd + 1)
objRS.Close
Set objRS = Nothing
mySQL2 = "SELECT fTip FROM tblContent_Quick_Tips WHERE fID = '" & intRecord & "'"
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.Open mySQL2, objConn
Response.Write objRS2("fText")
objRS2.Close
Set objRS2 = Nothing
%>
DIM mySQL, objRS
mySQL = "SELECT MAX(fID) AS MaxTip FROM tblContent_Quick_Tips"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
Randomize
DIM intRecord
intRecord = Int(objRS("MaxTip") * Rnd + 1)
objRS.Close
Set objRS = Nothing
mySQL2 = "SELECT fTip FROM tblContent_Quick_Tips WHERE fID = '" & intRecord & "'"
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.Open mySQL2, objConn
Response.Write objRS2("fText")
objRS2.Close
Set objRS2 = Nothing
%>
Basta publicar sua página e banco de dados e clique em atualizar no seu navegador. Cada vez que você atualizar, uma dica aleatória será mostrada.
