Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ricardo.frias

randomize

Recommended Posts

Pessoal, tenho uma página aonde eu gostaria de exibir 3 imagens que estão com seus omes em um banco de dados Access, eu até consegui exibí-las, mas as vezes acontece de suas imagens sairem repetidas na página. Como eu faço pra que isso não aconteça???

 

 

Set rs= Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT COUNT(*) AS TotalImagens FROM tabela"

rs.Open strSQL, ConnStr

 

maximo = rs("TotalImagens")

 

<%

Randomize

 

cont = 1

 

while not(cont = 3)

num = int(maximo * Rnd) + 1

response.write num & " "

cont = cont + 1

wend

%>

 

Valeu

 

Ricardo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu não manjo trabalhar com vetor, se puder me dar uma mão eu agradeço...

 

 

<%

Randomize

cont = 0

while not(cont = 3)

num = int(registros * Rnd) + 1

 

Set rsFoto = Server.CreateObject("ADODB.Recordset")

strSQL5 = "SELECT nm_foto FROM tblVeiculo WHERE id_veiculo="&num

rsFoto.Open strSQL5, ConnStr

%>

 

<%If rsFoto("nm_foto") <> "" Then%>

 

<td>

<img src="images/<%=rsFoto("nm_foto")%>" border="0" width="150" height="113"><br>

</td>

 

<%

cont = cont + 1

End If%>

 

<%

wend

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

veja se isso te ajuda!!

<%set rs = Server.CreateObject("ADODB.Recordset")rs.Open "select * from galerias", cnIf not rs.EOF Then strGal = rs.GetRows() rs.MoveFirst intCounter = 0 Do While Not rs.EOF  intCounter = intCounter + 1  rs.MoveNext Loop rs.MoveFirst iTotal = 0 Do While iTotal < 5  Randomize  intID = Int(Rnd * intCounter)  IF  InStr(sJa,"|"&intID&"|") = 0 Then    sJa = sJa & "|" & intID & "|"%>      <td align="center" valign="top">      <a href="<%=strGal(3,intID)%>" target="_blank"><img src="<%=strGal(2,intID)%>" border="0">      <br>      <%=strGal(1,intID)%>      </a>      </td><%    iTotal = iTotal + 1  End IF Loopend ifrs.Closeset rs = nothing%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara, no começo estava beleza mas quando chegou aqui

  IF  InStr(sJa,"|"&intID&"|") = 0 Then    sJa = sJa & "|" & intID & "|"

Deu um nó na minha cabeça...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.