---
title: "kommentera inlägg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11298-kommentera-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "laidback"
published: "2001-08-26T19:24:00.000Z"
updated: "2001-08-26T20:27:00.000Z"
replies: 2
views: 290
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11298-kommentera-inlägg"
---

# kommentera inlägg

## #1 — laidback, 2001-08-26T19:24Z

nu har jag suttit och letat i arkivet som en gnu, men inte blivit så klokare av det.. 

en funktion för att kommentera inlägg? 
där kommentarerna hamnar i kronologisk ordning under inlägget. 
en ny tabell, där både inläggets ID och kommentarens ID finns med, men sen då?

 <http://cgi.webforum.nu/wf/Forum11/HTML/005538.html>  tände några små ljus, men det verkar inte räcka..

förkylningen har lagt ett rejält lager fetvadd i huvudet på mig, så tala långsamt bitte!

Permalänk: https://www.webforum.nu/p/11298

## #2 — LarsG, 2001-08-26T20:17Z

Om du har tabellerna

News
ID!News!NewsDate!Title

Comnents
newsId!CommentId!Comment!By!CommentDate

så kan du visa nyheter och vidhängande kommentarer med denna kodsnutt

```
dim connect
connect.open "dsn"
dim sql,rs,oldid

sql = "select * from news n left join comments c on n.Id = c.newsId " & _
      " order by newsDate desc ,commentDate desc" 
set rs = connect.execute(sql)

while not rs.eof
  if  clng(oldid) <> clng(rs("id")) then
      oldid = clng(rs("id"))
'new newsitem
      response.write rs("newsdate") & " " rs("title") & "<br>"
      response.write replace(rs("news"),vbcrlf,"<br>")
      if not isnull(rs("newsid")) then
'we have at least one comment
         response.write "Kommentar <br>"
      end if
  end if
  if not isnull(rs("newsid")) then
     response.write rs("commentdate") & " " & rs("by") & "<br>"
     response.write replace(rs("comment"),vbcrlf,"<br>")
  end if
  rs.movenext
wend

rs.close
set rs = nothing
connect.close
set connect = nothing
```

Det får nog fila lite på utskriften

Permalänk: https://www.webforum.nu/p/284755

## #3 — laidback, 2001-08-26T20:27Z

aha. 
jag ska fila lite då.

Permalänk: https://www.webforum.nu/p/284756

---

Tråden på webben: https://www.webforum.nu/amne/asp/11298-kommentera-inlägg