Sao 3 produtos expostos na HOME. Um diferente do outro e naum iguais (claro !)
Vejam o codigo... e me ajudem !
<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE--> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <% Dim RS,i,Valores,ArraySplit,x,sID Set Conexao = Server.CreateObject("ADODB.Connection") ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb") Conexao.Open ConnString Set RS = Conexao.Execute("SELECT * FROM Estoque") For i = 1 to 1 'Randomiza os ids existentes no BD Do Until RS.EOF or RS.BOF Valores = Valores & RS("ID") & "," RS.Movenext Loop ArraySplit = Split(Left(Valores,Len(Valores)-1),",") Randomize x = CInt(Rnd()*Ubound(ArraySplit)) sID = ArraySplit(x) Set rsMostra = Conexao.Execute("SELECT * FROM Estoque where ID=" & sID) If rsMostra.EOF = True Then %> <!--INICIO DA TABELA_ESTOQUE VAZIO--> <tr> <td width="100%"> <p align="center"><b><font face="Tahoma"><font color="#FF0000"><u>NÃO HÁ VEÍCULOS NO ESTOQUE</u><br> </font><font size="2" color="#0000FF">Volte mais tarde para conferir !</font></font></b></td> </tr> <!--FIM DA TABELA_ESTOQUE VAZIO--> <% ELSE %> <!--INICIO DA TABELA_OFERTAS--> <tr> <td width="32%" height="87"> <!--INICIO DA TABELA_VEICULO 1--> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69"> <tr> <td width="83" rowspan="3" height="69"> <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>"><img src="Estoque/imagens/<%=rsMostra("Imagem")%>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td> <td width="6" rowspan="3" height="69"> </td> <td width="136" height="15"> <p align="left"><b><span lang="pt-br"> <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>"><%= rsMostra("Nome") %></a></font></span></b></td> </tr> <tr> <td width="136" height="7"> <img border="0" src="images/Linha_laranja.jpg"></td> </tr> <tr> <td width="136" height="47"> <p align="left"><b><span lang="pt-br"> <font face="Tahoma" size="2" color="#333333"><%= rsMostra("Ano") %><br><br>R$ <%= rsMostra("Valor") %></font></span></b></td> </tr> </table> </center> </div> <!--FIM DA TABELA_VEICULO 1--> </td> <td width="2%" height="87"> <p align="center"> <img border="0" src="images/Separador_Pontilhado.jpg"></td> <td width="31%" height="87"> <!--INICIO DA TABELA_VEICULO 2--> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69"> <tr> <td width="83" rowspan="3" height="69"> <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>"><img src="Estoque/imagens/<%=rsMostra("Imagem")%>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td> <td width="6" rowspan="3" height="69"> </td> <td width="136" height="15"> <p align="left"><b><span lang="pt-br"> <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>"><%= rsMostra("Nome") %></a></font></span></b></td> </tr> <tr> <td width="136" height="7"> <img border="0" src="images/Linha_laranja.jpg"></td> </tr> <tr> <td width="136" height="47"> <p align="left"><b><span lang="pt-br"> <font face="Tahoma" size="2" color="#333333"><%= rsMostra("Ano") %><br><br>R$ <%= rsMostra("Valor") %></font></span></b></td> </tr> </table> </center> </div> <!--FIM DA TABELA_VEICULO 2--> </td> <td width="2%" height="87"> <p align="center"> <img border="0" src="images/Separador_Pontilhado.jpg"></td> <td width="34%" height="87"> <!--INICIO DA TABELA_VEICULO 3--> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69"> <tr> <td width="83" rowspan="3" height="69"> <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>"><img src="Estoque/imagens/<%=rsMostra("Imagem")%>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td> <td width="6" rowspan="3" height="69"> </td> <td width="136" height="15"> <p align="left"><b><span lang="pt-br"> <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>"><%= rsMostra("Nome") %></a></font></span></b></td> </tr> <tr> <td width="136" height="7"> <img border="0" src="images/Linha_laranja.jpg"></td> </tr> <tr> <td width="136" height="47"> <p align="left"><b><span lang="pt-br"> <font face="Tahoma" size="2" color="#333333"><%= rsMostra("Ano") %><br><br>R$ <%= rsMostra("Valor") %></font></span></b></td> </tr> </table> </center> </div> <!--FIM DA TABELA_VEICULO 3--> </td> </tr> <!--FIM DA TABELA_OFERTAS--> <% END IF Next rsMostra.Close Set rsMostra = Nothing Conexao.Close Set Conexao = Nothing %> </table> </center> </div> <!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
[]'s