Texto Rotativo

[danilo.rp 0]

Ola Pessoal tudo bem, como eu faço para colocar texto rotativo exemplo, quando eu abri o site esta um texto depois quando ele abrir novamente esta outro texto, como fazer alguen tem alguma odeia.

[Salgado 4]

você pode usar o Randomize.

 

exemplo;

texto(0)=0
texto(1)=1
texto(2)=2
texto(3)=3
texto(4)=4
texto(5)=5

Randomize
x=(rnd*5)
response.write texto(x)

você pode usar tb com um bd.

 

Valeu?

[rOcKLoCo 0]

Tá na mão...falow

<% Function Aleatorio() Dim msg(2) msg(0) = "Mensagem 1" msg(1) = "Mensagem 2" msg(2) = "Mensagem 3" for i = LBound(msg) to UBound(msg) n = 1 + i Next Randomize num = Int(Rnd * n) mostrar = msg(num) response.write mostrar end Function Aleatorio() %>

[danilo.rp 0]

Pessoal Obrigado. Até mais.

[rafaelta 0]

Cara, a ideia é essa... mas nao to conseguindo inserir html no conteudo da mensagem. alguem sabe como incluir um script ou vodigo html dentro da area que vai ser mostrada randomicamente???

 

vaaleu!!!

 

 

 

Tá na mão...

 

falow

 

<%

Function Aleatorio()

Dim msg(2)

 

msg(0) = "Mensagem 1"

msg(1) = "Mensagem 2"

msg(2) = "Mensagem 3"

 

for i = LBound(msg) to UBound(msg)

n = 1 + i

Next

 

Randomize

num = Int(Rnd * n)

mostrar = msg(num)

response.write mostrar

end Function

 

Aleatorio()

%>

[Vinicius Ianni 189]

Alterei o texto das mensagens e aqui rodou sem problemas:

msg(0) = "Testando código <b>HTML</b>"
msg(1) = "<img src='imagem.jpg'>"
msg(2) = "<a href='http://www.imasters.com.br'>Imasters</a>"

[xanburzum 169]

você também pode pegar as mensagens direto do banco de dados, existe um exemplo que postei no lab. de script, faça uma pesquisa.

 

exemplo:

 

<%
DIM mySQL, objRSmax
mySQL = "SELECT MAX(NoteID) AS MaxNote FROM tblNotes WHERE Active='Yes'"
Set objRSmax = Server.CreateObject("ADODB.Recordset")
objRSmax.Open mySQL, objConn


Randomize
DIM intRecord
intRecord = Int(objRSmax("MaxNote") * Rnd + 1)
objRSmax.Close
Set objRSmax = Nothing

DIM mySQL2
DIM objRSnote

mySQL2 = "SELECT Note FROM tblNotes WHERE NoteID = " & intRecord & ""
Set objRSnote = Server.CreateObject("ADODB.Recordset")
objRSnot e.Open mySQL2, objConn



' Response.Write "<table class='adbar'><tr><td class='notes'>"
Response.Write "<table border='1' cellpadding='3' cellspacing='3'><tr><td class='notes'>"

Response.Write objRSnote("Note")
Response.Write "</td></tr></table>"


objRSnote.Close
Set objRSnote = Nothing
%>
Reply With Quote