A página: defaultoff.asp, é essa mesmo que você postou?Será q o problema é no meu arquivo bd ???
Randomize
Started By Morphman, 03/09/2004, 14:57
21 replies to this topic
#16
Posted 04/09/2004, 20:28
#17
Posted 04/09/2004, 20:29
É a mesma ... agora está exatamente o codigo q vc postou...A página: defaultoff.asp, é essa mesmo que você postou?Será q o problema é no meu arquivo bd ???
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 !
Viva o Tarkan !
#18
Posted 04/09/2004, 20:36
Tenta assim:
Se der o mesmo erro, não sei mais o que é não
<!--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"> </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
Posted 04/09/2004, 20:46
http://www.odontolog...r/Blog/auto.asp
Eu coloquei no servidor e deu um erro diferente...se liga:
LINE 83
To ficando doido !!
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 !!
Edição feita por: Morphman, 04/09/2004, 20:48.
Valew!!
Viva o Tarkan !
Viva o Tarkan !
#20
Posted 04/09/2004, 21:05
Posta a linha 83 da pagina auto.asp pra eu ver
#21
Posted 04/09/2004, 21:32
ALELUIA !!!
Código Correto:
Valew Galera !!
[]'s
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"> </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 !
Viva o Tarkan !
#22
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...
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...
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)