Listagem

[Guest --vinceplay() --]

alguém poderia me ajudar pois não tenho nenhuma noção no que quero fazer.

nome da BD: teste

crei uma tabela no access chamada: criar

dentro dela crei os campos A, B, C, D, E

acrescentei varios textos nos campos acima.

agora quero lista esses campos aleatoriamente, interpoladamente.

alguém poderia me ajudar com esse codigo?

DE FOMA que NÃO REPITA A A B B ETC..

[bareta]

veja:

http://www.portalmaracaju.com.br/blog/arti...=76&blog=14

[vinceplay()]

para mim não apareceu a pagina você posta as informações aqui valeuuuuu

Editado Julho 7, 2007 por vinceplay()

[vinceplay()]

da uma LUZ AÍ tentei fazer assim mais está dando erro.

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

Set rsAlbum = Conexao.Execute("SELECT * FROM banners order by RND(INT(NOW*com1)-NOW*com1")
If rsAlbum.EOF Then
Response.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"
Else
While not rsAlbum.EOF
Response.Write "" & rsAlbum("com1") & "<br>"
rsAlbum.Movenext
Wend
end if
%>

# Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] ), ] ou item faltando na expressão de consulta 'RND(INT(NOW*com1)-NOW*com1'.

/aaa.asp, line 3

EU QUERO ASSIM

exemplo: coloquei informações em 10 linhas.

1________________5 <<< abrindo a pagina ficaria assim aleatorio. TODA VEZ que ABRISSE, MUDASSE

2________________9

3________________1

4________________7

5________________3

6________________2

7________________10

8________________6

9________________8

10________________4

Editado Julho 7, 2007 por vinceplay()

[bareta]

o campo com1 deve ser autonumeração.

[vinceplay()]

já coloquei mais não adiantou

conectar2.asp

<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("textos.mdb")
ConexaoAberta = FALSE
Sub AbreConexao()
    if not ConexaoAberta then
    Conexao.Open ConStr
    ConexaoAberta = True
    end if
end sub
Sub FechaConexao()
    if ConexaoAberta then
    Conexao.close
    ConexaoAberta = False
    end if
end sub %>

<!--#include file="conectar2.asp"-->
<% Abreconexao
Set rsAlbum = Conexao.Execute("SELECT * FROM texto order by RND(INT(NOW*id)-NOW*id")
If rsAlbum.EOF Then
Response.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"
Else
While not rsAlbum.EOF
Response.Write "" & rsAlbum("com1") & "<br>"
rsAlbum.Movenext
Wend
end if
%>

deu o mesmo

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] ), ] ou item faltando na expressão de consulta 'RND(INT(NOW*id)-NOW*id'.

/aaa.asp, line 3

bd=textos

tabela=texto

ID=autonumeração

com1=texto

com2=texto

com3=texto

o que eu faço? VALEU PELA FORÇA BRIGADÃO. Sou meio leigo, nessa parte, da uma força.

Editado Julho 9, 2007 por vinceplay()

[vinceplay()]

já FUNCIONOU VALEUUUUUUUUUUUUUUUUUUUUU

Editado Julho 12, 2007 por vinceplay()