Ajuda Em Sistema De Noticias

[Guest Katatau]

Bem pessoal.. criei um sistema de noticias bem simples, ele pega a a noticia e exibir somente uma, pois na posso configurar quantas ela aparece na primeira pagina.. no caso deixei so 1... eu fiz uma copia da mesma pagina para exibir as demais noticias.. so que ela exibi a primeira tb.. como faço para que ela n exiba a primeira noticia??? ae ta o codigo q ta na primeira e na segunda pagina ( a que vai exibir as noticias sem ser a primeira ).

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

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

rs.Open sqlstmt, Dados, 1, 1

TotalRecs = rs.recordcount

x = 0

For x = 1 to 1

If rs.eof then

Exit For

Else

fotel = rs("foto")

date1 = rs("data")

id = rs("ID")

name1 = rs("titulo")

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

description = date1

%>

então galera como faço para que ela exiba 3 noticias sendo que n exiba a primeira ?? para mudar o nr de noticias que exibe é essa linha --- For x = 1 to 1 ! q no caso na outra seria -- For x = 1 to 3 ( e aparece a primeira tb ) e so keria da segunda em diante !!

um abraço e boa programaçao

[Ceh]

Tenta assim

For x=2 to 3

[ ]'s

[cyberalexxx]

Primeira Pagina:

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

Segunda Pagina:

<% 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
  Rs.MoveNext
loop
%>

[Guest deu um erro na linha 48 !]

mano.. deu um erro na linha 47 -- <% if rs("foto") = "N" then %>

error '80020009'

Ocorreu uma exceção.

/chat/noti/index2.asp, line 47

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

Rs.MoveNext

loop

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

<tr>

<td width="189">

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

<font size="1">

&nbsp;<% else %>&nbsp;

<% end if %>

<br>

-

<% =link %> <br>

[cyberalexxx]

as informações buscadas no recordset devem estar dentro do loop!!!

O exemplo que eu postei foi feito de acordo com a quantidade de código que voce postou anteriormente.

[Guest Katatau]

então o que você sugere?? para corrigir esse erro?

[cyberalexxx]

 <% 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="189">
<% if rs("foto") = "N" then %><font size="1"> </font>
<font size="1">
&nbsp;<% else %>&nbsp;
<% end if %>

<br>

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

[Guest katatau]

Esse é para ser colokando no primeiro e no segundo ?

[cyberalexxx]

Esse é para ser colokando no primeiro e no segundo ?

Voce percebeu o que foi mudado???

a passagem para o próximo registro e o loop foram passados para depois de todo o bloco de exibição.

A mesma mudança deve ser realizada nos 2 scripts.

[Guest Guest]

Mano.. o negocio prestou beleza.. n ta exibindo ( como eu keria na segunda pagina ) a primeira noticia.. so da segunda em diante, porém ta aparecendo + de 3 na segunda.. eu so queria 3 noticas na segunda pagina..o que eu faço ? o codigo q ta na segunda 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>