Jump to content
Fórum Script Brasil
  • 0

Listagem


Guest --vinceplay() --
 Share

Question

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

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0

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

Edited by vinceplay()
Link to comment
Share on other sites

  • 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 = 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.

Edited by vinceplay()
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.7k
×
×
  • Create New...