select randomico

[vinceplay 0]

tentei esse cod. para fazer uma listagem randomico

 

<!--#include file="conectar2.asp"--><% AbreconexaoSet rsAlbum = Conexao.Execute("SELECT * FROM banners order by RND(INT(NOW*com1)-NOW*com1")If rsAlbum.EOF ThenResponse.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"ElseWhile not rsAlbum.EOFResponse.Write "" & rsAlbum("com1") & "<br>"rsAlbum.MovenextWendend 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

 

 

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

 

 

quero algo desse tipo mais não estou conseguindo, ajuda.

[klonder 14]

tentei esse cod. para fazer uma listagem randomico

<!--#include file="conectar2.asp"--><% AbreconexaoSet rsAlbum = Conexao.Execute("SELECT * FROM banners order by RND(INT(NOW*com1)-NOW*com1")If rsAlbum.EOF ThenResponse.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"ElseWhile not rsAlbum.EOFResponse.Write "" & rsAlbum("com1") & "<br>"rsAlbum.MovenextWendend if%>

..........

Você definiu algum valor para a variável com1, presente na string SQL: RND(INT(NOW*com1)-NOW*com1") ?

[CaBo GeL 0]

tentei esse cod. para fazer uma listagem randomico

 

<!--#include file="conectar2.asp"--><% AbreconexaoSet rsAlbum = Conexao.Execute("SELECT * FROM banners order by RND(INT(NOW*com1)-NOW*com1")If rsAlbum.EOF ThenResponse.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"ElseWhile not rsAlbum.EOFResponse.Write "" & rsAlbum("com1") & "<br>"rsAlbum.MovenextWendend 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

 

 

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

 

 

quero algo desse tipo mais não estou conseguindo, ajuda.

isoo mesmo!!

 

o com1 representara o codigoID(chave primaria) da tabela banners la no seu banco de dados!

substitua o com1 pelo nome do codigoID.

espero q tenha ajudado!

[vinceplay 0]

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 = FALSESub AbreConexao()	if not ConexaoAberta then	Conexao.Open ConStr	ConexaoAberta = True	end ifend subSub FechaConexao()	if ConexaoAberta then	Conexao.close	ConexaoAberta = False	end ifend sub %>

 

<!--#include file="conectar2.asp"--><% AbreconexaoSet rsAlbum = Conexao.Execute("SELECT * FROM texto order by RND(INT(NOW*id)-NOW*id")If rsAlbum.EOF ThenResponse.Write "<font face=tahoma size=1>Nenhuma mensagem adicionada!</font>"ElseWhile not rsAlbum.EOFResponse.Write "" & rsAlbum("com1") & "<br>"rsAlbum.MovenextWendend 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.

[Salgado 4]

Está faltando parênteses em sua SQL.

[vinceplay 0]

poderia colocar ai como ficaria porqueviajei PARENTESES ONDE?

[Salgado 4]

Teste assim:

Set rsAlbum = Conexao.Execute("SELECT * FROM banners order by RND(INT(NOW*com1)-NOW*com1)")

Repare que fechei um parenteses antes das aspas.

[vinceplay 0]

VALEUUUUUUUUUUUUUUUUUUUU MUITO CARA CONSEGUIOBRIGADO