Registros Randomicos

[thiagotorres 0]

Ola Pessoal,No tópico anterior consegui fazer o que eu queria, que era redirecionar a página para a última foto postada...Estou fazendo um fotolog e coloquei uma área que aparece os meus favoritos com foto e nome do fotolog favorito e limitei aparecer somente 5 registros, mais não gostaria que os mesmos ficassem fixos e sim que eles se misturassem, aparecendo diferentes registros a cada visita Como posso fazer isso????Abraços

[thiagotorres 0]

Ok, tem como você me explicar como posso adaptar esse código lá???aqui embaixo está o código q atualmente estou usando:<%Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&ConexaoFlogao&";"set favoritos = conexao.execute("select top 5 * from favoritos where IDUsuario = 1 order by TituloFavorito")if favoritos.eof then%><% else while not favoritos.eof set cat = conexao.execute("select * from favoritos where IDFavorito = "&favoritos("IDUsuario")&"")%> <p style="margin-top: 6"></p><font size="2"> <p align="center"><font face="Tahoma, Arial, Helvetica"> <img src ="<%=favoritos("imagemfavorito")%>" width="100" height="75"> <br> <a href="<%=favoritos("linkfavorito")%>" target="blank"><%=favoritos("titulofavorito")%></a> <% favoritos.movenext wendend ifconexao.closeset conexao = nothing %>tem como adaptar aquele script que tem no tópico que você me indicou???Abraços

[thiagotorres 0]

Correto a conexão funcionou, beleza...Agora tenho que puxar a imagem,o link e o nome do favorito(registro)E quando executo o script ele aparece os números, mais como não sei fuçar lá não quero apagar o que não pode....Por exemplo no que eu uso (sem ter randomize) exibo os dados da seguinte maneira:<%=objRS("FOTO")%> - exibe a foto<%=objRS("LINK")%> - exibe o link do favorito<%=objRS("NOME")%> - exibe o nome do favoritoMais onde posso colocar isso lá e tirar aqueles números???AbraçosObs: desculpa cara sou oreia ainda em asp...heheh..comecei faz pouco tempo...rs

[faivic 0]

nesse exemplo que o AAlves postou eu já tentei de tudo, e da sempre o mesmo erro:

 

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/bdasp/indexteste.asp, line 10

 

como ja postei num tópico aqui, venho tentando mostrar aleatoriamente 4 registros diferentes de uma mesma tabela, até consegui, mas vez ou outra os registros repetem

 

<%@ Language=VBScript %><%  Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "DBQ=C:\inetpub\wwwroot\bdasp\db_folder\db_file1.mdb;Driver={Microsoft Access Driver (*.mdb)};"' Gravamos o Recordset em um Array BidimensionalSet strRS = Server.CreateObject("ADODB.Recordset")strRS.CursorLocation = 3strRS.Open "select * from db_table where cod = 1 order by marca_carro", DBarySub = strRS.getRows()' Fechamos a conexão pois não usaremos maisstrRS.CloseSet strRS = Nothing'strConexao.Close'Set strConexao = NothingDim TotalReg, TotalNum, vran, x, encontrou, arrGerados(0)Dim Numreg, verGerado, var_arrGerados, xLoopFunction GeraRegistros(TotalNum)TotalReg=Cint(uBound(arySub,2)) ' Encontramos o Maior Array Geradovran = 1For x = 0 To TotalNum-1 ' LOOP de 1 p/ Total solicitadoencontrou = 1Randomize() ' Geramos o primeiro RandomNumReg = Cint((rnd*TotalReg))verGerado = Split(var_arrGerados,",") ' Verifica se nº geradoFor xLoop = LBound(verGerado) To UBound(verGerado)IF Trim(verGerado(xLoop)) = Trim(NumReg) Then'Este "response" comentado abaixo, indica qual número se repetiram'E não armazena no Array único, fazendo gerando um novo Random'response.write "<b>[ "& verGerado(xLoop) &","& NumReg &" ]</b><br> "x = x - 1encontrou = 2Exit ForEnd IFNextIF encontrou = 1 Then ' NÃO ENCONTROU, gera o próximo númeroIF vran = 1 Then ' primeiro (Verificar este trecho)arrGerados(0) = NumRegvran = 2ElsearrGerados(0) = arrGerados(0) &","& NumRegEnd IFvar_arrGerados = Join(arrGerados)End IFNextGeraRegistros = var_arrGeradosEnd Function' Array gerado, podemos iniciar a formatação de perguntasnumber = GeraRegistros(5) //NÚMERO DE REGISTROS GERADOSverNum = Split(number, ",")For x = LBound(verNum) to UBound(verNum)response.write arySub(0,verNum(x)) &"."response.write arySub(1,verNum(x)) &"<br>"Next%><img src="<%= arySub("foto")%>

 

agradeço qualquer ajuda

[Michel_ 0]

Olá thiago tente usar esse código:

 

<%rs.Open "SELECT top  5 *FROM carros  ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID]);",Conexao%>

Aí é só chamar os cinco registro ok..