Contator De Noticias.. Aparece So 3

[Guest Katatau]

bem galera .. o negocio prestou beleza.. ta exibindo como eu keria na segunda pagina ( so aparece da 2 noticia em diante ) ate ae ta beleza..so q eu queria 3 noticas na pagina..o que eu faço ?colocar algo pra limitar isso? o codigo q ta na pagina é esse:

<% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, Dados, 1, 1

x=0

Do while not Rs.Eof

if x > 0 then

fotel = rs("foto")

date1 = rs("data")

id = rs("ID")

name1 = rs("titulo")

link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>"

description = date1

end if

x=x+1

%><font size="1"> </font>

<tr>

<td width="36">

<% if rs("foto") = "N" then %><font size="1"> </font>

<font size="1">

<% else %>

<% end if %>

<font size="1"> </font>

<tr>

<td width="187">

<% if rs("foto") = "N" then %><font size="1"> </font>

<font size="1">

<% else %>

<% end if %></font></b><p><b><font face="verdana" size="1" color="#800000"> <%=description%></font></b><font size="1">

<% =link %>

<%Rs.MoveNext

loop%> <br>

[fantasma]

if x = 3 then

[Guest Guest]

Amigão, estou com problema, tenho um programa de notícias que envia notícias e fotos, mas ele só envia uma foto por matéria, olhando o seu, perecebi que ele envia mais de uma foto por noticias, você poderia me enviar uma cópia desse programinha??

e-mail wellington.sales@usa.com

[Guest Guest]

N prestou n ! se eu trocar o 0 por 3 so vai aparecer a terceira noticia!

[bareta]

2 soluções

[Guest Guest]

Onde eu coloco isso bareta ??

max=3

x=0

while not rs.eof

x=x+1

if x<(max+1) then

response.write rs("noticia")&"<br>"

end if

rs.movenext

wend

rs.close

[cyberalexxx]

Este codigo vai pegar 4 registros pular o primeiro e exibir os tres restantes.

<% sqlstmt = "SELECT top 4 * FROM noticias ORDER BY data, id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Dados, 1, 1
x=0
Do while not Rs.Eof
if x > 0 then
fotel = rs("foto")
date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>"
description = date1
end if
x=x+1
%><font size="1"> </font>



<tr>
<td width="36">
<% if rs("foto") = "N" then %><font size="1"> </font>
<font size="1">
<% else %>
<% end if %>

<font size="1"> </font>



<tr>
<td width="187">
<% if rs("foto") = "N" then %><font size="1"> </font>
<font size="1">
<% else %>
<% end if %></font></b><p><b><font face="verdana" size="1" color="#800000"> <%=description%></font></b><font size="1">

<% =link %>
<%Rs.MoveNext
loop%> <br>