Jump to content

  2. →
  3. →

Photo

Randomize

Started By Morphman, 03/09/2004, 14:57

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

#16 Victor ASP

Victor ASP

    Turista

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

Posted 04/09/2004, 20:28

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

A página: defaultoff.asp, é essa mesmo que você postou?

#17 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:29

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

A página: defaultoff.asp, é essa mesmo que você postou?

É a mesma ... agora está exatamente o codigo q vc postou...

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 !

#18 Victor ASP

Victor ASP

    Turista

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

Posted 04/09/2004, 20:36

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

Se der o mesmo erro, não sei mais o que é não <_<

#19 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:46

http://www.odontolog...r/Blog/auto.asp

Eu coloquei no servidor e deu um erro diferente...se liga:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x838 Thread 0xc4c DBC 0x133ea0ec Jet'. 

/Blog/auto.asp, line 83

LINE 83
 objConn.Open strConnString

To ficando doido !! :blink: :wacko:

Edição feita por: Morphman, 04/09/2004, 20:48.

Valew!!


Viva o Tarkan !

#20 Victor ASP

Victor ASP

    Turista

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

Posted 04/09/2004, 21:05

Posta a linha 83 da pagina auto.asp pra eu ver

#21 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, 21:32

ALELUIA !!!

Código Correto:
<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->     
<%
Dim Valor1, Valor2, Valor3
 Set objConn = Server.CreateObject("ADODB.Connection")
 Set objRs = Server.CreateObject("ADODB.Recordset")


 strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/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

%>

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

<!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->

Valew Galera !!
[]'s
Valew!!


Viva o Tarkan !

#22 Victor ASP

Victor ASP

    Turista

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

Posted 04/09/2004, 21:49

Oxi, seu codigo ta doido, no erro fala que a linha 83 é:

objConn.Open strConnString

E quando vejo aqui é isso

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

Seu servidor está louco, ou você trocou os arquivos...
Voltar para ASP


1 user(s) are reading this topic

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

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq