Listando informações

[brunow 0]

Como faço para listar Uma noticia principal (mostrando o texto inteiro) e mais outras 10 noticias (mostrando somente o titulo) ?sendo os valores dos campos:nome do banco de dados = textosnome da tabela = principalid = ordem decrescentetexto = O Texto inteirotitulo = O Titulo da noticiavaleu!  ^_^

[dimarcinho 0]

tranquilo cara !!! faz assim:

 

<%'conecte ao banco de dadosSet rs = Server.CreateObject("ADODB.Recordset")rs.Open "SELECT * FROM principal", conexao, 3, 3rs.MoveLast'aki vai a noticia principal, q no caso, seria a última a ser postadaresponse.write rs("titulo") & "<br><br>"response.write rs("texto") & "<br><br>"For x = 1 to 10    rs.MovePrevious    response.write titulo & "<br>"    If rs.BOF Then           Exit For    End IfNext%>

entendeu a logica ??? qq duvida, estamos ae!!!

 

[]´s

[brunow 0]

Está dando erro.. não sei o que há de errado! :huh: Vocês podem notar alguma coisa?

<% 'Efetuando a conexão com a base de dados criada -----------------------Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco/textos.mdb") Conn.open '--------------------------------------------------------------------------<%'conecte ao banco de dadosSet rs = Server.CreateObject("ADODB.Recordset")rs.Open "SELECT * FROM principal", conexao, 3, 3rs.MoveLast'aki vai a noticia principal, q no caso, seria a última a ser postada%><strong><%=rs("titulo")%></strong><br><%=rs("texto")%></p>              <p align="left">  <%For x = 1 to 10  rs.MovePrevious%>  -> <%=rs("titulo") %>  <font face="Arial Narrow, Arial, sans-serif" size="2">                 <b></b></font><font size="3"><b>                 </b></font><font size="3" face="Arial Narrow, Arial, sans-serif">                </font><font size="3"><b> </b></font></p>              <p align="left">                <%  If rs.BOF Then          Exit For  End IfNext

[dimarcinho 0]

pow cara, tu eskeceu de colocar o nome da SUA conexao na linha q o Recordset usa ela

 

olha aí:

 

<% 'Efetuando a conexão com a base de dados criada '------------------------------------------------------------------------Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco/textos.mdb") Conn.open '--------------------------------------------------------------------------'conecte ao banco de dadosSet rs = Server.CreateObject("ADODB.Recordset")rs.Open "SELECT * FROM principal", conn, 3, 3 '--> aqui q tava o erro...rs.MoveLast'aki vai a noticia principal, q no caso, seria a última a ser postada%><strong><%=rs("titulo")%></strong><br><%=rs("texto")%></p>              <p align="left">  <%For x = 1 to 10  rs.MovePrevious%>  -> <%=rs("titulo") %>  <font face="Arial Narrow, Arial, sans-serif" size="2">                 <b></b></font><font size="3"><b>                 </b></font><font size="3" face="Arial Narrow, Arial, sans-serif">                </font><font size="3"><b> </b></font></p>              <p align="left">                <%  If rs.BOF Then          Exit For  End IfNext%>

[brunow 0]

Desculpe a ignorância mas não entendi.. hehehe ^_^