[Resolvido] Colocar produtos aleatórios na vitrine

[Guest --Maxwell --]

Olá Amigos do fórum.

Gostaria da opinião de vocês.

Estou com um código de agência de carros.

A página principal tem uma vitrine que não é randômica, ela mostra apenas os últimos veículos incluídos.

Postei a parte do código que exibe os produtos abaixo.

Trata-se de uma tabela com 3 colunas e 4 linhas, exibindo 12 veículos.

Pergunta:

É dificil acrescentar um código para ela resgatar do banco de dados aleatoriamente os veículos? Ou é melhor eu esquecer esse código e utilizar outro já pronto?

Quem puder me ajudar agradeço.

<%if CodigoUtilizados = "" then CodigoUtilizados = "0"
set RSDestaque = Server.CreateObject("AdoDB.RecordSet")
SQL =	"Select	top 12 Vei.*, Mar.Marca, Mode.Modelo, Mode.Versao " & chr(13) & _
		"from Veiculos Vei, Marcas Mar, Modelos Mode " & chr(13) & _
		"where Vei.CodigoMarca = Mar.CodigoMarca " & chr(13) & _
		"and	Vei.CodigoModelo = Mode.CodigoModelo " & chr(13) & _
		"and	 Vei.CodigoVeiculo not in ( " & CodigoUtilizados & ")  order by CodigoVeiculo desc " & chr(13)
RSDestaque.open SQL, conn, 1%>


<TABLE class=texto cellSpacing=0 cellPadding=0 border=0 width=100%>
<TR>
<%cont = -1 while not RSDestaque.EOF and cont < 12	cont = cont + 1 if ( cont mod 3 ) = 0 and cont > 0 then%>
</tr>
<tr>
<%end if%>
<TD class=titulo3  noWrap align=middle  background=img/fundo_destaque.gif width=187 height=187>

<a href='<%=root%>detalhe.asp?id=<%=RSDestaque("CodigoVeiculo")%>'><IMG  src="<%=root%>central/veiculo/Imagem/<%=RSDestaque("FotoPrincipal")%>" width=135 height=96 border=0><br>
<B>R$ <%=FormatNumber(RSDestaque("preço"),2)%></B></a>

</TD>
<%RSDestaque.MoveNext wend%>
</TR>
</table>

<%RSDestaque.close
set RSDestaque = nothing%>

[douglasdamame]

Olá,

Da para adaptar em seu código sim

<%if CodigoUtilizados = "" then CodigoUtilizados = "0"
set RSDestaque = Server.CreateObject("AdoDB.RecordSet")
SQL = "Select top 12 Vei.*, Mar.Marca, Mode.Modelo, Mode.Versao " & chr(13) & _
"from Veiculos Vei, Marcas Mar, Modelos Mode " & chr(13) & _
"where Vei.CodigoMarca = Mar.CodigoMarca " & chr(13) & _
"and Vei.CodigoModelo = Mode.CodigoModelo " & chr(13) & _
"and Vei.CodigoVeiculo not in ( " & CodigoUtilizados & ") order by RND(INT(NOW*CodigoVeiculo)-NOW*iCodigoVeiculo)" & chr(13)
RSDestaque.open SQL, conn, 1%>

Vê se funciona !!!

Douglas Damame

http://www.u2net.com.br

Editado Fevereiro 24, 2008 por douglasdamame

[bareta]

nesse artiguinho aqui tem a mesma coisa pra mysql e access.

o douglasdamame postou a de access adaptada a sua sql.

[Guest --eletrohoo --]

douglasdamame e bareta muito obrigado, o código funcionou perfeitamente.

Ficou bem mais fácil, pois as opções que eu tinha eram bem mais complexas...

Obrigado mesmo.

Detalhe: há um erro de digitação no código ...NOW*iCodigoVeiculo)" & chr(13)...