[Resolvido] For Loop

[razs 0]

Alguem percebe porque é que isto deixou de funcionar?

 

se eu tirar o for e o loop ele mostra um registo mas se eu mantiver o for e o loop ele nao mostra nada

 

Set rs1 = conn.Execute("SELECT * FROM noticias order by data desc, hora desc limit 3")

if rs1.recordcount = 0 then	
response.write "No info available!"
else

For b=1 to rs1.recordcount 
%>
<div class="gallery_column">
<a href="vernews.asp?id=<%=rs1.fields("id")%>">%=LEFT(rs1.fields("titulo"),35)%>...</a>
<br>
<a href="vernews.asp?id=<%=rs1.fields("id")%>">%=rs1.fields("hora")%></a>
               </div>
<div class="spacetoright"></div>
<%
rs1.movenext
next

%>
<div class="more_button"><a href="vernews.asp">All</a></div>
<%
end if

[saloeric 1]

veja quanto registos lhe está a devolver o recordcount, poderia fazer isso de outra forma penso que seria mais "leve"

 

 

Set rs = conn.Execute("SELECT * FROM noticias order by data desc, hora desc limit 3")

if rs.bof and rs.eof then     
response.write "No info available!"
else
while not rs.eof 
%>
<div class="gallery_column">
<a href="vernews.asp?id=<%=rs.fields("id")%>">%=LEFT(rs.fields("titulo"),35)%>...</a>
<br>
<a href="vernews.asp?id=<%=rs.fields("id")%>">%=rs.fields("hora")%></a>
               </div>
<div class="spacetoright"></div>
       <%
       rs.movenext
       wend

       %>
<div class="more_button"><a href="vernews.asp">All</a></div>
<%
end if

[xanburzum 169]

dependendo da situacaun melhor usar um contatdor normal ou a clausula count do SQL, pois se o seu bd for muito grande o recordcount do objeto recordset para apresentar queda de desempenho

e para usar o RecordCount , seu cursortype tem k ser recordset.CursorType = 3 (AdOpenDynamic)

 

exemplo:

<%
DIM mySQL, objRS
mySQL = "SELECT * FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

' Count how many records exist
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF
iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop

' Display result
Response.Write "(" & iRecordCount & ")"

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%> 

 

SQL COUNT

 

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT Count(*) AS intTotal FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open recSQL, objConn

' Display result
Response.Write objRS("intTotal")

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%> 

[razs 0]

Obrigado saloeric, funciona na perfeicao.

 

 

xan percebi o que queres dizer mas isto vai ter poucos registo, obrigado.