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
------------------
essentitia preter non sans multiplicandum