Ir para conteúdo

POWERED BY:

Arquivado

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

Johnny_DF

Como Faço!!!

Por , em ASP Clássico

Recommended Posts

dasTrevas    0

dasTrevas
Postado

aqui ele procura por um id valido aleatoriamente e faz o selecttenta ai:set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(id_tabela) from tabela").fields(0).value * Rnd) + 1) set tabela = db.Execute("select * from tabela where id_tabela="&id_tabela)do while tabela.EOF Randomize id_tabela = Int((db.Execute("select max(id_tabela) from tabela").fields(0).value * Rnd) + 1) set tabela = db.Execute("select * from tabela where id_tabela="&id_tabela) if not tabela.EOF then exit doloopif not tabela.EOF then '-------------------- 'codigo para mostrar o conteudo '--------------------end if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Johnny_DF    0

Johnny_DF
Postado

Deu este erroMicrosoft VBScript runtime error '800a01a8' Object required: '' /internacional/coord/teste/index.asp, line 15 O codigo usado foi:<%Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("frase.mdb") & ";"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)do while tabela.EOFRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)if not tabela.EOF then exit doloop%><%if not tabela.EOF thenreponse.write(frase)end if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dasTrevas    0

dasTrevas
Postado

ele tah dando o erro por causa do nome do seu objeto de conexao ao banco.o seu objeto eh 'CONEXAO'no meu codigo eu usei 'DB'eh soh você substituir que beleza...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Johnny_DF    0

Johnny_DF
Postado

Alterei:<%Set db = Server.CreateObject("ADODB.Connection")db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("frase.mdb") & ";"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)do while tabela.EOFRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)if not tabela.EOF then exit doloop%><%if not tabela.EOF thenResponse.Write bd("frase")end if %></body></html> ainda não deu certo!!!Deu erro!!Microsoft VBScript runtime error '800a000d' Type mismatch: 'bd' /internacional/coord/teste/index.asp, line 27

Compartilhar este post

Link para o post
Compartilhar em outros sites

dasTrevas    0

dasTrevas
Postado

olha nessa linha:<%if not tabela.EOF then Response.Write bd("frase") '<<<<<<<< end if %>você tem que exibir algum campo da sua tabelatipo assim:response.write tabela("Código")

Compartilhar este post

Link para o post
Compartilhar em outros sites

dasTrevas    0

dasTrevas
Postado

nao entendi muito bem...mas acho que deve estar querendo mostrar, por exemplo, apenas 10 registros....se for, tenta isso:tabela.CacheSize = 10tabela.PageSize = 10

Compartilhar este post

Link para o post
Compartilhar em outros sites

Johnny_DF    0

Johnny_DF
Postado

<%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)do while tabela.EOFRandomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)set tabela = db.Execute("select * from frases where Código="&id_tabela)if not tabela.EOF then exit doloop%><%Do while not tabela.eof%> <table width="100" border="0"> <tr> <td><%response.write tabela("frase")%></td> </tr></table> <%tabela.movenext loop%></body></html>Sei que estou pedindo ajuda de mais, mas aonde eu vou inserir este coddigo que você disse!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

ljmelo    0

ljmelo
Postado

Para isso voc~e deverá fazer uma páginação dos seus dados.... :) :) :) :) :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

dasTrevas    0

dasTrevas
Postado

tenta isso:<%set tabela = server.CreateObject ("ADODB.Recordset")Randomizeid_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1)i=0set tabela = db.Execute("select * from frases where Código="&id_tabela)do while tabela.EOF Randomize id_tabela = Int((db.Execute("select max(Código) from frases").fields(0).value * Rnd) + 1) set tabela = db.Execute("select * from frases where Código="&id_tabela) if not tabela.EOF then Response.Write tabela("Código")&"<br>" i=i+1 end if if i=10 then exit doloop%>

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