Ir para conteúdo

POWERED BY:

Arquivado

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

Arrasted

repetição de dados

Por , em ASP Clássico

Recommended Posts

Arrasted    0

Arrasted
Postado

pessoal, eu uso isso para mostrar todos os dados do banco :

 

é no loop o problema ... Como poderia fazer uma especie de loop separado por rs? tipo:

 

<%

= rs("tit_post")&"<br>

Loop rs.movenext

"%> algo assim ?

 

<%

Set Conn = Server.CreateObject("ADODB.CONNECTION")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=F:\Blog\blog.mdb"http://forum.imasters.com.br/index.php?act=post&do=edit_post&f=2&t=188103&p=613655&st=

Edit Post

Set rs = Conn.Execute("SELECT DISTINCT tit_post, post, data_post FROM teste")

 

Do While Not rs.EOF

%>

 

<body>

<div id="all">

 

<div id="header">

</div><!-- end header -->

 

<div id="content">

 

<div class="clscontent">

 

<%= rs("tit_post")%>

 

 

<%= rs("post") %>

 

</div><!-- end clscontent -->

 

</div>

<!-- end content -->

 

<div id="right">

 

<div class="dateright">

Índice do Blog

</div><!-- end dateright -->

 

<div class="clsright">

 

<%= rs("data_post")&"<br>" %>

 

 

</div><!-- end clsright -->

</div><!-- end right -->

 

 

</div><!-- end all -->

<%

rs.Movenext

loop

Conn.close

Set Conn = Nothing

%>

 

mas ta duplicando o site

http://www.digitaldna.com.br/blog/

Compartilhar este post

Link para o post
Compartilhar em outros sites

Arrasted    0

Arrasted
Postado

tava vendo aqui no forum e fiz diferente.

mas só mostra os valores de um RS

 

<%

Set Conn = Server.CreateObject("ADODB.CONNECTION")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=F:\Blog\blog.mdb"

Set rs = Conn.Execute("SELECT * FROM teste ORDER BY id")

%>

 

<body>

<div id="all">

 

<div id="header">

</div><!-- end header -->

 

<div id="content">

 

<div class="clscontent">

 

<%

While not rs.EOF

Response.Write(rs("tit_post")&"<br>") só mostra esse

rs.Movenext

wend

%>

 

<%

 

While not rs.EOF

Response.Write(rs("post")&"<br>")

rs.Movenext

Wend

 

%>

 

</div><!-- end clscontent -->

 

</div>

<!-- end content -->

 

<div id="right">

 

<div class="dateright">

Índice do Blog

</div><!-- end dateright -->

 

<div class="clsright">

 

<%

 

While not rs.EOF

Response.Write(rs("data_post")&"<br>")

rs.Movenext

Wend

 

%>

 

cara chato né?

eu sei deveria ser feirante

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não consegui entender sua duvidasó vi um recordset ali e voce diz que não é apenas um...pod explicar melhor???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Arrasted    0

Arrasted
Postado

tenho 3 rs para mostrar em #div's diferentesse eu uso, exp.<%Set Conn...Conn. Open ... Set rs = Conn. Execute("SELECT * FROM teste")Do while not rs.eof%>ai aqui meus rs.. dentro das respectivas divsResponse.Write(rs("data_post")&"<br>")os outros dos estao da mesma formaele duplica todas as divs = ao numero dde registros no bd<%rs.movenextloopconn.closeset conn = nothing%>Nessa segunda resposta que eu mesmo adicionei ele nao repete as divs...mais mostra apenas o valor do (rs("tit_post")&"<br>") deixando de mostrar os outros 2e afinal.. rs o que é wend que nunca encontrei tradução para essa palavra

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

A palavra WEND não "existe" basicamente é o fim de seu While pode ser que seja W de While e o END aglutinados.

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado

O que você esta querendo faser seria tudo com o mesmo RS?

 

Pelo que eu vi acima seria assim:

<%Set Conn = Server.CreateObject("ADODB.CONNECTION") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=F:\Blog\blog.mdb"Set rs = Conn.Execute("SELECT * FROM teste ORDER BY id")%><body><div id="all"><div id="header"></div><!-- end header --><div id="content"> <div class="clscontent"><%While not rs.EOFResponse.Write(rs("tit_post")&"<br>") só mostra essers.Movenextwend'aqui o rs chegou ao teu final%><%'aki você tem que mandar ele retornar ao iniciors.movefirstWhile not rs.EOFResponse.Write(rs("post")&"<br>")rs.MovenextWend'aqui o rs chegou ao teu final%></div><!-- end clscontent --></div><!-- end content --><div id="right"><div class="dateright">Índice do Blog</div><!-- end dateright --><div class="clsright"><%'aki você tem que mandar ele retornar ao iniciors.movefirstWhile not rs.EOFResponse.Write(rs("data_post")&"<br>")rs.MovenextWend%>

Naum sei se seria isso que você gostaria de faser...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tenho 3 rs para mostrar em #div's diferentesse eu uso, exp.<%Set Conn...Conn. Open ... Set rs = Conn. Execute("SELECT * FROM teste")Do while not rs.eof%>ai aqui meus rs.. dentro das respectivas divsResponse.Write(rs("data_post")&"<br>")os outros dos estao da mesma formaele duplica todas as divs = ao numero dde registros no bd<%rs.movenextloopconn.closeset conn = nothing%>Nessa segunda resposta que eu mesmo adicionei ele nao repete as divs...mais mostra apenas o valor do (rs("tit_post")&"<br>") deixando de mostrar os outros 2

para não repertir as divs voce deve colocar a sua abertura e o seu fechamento fora do laço apenas

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