Jump to content
Fórum Script Brasil
  • 0

Contator De Noticias.. Aparece So 3


Guest Katatau

Question

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>

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0
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

Link to comment
Share on other sites

  • 0
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

Link to comment
Share on other sites

  • 0

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>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      651.9k
×
×
  • Create New...