Ir para conteúdo

POWERED BY:

Arquivado

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

FoX Borland

random de 12 registros para este código...

Por , em ASP Clássico

Recommended Posts

FoX Borland    0

FoX Borland
Postado

olá pessoal

 

estou com esse problema, espero que possam me ajudar, li vários artigos sobre randomize, mais não encontrei nada em que podia basear para adaptar à esse codigo!!

 

se poderem me ajudar, ficarei muito grato!

 

                         <%startrw = 0endrw = HLooper1__indexnumberColumns = 4numrows = 3while((numrows <> 0) AND (Not produtos.EOF))	startrw = endrw + 1	endrw = endrw + numberColumns %>                           <tr align="center" valign="top">                             <%While ((startrw <= endrw) AND (Not produtos.EOF))%>                             <td> <table width="100%"  border="0" cellspacing="0" cellpadding="2">                                 <tr>                                   <td><center>                                       <div style="width: 115px;"><img src="produtos/<%=(produtos.Fields.Item("foto").Value)%>" width="80" height="80" vspace="2" /><br />                                         <a href="#" class="style2"><%=(produtos.Fields.Item("nome").Value)%><br />                                         <%=(produtos.Fields.Item("detalhes").Value)%></a><br />                                         <span class="style"><a href="#" class="style2"><b>R$ <%=(produtos.Fields.Item("preco").Value)%> <br />                                         </b><b><b></b>ou <b><%=(produtos.Fields.Item("parcelas").Value)%>x R$ <%=(produtos.Fields.Item("valor_parcela").Value)%></b> s/ juros </b></a></span></div>                                     </center></td>                                 </tr>                               </table></td>                             <%	startrw = startrw + 1	produtos.MoveNext()	Wend	%>                           </tr>                           <% numrows=numrows-1 Wend %>

esse aí é o codigo da tabela q é exibida, já com o loop q faz com q seja mostrada 12 vezes, mais eu keria adicionar o randomize, para que toda vez q a pagina fosse ixibida, mostrasse outros 12 registros diferentes...

 

podem me ajudar? espero que sim!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

muito obrigado pela atenção

 

abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

FoX Borland    0

FoX Borland
Postado

posta o SQL que você está usando pra trazer esses registros

<{POST_SNAPBACK}>

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/produtos.asp" --><%Dim produtosDim produtos_numRowsSet produtos = Server.CreateObject("ADODB.Recordset")produtos.ActiveConnection = MM_produtos_STRINGprodutos.Source = "SELECT * FROM produtos"produtos.CursorType = 0produtos.CursorLocation = 2produtos.LockType = 1produtos.Open()produtos_numRows = 0%><%Dim HLooper1__numRowsHLooper1__numRows = 12Dim HLooper1__indexHLooper1__index = 0produtos_numRows = produtos_numRows + HLooper1__numRows%>

cara isso aqui pode te ajudar... uma coisa. você ta usando o dreamweaver certo !? cara tente não usar a programação dele não suja demais o código sem contar que é limitado.

 

http://www.stardeveloper.com/articles/disp...00082901&page=1

<{POST_SNAPBACK}>

eu não tenho conhecimento em asp, então eu uso o dreamweaver para desenvolver os codigos para mim!

 

sobre o site que me passou, já vi bastante explicando quase o mesmo jeito, mais como eu disse no tópico não consegui adaptar junto ao meu código!

 

 

 

 

 

 

 

 

obrigado pela atenção!

Compartilhar este post

Link para o post
Compartilhar em outros sites

kauebranco    0

kauebranco
Postado

Experimenta trocar essa linhaprodutos.Source = "SELECT * FROM produtos"por essaprodutos.Source = "Select TOP 12 * FROM produtos ORDER BY RND(cod)"lembrando que eu imaginei que o seu campo de código é "cod" ..adapte com o nome certo ...ve se fica legal pra você ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

FoX Borland    0

FoX Borland
Postado

Experimenta trocar essa linha

 

produtos.Source = "SELECT * FROM produtos"

 

por essa

 

produtos.Source = "Select TOP 12 * FROM produtos ORDER BY RND(cod)"

 

 

lembrando que eu imaginei que o seu campo de código é "cod" ..adapte com o nome certo ...

 

ve se fica legal pra você ...

<{POST_SNAPBACK}>

então cara....... eu atualizo a página, mais os produtos ficam no mesmo lugar rsrsr

Compartilhar este post

Link para o post
Compartilhar em outros sites

kauebranco    0

kauebranco
Postado

tenta colocar antes da linha que eu disse pra você mudar Randomize .... acho que num tem nada a ver mais num custa tentar ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tente ordenar assimORDER BY Rnd(Int(Now()*[iD])-Now()*[iD]);"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado
de nada amigo

 

Marioufpa ....

 

Voce poderia me explicar pq que colocando só o RND(ID)  como eu tinha feito não funcionou ???

bem no acess não funciona isso

 

e o access não tem nada que faça isso de forma mais simples... como tem no mysql ou no sqlserver...

Compartilhar este post

Link para o post
Compartilhar em outros sites

kauebranco    0

kauebranco
Postado

ann tendi .. mais estranho pq eu ja fiz isso no ACCESS usando desse jeito que eu disse e ele sorteava o ID sim ... será que é pq eu fiz pelo VB ????? mais o código SQL é o mesmo ... estranho ....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito