[Resolvido] Erro TOP !

[Bruno Nathan 0]

Ola pessoal !!

Estou com um probleminha, eu coloko toda a programação certa, ela funciona, mas só aparece o ULTIMO adicionado, nao aparece os 3 ultimos como configurado na programação. Podem me ajudar por favor?!

 

<div class="indent">
      <p>
      <option selected="selected"></option>
<%
url_conn = Server.MapPath("bd1.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conn
set rs = server.CreateObject("adodb.recordset")
set rs = conn.execute ("Select Top 3 * from noticias order by ID DESC")
%>
      </p>
      <table width="100%" border="0" bgcolor="<%if i mod 2 <> 0 then response.write "#f2f2f2" end if%>" cellspacing="0" cellpadding="0" align="center">
      <tr dynamicanimation="fpAnimformatRolloverFP1" fprolloverstyle="background-color: #E7E8EF" onmouseover="rollIn(this)" onmouseout="rollOut(this)" language="Javascript1.2">
      <td width="91%"><div align="left"><font face="verdana"> <a href="ler.asp?id=<%=rs("id")%>"> <strong> </strong></a></font>
                    <p><span class="date">
                      <% =rs("data") %>
                        </span></p>
                            <p class="p1"> <a href="noticia1.asp?id=<%=rs("id")%>">
                               <% =rs("titulo") %>
                               <br />
                                </a><font face="verdana">
                                <% =rs("pre") %>
                                <strong> </strong></font></p>
</div></td>
</tr>
<% 
rs.movenext
conn.close
set rs = nothing
set conn = nothing
%>
       </table>
         </div>
           </div>

[hargon 64]

Você tem que utilizar WHILE para fazer a leitura e MoveNext para ir para os próximos registros.

 

Pesquise sobre banco de dados, isso é o básico.

 

Qualquer dúvida poste aqui.

[Bruno Nathan 0]

Muito Obrigado...

Consegui

[Bruno Nathan 0]

neste código não funcionou

                      <%
url_conn = Server.MapPath("bd1.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conn
set rs = server.CreateObject("adodb.recordset")
set rs = conn.execute ("Select Top 20 * from noticias order by ID DESC")
%>
                    </p>
                    <table width="100%" border="0" bgcolor="<%if i mod 2 <> 0 then response.write "#f2f2f2" end if%>" cellspacing="0" cellpadding="0" align="center">
                      <tr dynamicanimation="fpAnimformatRolloverFP1" fprolloverstyle="background-color: #E7E8EF" onmouseover="rollIn(this)" onmouseout="rollOut(this)" language="Javascript1.2">
                        <td width="91%"><div align="left"><font face="verdana"> <a href="ler.asp?id=<%=rs("id")%>"> <strong> </strong></a></font>
                                <p><span class="date">
                                  <% =rs("data") %>
                                </span></p>
                          <p class="p1"> <a href="noticia1.asp?id=<%=rs("id")%>">
                                  <% =rs("titulo") %>
                                  <br />
                                  </a><font face="verdana">
                                  <% =rs("pre") %>
                                  <strong> </strong></font></p>
                        </div></td>
                      </tr>
                      <% 
rs.movenext
conn.close
set rs = nothing
set conn = nothing
%>
                    </table>

[Bruno Nathan 0]

CORRIGIDO

 

<% 
rs.movenext
loop
set rs = nothing
set conn = nothing
%>

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif