[Resolvido] Noticias com Link Exerno

[FGC 0]

O que estou fazendo de errado?

[saloeric 1]

Indique no código onde está o erro, e coloque o código que tem.

 

Tem que ter noção como funciona um ciclo e o tipo de dados que estão a ser tratados.

[FGC 0]

J aindiquei aonde esta o erro é nestre trecho aqui

 

<%
       u = u+1
       rs.MoveNext
     wend
     rs.close
%>

[saloeric 1]

coloque o seu código completo, de qualquer maneira pelo que vi,

 

nesta linha

u = u + 1

você antes não define o u, antes do ciclo deveria ter um,

u = 0 ' assim ele assume o u como numérico



seria assim
u = 0
while not rs.eof
u = u + 1
rs.movenext
wend

[FGC 0]

Ola Amigos,

 

Ufa !!! Consegui enfim resolver meu problema abaixo o código completo..

 

Obrigado pelas dicas...

 

<%
     sqlstmt = "SELECT TOP  4 * FROM noticias ORDER BY Id DESC"

     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.Open sqlstmt, Dados, 3, 3
     TotalRecs = rs.recordcount
     x = 1
     loop1 = ""
     loop2 = ""

     while not rs.EOF
        loop1 = loop1 & ""
        loop1 = loop1 & "<li>"

        if rs("externo") = 0 then
          loop1 = loop1 & " <a href='../detalhes_noticias.asp?id=" &rs("ID")&" 'target='_top'>"
        else
          loop1 = loop1 & "<a href='http://"&rs("link")&"' target='_blank'>"
        end if

        loop1 = loop1 & "<img src='imagens/" & rs("foto") & "' class='thumb' id='thumb-" & x & "' />"
        loop1 = loop1 & "</a>"
        loop1 = loop1 & "</li>"

        loop2 = loop2 & ""

        linkloop2 = ""
        if rs("externo") = 0 then
          linkloop2 = "<a href='../detalhes_noticias.asp?id="&rs("ID")&"' target='_top' title='Ler a notícia'>"
        else
          linkloop2 = "<a href='http://"&rs("link")&"' target='_blank' title='Abrir em outra página'>"
        end if

       loop2 = loop2 & "<li>"
       loop2 = loop2 & "<span class='secao'>" & rs("categoria") & "</span>"
       loop2 = loop2 & "<div class='seta'></div>"
       loop2 = loop2 & linkloop2
       loop2 = loop2 & "<span class='titulo'>" & rs("titulo") & "</span>"
       loop2 = loop2 & "</a>"
       loop2 = loop2 & "</li>"

%>


<%
     u = u+1
     rs.MoveNext
     wend
     rs.close
%>

 

:thumbsup: