Ir para conteúdo

POWERED BY:

Arquivado

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

Morphman

Exibição Randomica

Por , em ASP Clássico

Recommended Posts

Morphman    0

Morphman
Postado

Olá, como faço pra na home page do site, eu possa exibir de forma randomica 3 itens do estoque (c/ foto e breve descricao)... eu fiz pra 1 item apenas... ..segue o codigo:

 

<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE--><% Dim RS,i,Valores,ArraySplit,x,sIDSet Conexao = Server.CreateObject("ADODB.Connection")ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")Conexao.Open ConnStringSet RS = Conexao.Execute("SELECT * FROM Estoque")For i = 1 to 1'Randomiza os ids existentes no BDDo Until RS.EOF or RS.BOFValores = Valores & RS("ID") & ","RS.MovenextLoopArraySplit = Split(Left(Valores,Len(Valores)-1),",")Randomizex = CInt(Rnd()*Ubound(ArraySplit))sID = ArraySplit(x)Set rsMostra = Conexao.Execute("SELECT * FROM Estoque where ID=" & sID)If rsMostra.EOF = True Then Response.Write "NÃO HÁ VEÍCULOS NO ESTOQUE. VOLTE MAIS TARDE !"<% ELSE %><div align="left"><table>   <tr>   <td>    <img src="Estoque/imagens/<%=rsMostra("Imagem")%>" </td>    <a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>" class="link_forum"><%= rsMostra("Nome") %></a></td>  </tr>  <tr>    <td>    <%= rsMostra("Ano") %><br>R$ <%= rsMostra("Valor") %></td>  </tr>  <tr>    <td>    <a href="Estoque/ver_dados.asp?id=<%= rsMostra("ID") %>">DETALHES </A></td>  </tr></table></div><%END IFNextrsMostra.CloseSet rsMostra = NothingConexao.CloseSet Conexao = Nothing%><!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Morphman    0

Morphman
Postado

Baum... eu consegui fazer o random só que aparece o mesmo produto nas 3 exibicoes...

 

Sao 3 produtos expostos na HOME. Um diferente do outro e naum iguais (claro !)

 

Vejam o codigo... e ve ajudem !

 

ASP [/tr][tr]

<!--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-->

[/tr]

 

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

ASP [/tr][tr]<table cellspacing="10" cellpadding="0" width="10">

<tr>

<%

quantidade = 3

 

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

rs.Open "select * from galerias", cn

 

If not rs.EOF Then

strGal = rs.GetRows()

rs.MoveFirst

intCounter = 0

 

Do While Not rs.EOF

intCounter = intCounter + 1

rs.MoveNext

Loop

rs.MoveFirst

 

if intCounter > 0 AND intCounter <= quantidade then

nVezes = intCounter

end if

 

if intCounter < 1 then

nVezes = 0

end if

 

if intCounter > quantidade then

nVezes = quantidade

end if

 

iTotal = 0

Do While iTotal < nVezes

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

Loop

end if

rs.Close

set rs = nothing

%>

</tr>

</table>

[/tr]

 

só adaptar!!

 

falows

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