Ir para conteúdo
Fórum Script Brasil
  • 0

Notícia com comentário


Kal Louis

Pergunta

Olá, sou novo por aqui e não encontrei nada do tipo.

Tenho um sistema de notícia e queria que as pessoas colocassem comentários.

Fiz um cadastro de comentário onde ele registra o nome da pessoa, data, hora, comentário e id da noticia no banco.

Na hora de mostrar a notícia pensei ser apenas mostrar os comentários que o id fosse a mesma da noticia.

Aonde mostra a noticia fiz um campo que mostra o id da noticia e queria que a área de comentário buscasse esse id.

Pensei em algo assim

Dim id_com2 
id_com2 = request.Form("id_com");

coment = "Select * From comentarios Where id= " & id_com2 & ""
  Set com = ConnDB.Execute(coment)

onde id_com é o nome do campo do form que exibe o id da notícia.

acontece que não está dando certo.

Como faço para ele mostrar apenas os comentários que tem um id = ao da notícia.

Obrigado

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

Qual o problema que ocorre?

Primeiro tire o ";" da segunda linha.

Tente dar um Response.Write Request("id_com") para ver o que retorna.

De um novo- Response.Write coment -para verificar qual query está tentando executar, teste no banco e veja o que retorna.

Abços

Editado por rodrigotnoma
Link para o comentário
Compartilhar em outros sites

  • 0

veja que...

coment = "Select * From comentarios Where id_noticia= " & id_com2 & ""
Set com = ConnDB.Execute(coment)
if not com.eof then
while not com.eof
response.write com("campo")
com.movenext
wend
end if
com.close
set com=nothing

Link para o comentário
Compartilhar em outros sites

  • 0

Demorei para testar mas fiz, e da seguinte forma...

Dim id_com2 
id_com2 = value.Form("id_com")

coment = "Select * From comentarios Where id_noticia= " & id_com2 & ""
Set com = ConnDB.Execute(coment)
if not com.eof then
while not com.eof
response.write com("campo")
com.movenext
wend
end if
com.close
set com=nothing

isso dá o seguinte erro:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/manut/index2.asp, line 190

onde a lina 190 é:

id_com2 = value.Form("id_com")

como é a forma correta para ele pegar o valor do campo que está como input??

Obrigado

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...