Jump to content


Photo

Randomize


  • Faça o login para participar
21 replies to this topic

#1 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 03/09/2004, 14:57

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 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">&nbsp;</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">&nbsp;</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">&nbsp;</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
Valew!!


Viva o Tarkan !

#2 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 03/09/2004, 15:53

A única coisa que acontece é que não faz o randomize em todos? Só um fica aparecendo? :blink: É isso? Ou ele dá algum erro quando executa?

#3 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 03/09/2004, 16:20

A única coisa que acontece é que não faz o randomize em todos? Só um fica aparecendo? :blink: É isso? Ou ele dá algum erro quando executa?

Num dá erro naum... ele randomiza...
só que em todas as tabelas_veiculo aparece o mesmo...
Valew!!


Viva o Tarkan !

#4 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 03/09/2004, 18:02

Tenta isso:

<!--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">
<% 
randomize
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">&nbsp;</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">&nbsp;</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">&nbsp;</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-->

Se não funcionar fala ai que nós tentamos te ajudar!

[]'s
Victor

#5 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 04/09/2004, 00:36

O Erro continua o mesmo....mesmo com o seu codigo...

;)
Valew!!


Viva o Tarkan !

#6 |KILLING|

|KILLING|

    12 Horas

  • Usuários
  • 174 posts
  • Sexo:Não informado

Posted 04/09/2004, 15:56

Opa blz? tinha um monte de coisas aki que naum tinha o porque de estar aki...
peguei o do Victor e tentei arrumar da uma olhadinha:
<!--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">
<% 
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")
Set RS = server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Estoque"
RS.Open SQL,Conexao,1,1
'''''''''''''''''''''''''''''''''''''''''''''''''''''

Do While Not RS.eof
If Valores = "" then Valores = Valores & RS("ID") else Valores = Valores & "," & RS("ID")
RS.Movenext 
Loop

ArraySplit = Split(valores,",")
Randomize
x = CInt(Rnd() * Rs.RecordCount)
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">&nbsp;</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">&nbsp;</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">&nbsp;</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

rsMostra.Close
Set rsMostra = Nothing
Conexao.Close
Set Conexao = Nothing
RS.Close
Set rs = nothing
%>
</table>
</center>
</div>
<!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->


#7 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 04/09/2004, 18:02

Ainda sim claro q isso num vai funcionar..

Esse codigo vai randomiza soh o primeiro .. o segundo e o terceiro vão ser iguais ao primeiro e dai da xxxxxx.. eu vo faze um codigo aki pra vc.. dai tu ve.. o segredo é roda um loop a partir do segundo pra ele fikar randomizando até o id seja diferente do primeiro.. vo faze.. dai eu edito esse post e posto.

<!--#include file="connect.asp"-->
<%

  Connect

  Set objRs = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT CustomerID FROM Customers"

  objRs.Open strSQL, objConn, adForwardOnly, adLockReadOnly


  Do While Not objRs.EOF
    strCodTmp = strCodTmp + objRs("CustomerID") + "-"
    objRs.MoveNext
  Loop

  strArrCod = Split(strCodTmp, "-")
  objRs.Close


  Function iRandom(Valor)

    Select Case Valor
      Case 1:
        Randomize
        Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
        strCod = strArrCod(Valor1)
      Case 2:
        Do Until Valor2 <> Valor1
          Randomize
          Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
        Loop
        strCod = strArrCod(Valor2)
      Case 3:
        Do Until Valor3 <> Valor2 And Valor3 <> Valor1
          Randomize
          Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
        Loop
        strCod = strArrCod(Valor3)
      Case Else:
        strCod = ""
    End Select

    iRandom = strCod

  End Function

  Disconnect

%>



Bom, isso ai tah bem simples.. pra chama essa funcao faiz assim.. pra cada Carro, tu monta um..(eu soh fiz pra 3.. mas tem milhares de outras formas de fazer pra mais).

Abre um Loop i, de 1 a 3. Dentro do Loop, tu poe a strSQL assim:
"SELECT * FROM Blablabla WHERE Cod = " & iRandom(i)

E depois tu abre as tabelas com o recordset.. q vai retorna um valor randomico.

Edição feita por: hdz*, 04/09/2004, 18:40.

MCAD, MCP

#8 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 04/09/2004, 18:20

Tipo, mas usando randomize ele não vai ir um de cada vez... Ele pode repitir umas vezes, faz assim:

rnd*3

ai você faz uma matriz com as coisas que você vai usar...

Se não entendeu, ou não conseguiu fala ai que eu faço um exeplo pra você..

[]'s
Victor

#9 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 04/09/2004, 19:01

Ainda sim claro q isso num vai funcionar..

Esse codigo vai randomiza soh o primeiro .. o segundo e o terceiro vão ser iguais ao primeiro e dai da xxxxxx.. eu vo faze um codigo aki pra vc.. dai tu ve.. o segredo é roda um loop a partir do segundo pra ele fikar randomizando até o id seja diferente do primeiro.. vo faze.. dai eu edito esse post e posto.

<!--#include file="connect.asp"-->
<%

  Connect

  Set objRs = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT CustomerID FROM Customers"

  objRs.Open strSQL, objConn, adForwardOnly, adLockReadOnly


  Do While Not objRs.EOF
    strCodTmp = strCodTmp + objRs("CustomerID") + "-"
    objRs.MoveNext
  Loop

  strArrCod = Split(strCodTmp, "-")
  objRs.Close


  Function iRandom(Valor)

    Select Case Valor
      Case 1:
        Randomize
        Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
        strCod = strArrCod(Valor1)
      Case 2:
        Do Until Valor2 <> Valor1
          Randomize
          Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
        Loop
        strCod = strArrCod(Valor2)
      Case 3:
        Do Until Valor3 <> Valor2 And Valor3 <> Valor1
          Randomize
          Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
        Loop
        strCod = strArrCod(Valor3)
      Case Else:
        strCod = ""
    End Select

    iRandom = strCod

  End Function

  Disconnect

%>



Bom, isso ai tah bem simples.. pra chama essa funcao faiz assim.. pra cada Carro, tu monta um..(eu soh fiz pra 3.. mas tem milhares de outras formas de fazer pra mais).

Abre um Loop i, de 1 a 3. Dentro do Loop, tu poe a strSQL assim:
"SELECT * FROM Blablabla WHERE Cod = " & iRandom(i)

E depois tu abre as tabelas com o recordset.. q vai retorna um valor randomico.

Eu sô marrecao em ASP... não entendi como usar este código...akele q eu postei eu substituo por este, é isso ??

Vlw !
Valew!!


Viva o Tarkan !

#10 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 04/09/2004, 19:13

<%

  Set objConn = Server.CreateObject("ADODB.Connection")
  Set objRs = Server.CreateObject("ADODB.Recordset")


  strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")
  objConn.Open strConnString

  strSQL = "SELECT ID FROM Estoque"

  objRs.Open strSQL, objConn, 1, 1


  Do While Not objRs.EOF
    strCodTmp = strCodTmp + objRs("ID") + "-"
    objRs.MoveNext
  Loop

  strArrCod = Split(strCodTmp, "-")
  objRs.Close

  Function iRandom(Valor)

    Select Case Valor
      Case 1:
        Randomize
        Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
        strCod = strArrCod(Valor1)
      Case 2:
        Do Until Valor2 <> Valor1
          Randomize
          Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
        Loop
        strCod = strArrCod(Valor2)
      Case 3:
        Do Until Valor3 <> Valor2 And Valor3 <> Valor1
          Randomize
          Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
        Loop
        strCod = strArrCod(Valor3)
      Case Else:
        strCod = ""
    End Select

    iRandom = strCod

  End Function

%>


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

  strSQL = "SELECT Count(*) FROM Estoque"
  objRs.Open strSQL, objConn, 1, 1
  If objRs.EOF 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-->

<%
  objRs.Close
  Else
    objRs.Close

%>

<!--INICIO DA TABELA_OFERTAS-->
<tr>
<td width="32%" height="87">

<%

    For i = 1 to 3
      strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i)
      objRs.Open strSQL, objConn, 1, 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=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("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">&nbsp;</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=<%= objRs("ID") %>"><%= objRs("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"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td>
   </tr>
  </table>
 </center>
</div>
<% If i <> 3 Then %>
               </td>
               <td width="2%" height="87">
               <p align="center">
               <img border="0" src="images/Separador_Pontilhado.jpg"></td>
               <td width="31%" height="87">

<% Else %>
<!--FIM DA TABELA_VEICULO 3-->

               </td>
             </tr>
<% End If %>
<!--FIM DA TABELA_OFERTAS-->
<%
      objRs.Close

    Next
    Set objRs = Nothing

  End If

  objConn.Close
  Set objConn = Nothing

%>
</table>
</center>
</div>

Testa esse ai, eu testei com otra base.. e funciono.. dai ve ai se funciona.. agora eh soh copy past pra vc. Bom.. ve ae.

Edição feita por: hdz*, 04/09/2004, 19:13.

MCAD, MCP

#11 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 04/09/2004, 19:24

<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
<%
 Set objConn = Server.CreateObject("ADODB.Connection")
 Set objRs = Server.CreateObject("ADODB.Recordset")

 strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")
 objConn.Open strConnString

 strSQL = "SELECT ID FROM Estoque"

 objRs.Open strSQL, objConn, 1, 1

 Do While Not objRs.EOF
   [B]strCodTmp = strCodTmp + objRs("ID") + "-"[/B]
   objRs.MoveNext
 Loop

 strArrCod = Split(strCodTmp, "-")
 objRs.Close

 Function iRandom(Valor)

   Select Case Valor
     Case 1:
       Randomize
       Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
       strCod = strArrCod(Valor1)
     Case 2:
       Do Until Valor2 <> Valor1
         Randomize
         Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
       Loop
       strCod = strArrCod(Valor2)
     Case 3:
       Do Until Valor3 <> Valor2 And Valor3 <> Valor1
         Randomize
         Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
       Loop
       strCod = strArrCod(Valor3)
     Case Else:
       strCod = ""
   End Select

   iRandom = strCod

 End Function
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<%
 strSQL = "SELECT Count(*) FROM Estoque"
 objRs.Open strSQL, objConn, 1, 1
 If objRs.EOF 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-->

<%
 objRs.Close
 Else
 objRs.Close
%>

<!--INICIO DA TABELA_OFERTAS-->
<tr>
<td width="32%" height="87">

<%

   For i = 1 to 3
     strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i)
     objRs.Open strSQL, objConn, 1, 1

%>
<!--INICIO DA TABELA_VEICULO -->
<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=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("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">&nbsp;</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=<%= objRs("ID") %>"><%= objRs("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"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td>
  </tr>
 </table>
</center>
</div>
<!--FIM DA TABELA_VEICULO -->
<% If i <> 3 Then %>
              </td>
              <td width="2%" height="87">
              <p align="center">
              <img border="0" src="images/Separador_Pontilhado.jpg"></td>
              <td width="31%" height="87">

<% Else %>
              </td>
            </tr>
<% End If %>
<!--FIM DA TABELA_OFERTAS-->
<%
 objRs.Close
 
   Next
   Set objRs = Nothing

 End If
 
 objConn.Close
 Set objConn = Nothing
%>
</table>
</center>
</div>
<!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->

Usando esse codigo ai q vc passou, dá o seguinte erro :

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: '[string: "-"]'
/Clientes/Automoveis/defaultoff.asp, line 87

Valew!!


Viva o Tarkan !

#12 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 04/09/2004, 20:09

Tenta assim:

<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")
objConn.Open strConnString

strSQL = "SELECT ID FROM Estoque"

objRs.Open strSQL, objConn, 1, 1

Do While Not objRs.EOF
  [B]strCodTmp = strCodTmp + objRs("ID") + "-"[/B]
  objRs.MoveNext
Loop

strArrCod = Split(strCodTmp, "-")
objRs.Close

Function iRandom(Valor)

  Select Case Valor
    Case 1:
      Randomize
      Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
      strCod = strArrCod(Valor1)
    Case 2:
      Do Until Valor2 <> Valor1
        Randomize
        Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
      Loop
      strCod = strArrCod(Valor2)
    Case 3:
      Do Until Valor3 <> Valor2 And Valor3 <> Valor1
        Randomize
        Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
      Loop
      strCod = strArrCod(Valor3)
    Case Else:
      strCod = ""
  End Select

  iRandom = strCod

End Function
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<%
strSQL = "SELECT Count(*) FROM Estoque"
objRs.Open strSQL, objConn, 2
If objRs.EOF 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-->

<%
objRs.Close
Else
objRs.Close
%>

<!--INICIO DA TABELA_OFERTAS-->
<tr>
<td width="32%" height="87">

<%

  For i = 1 to 3
    strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i)
    objRs.Open strSQL, objConn, 3

%>
<!--INICIO DA TABELA_VEICULO -->
<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=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("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">&nbsp;</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=<%= objRs("ID") %>"><%= objRs("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"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td>
 </tr>
</table>
</center>
</div>
<!--FIM DA TABELA_VEICULO -->
<% If i <> 3 Then %>
             </td>
             <td width="2%" height="87">
             <p align="center">
             <img border="0" src="images/Separador_Pontilhado.jpg"></td>
             <td width="31%" height="87">

<% Else %>
             </td>
           </tr>
<% End If %>
<!--FIM DA TABELA_OFERTAS-->
<%
objRs.Close

  Next
  Set objRs = Nothing

End If

objConn.Close
Set objConn = Nothing
%>
</table>
</center>
</div>
<!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->


#13 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 04/09/2004, 20:16

Acontece o mesmo erro...
Valew!!


Viva o Tarkan !

#14 Victor ASP

Victor ASP

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado
  • Localidade:Praia Grande, SP

Posted 04/09/2004, 20:20

Negocio louco, eu testei aqui e deu certo... :huh:

#15 Morphman

Morphman

    << Leits FoReVeR ! >>

  • Usuários
  • 125 posts
  • Sexo:Não informado
  • Localidade:São Bernardo do Campo / SP
  • Interesses:Se quiser falar comigo, entra no MSN....Falow !

Posted 04/09/2004, 20:26

Será q o problema é no meu arquivo bd ???
Valew!!


Viva o Tarkan !




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq