(Resolvido) Pegar Noticias pelo ID

[Fabio AVILA]

Amigos é o seguinte , não to consigo pegar o id em meu bd , ele retorna vazio .. vejam como esta meu link :

detalhes_noticias.asp?acao=V&id=<%=id%>

vlw

[bareta]

sql="select * from tabela"
set rs=conn.execute(sql)
if not rs.eof then

while not rs.eof
%>
detalhes_noticias.asp?acao=V&id=<%=rs("id")%><br>
<%
rs.movenext
wend

end if
rs.close
set rs=nothing

[Fabio AVILA]

E ae Mestre beleza ,

Olha como deixei meu código , está dando erro : Object required: ''

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

objCon.Execute(sql)

if not rs.eof then

while not rs.eof
%>
detalhes_noticias.asp?acao=V&id=<%=rs("id")%><br>
<%
rs.movenext
wend

end if
rs.close
set rs=nothing

%>

abraços

[Jonathan Queiroz]

Mas você não definiu rs

Ao invés de:

objCon.Execute(sql)

Tente:

set rs=objCon.Execute(sql)

[Fabio AVILA]

Jonathan beleza

Agora esta dando erro na linha do link : detalhes_noticias.asp?acao=V&id=<%=rs("id")%>

Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis

Ficou assim :

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)


if not rs.eof then

while not rs.eof

rs.movenext
wend

end if
rs.close
set rs=nothing

%>

vlw

[Jonathan Queiroz]

Mas você não pode juntar o código ASP dessa forma e deixar o HTML no final. Isso porque o texto deve ser escrito dentro do loop e depois você limpou a variável rs (set rs=nothing)

[Fabio AVILA]

Jonatan , coloquei no loop mas ele não criou o link e sim ele mostra os ids na tela pra mim .. o que esqueci .rs..

detalhes_noticias.asp?acao=V&id=1
detalhes_noticias.asp?acao=V&id=5

Segue

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)


if not rs.eof then

while not rs.eof

%>
detalhes_noticias.asp?acao=V&id=<%=rs("id")%><br>
<%

rs.movenext
wend

end if
rs.close
set rs=nothing

%>

vlw

[Jonathan Queiroz]

Para um link você deve utilizar a tag a no seu HTML

<a href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>">Visitar link</a><br>

[Fabio AVILA]

Jonathan ,

Colocando o link ele da erro :

<a href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>">Visitar link</a>

Erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis
/noticias.asp, line 130

[Jonathan Queiroz]

Como está seu código ?

[Fabio AVILA]

Está assim :

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)


if not rs.eof then

while not rs.eof


rs.movenext
wend

end if
rs.close
set rs=nothing

%>

[Jonathan Queiroz]

Você tem que separar isso

while not rs.eof%>
<!-- Código do link aqui -->
<%
wend
[...]
set rs=nothing%>

[Fabio AVILA]

Jhonatam funcionou mas ele ta repetindo os links tipo eu tenho 2 noticias no BD dae ele mostra 2x Visitar link tanto na primeira quanto na 2 Noticias , como eu faço pra deixar somente 1 Visitar link ...

Abracos

[Rafael Spilki]

Coloque o link fora do loop!

[Fabio AVILA]

Rafael , se colocar fora da TIPO DE DADOS INCOMPATIVEIS:

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)


if not rs.eof then

while not rs.eof%> 



<%
rs.movenext
wend
end if
rs.close
set rs=nothing

%>

<a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>">
                                Visitar link</a>

VLW

[Rafael Spilki]

Sim... porque ao invés de colocar apenas fora do loop você colocou após fechar o recordset e inclusive a conexão com o bd...

tente assim:

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)


'if not rs.eof then
<a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>"> Visitar link</a>
'while not rs.eof%>



<%
'rs.movenext
'wend
'end if
rs.close
set rs=nothing

%>

[]'s Rafael Spilki

[Fabio AVILA]

Rafae, fiz a modificação e esta dando erro :

Erro de compilação do Microsoft VBScript (0x800A0400)
Instrução esperada
/noticias.asp, line 121
<a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")

Codigo:

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)


if not rs.eof then

<a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>"> Visitar link</a>


while not rs.eof%>



<%
rs.movenext
wend
end if
rs.close
set rs=nothing

%>

[bareta]

repare no trecho

if not rs.eof then

<a target="_top" href="detalhes_noticias.asp?acao=V&id=<%=rs("id")%>"> Visitar link</a>


while not rs.eof%>

você escreve html dentro do bloco asp e escreve ainda um bloco asp dentro de outro. o correto seria:

if not rs.eof then
response.write "<a target=""_top"" href=""detalhes_noticias.asp?acao=V&id="&rs("id")&"""> Visitar link</a>"
hile not rs.eof

[Fabio AVILA]

Eu denvo.to quase lá..rss.. Jhonatan desda vez na esta dando erro e está um link para cada noticia , mas ele ta pegando somente o PRIMEIRO ID em todos os Links , veja como ficou agora:

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bd.mdb") & ";Persist Security Info=False"

sql = "SELECT * FROM Noticias"

set rs=objCon.Execute(sql)

if not rs.eof then
response.write "<a target=""_top"" href=""detalhes_noticias.asp?acao=V&id="&rs("id")&"""> Visitar link</a>"
while not rs.eof%>


<%
rs.movenext
wend
end if
rs.close
set rs=nothing

%>

[]cs

[bareta]

esta na hora de entender o que esta fazendo e prestar mais atenção aos detalhes...

va já se perguntou... porque ta mostrando so 1 noticia?

verifique a estrutura de repetição... se tudo que no bloco do loop ta certinho

[Rafael Spilki]

você não fez o que foi dito não... se tivesse feito teria dado certo...

Se deu erro na linha 121 cadê a linha? Derepente é outro erro nada a ver com o problema em questão...

To com o Bareta... tá faltando atenção de sua parte!

O que você quer é simples e tem a varrer exemplos disso no google...

Além disso, penso já ter informações suficientes nesse tópico para responder sua dúvida...

Dá uma lida com calma, pesquise no google, estude!

[]'s

[Fabio AVILA]

Fala ae beleza ,

Foi falta de atenção minha mesmo, consegui encontrar o erro ..

vlw