Få fram rätt information ur databasen

select * from news left join comments on news.id = comments.newsid where news.id in (select max(id) from news)

Nu vet jag inte hur dina tabeller ser ut, men jag antar att du har en räknare (news.id) för att identifiera nyheter.

Hmm, vet inte riktigt hur jag ska sätta in din kodsnutt ;q, men den som jag har nu är följande (för att få fram rätt kommentarer när jag klickar på en nyhet från förstasidan)

dim kommentarer_nyhet
kommentarer_nyhet = Request.Querystring("nyhet")
sSQL = "SELECT * FROM kommentera WHERE nyhet_id LIKE '" & kommentarer_nyhet & "' order by dag desc"

provade med

sSQL = "select * from nyheterna left join kommentera on nyhet_id = kommentera.nyhet_id where nyhet_id in (select max(id) from nyheterna)"

men det fungerade inte, värt att säga är att jag kör med access. och att jag har en databas nyheterna_databasen.mdb samt två fält i den, nyheterna och kommentera.

Vilka kolumner finns i tabellerna?

Av dina exempel att döma ser det ut så här

Nyheterna
----
nyhet_id
...

kommenterar
----------------
kommenterer_nyhet
dag
...

och att det är kommentarer_nyhet som är kopplat till nyhet_id i nyheterna. (Rätta mig om jag har fel.) I så fall borde frågan se ut så här

sSQL = "select * from nyheterna as n left join kommentera as k" &_
" on n.nyhet_id = k.kommentarer_nyhet where n.nyhet_id in (select max(nyhet_id) from nyheterna)"

Med den kodsnutt du skickade nu så försvann åtminstone felmeddelandet, men ingenting visas förutom, att det inte finns något meddelande, hmm, kanske skrivit någonting fel, hursomhelst, kodsnutten är nu,

sSQL = "select * from nyheterna as n left join kommentera as k" &_
" on n.id = k.nyhet_id where n.id in (select max(id) from nyheterna)"

Är inte särskilt haj på det här med hur databaskopplingarna ska se ut, men så här har jag gjort:

nyheterna
id - räknare (kopplad till nyhet_id)
tid - datum/tid
rubrik - text
dag - datum/tid
texten - pm

kommentera
id - räknare
texten - pm
nyhet_id - tal (kopplad till id på nyheterna)
dag - datum/tid
tid - datum/tid

Går det upp ett ljus? :r Förhoppningsvis ska man lära sig någonting ju mer man håller på :e

sSQL = "select * from nyheterna as n left join kommentera as k" &_
" on n.id = k.nyhet_id where n.id in (select max(id) from nyheterna)"

Någonting är fel, hmm... har jag tänkt fel? :q

<% IF Request.Querystring("nyhet") < "" THEN %>

<%
'***** Skapar Connection-objektet *****'
Set Conn = Server.CreateObject("ADODB.Connection")

'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("db/nyheter_databasen.mdb")

'***** öppnar databasen *****'
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

sSQL = "select * from nyheterna as n left join kommentera as k" &_
" on n.id = k.nyhet_id where n.id in (select max(id) from nyheterna)"
Set rs = Conn.Execute(sSql) 
%>

<%else%>

<%
'***** Skapar Connection-objektet *****'
Set Conn = Server.CreateObject("ADODB.Connection")

'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("db/nyheter_databasen.mdb")

'***** öppnar databasen *****'
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

dim kommentarer_nyhet
kommentarer_nyhet = Request.Querystring("nyhet")
sSQL = "SELECT * FROM kommentera WHERE nyhet_id LIKE '" & kommentarer_nyhet & "' order by dag desc"
Set rs = Conn.Execute(sSql) 
%>

<% end if %>

<%
If RS.EOF Then
%>
<!-- om ingenting finns i databasen -->
<I>Ingen har skrivit någon kommentar till denna nyheten ännu</i>

<%
else
  Do until RS.EOF
%>
<br>
<b><%=rs("dag")%> - <%=rs("tid")%></b>
<br>
<%=rs("texten")%>
<br>

<%
  RS.MoveNext
  loop
End If
%>

<%
rs.Close 
Set rs = Nothing 
%>

<%
Conn.Close 
Set Conn = Nothing 
%>

När får kommentarer_nyhet sitt värde?

Hur menar du? Det här?

dim kommentarer_nyhet
kommentarer_nyhet = Request.Querystring("nyhet")

Annars så kommer "nyhets" värdet från första sidan, som du kanske läste i mitt tidigare inlägg? Alltså när man går från första sidan och väljer en nyhet så får man fram kommentarerna. Men om man går direkt till "nyhetssidan" så fungerar det inte, då visas bara: "Ingen har kommenterat detta ännu" _trots_ att det finns kommentarer till nyheten.

Glöm mig, ser ju med fötterna...

ingen fara, men jag behöver ju fortfarande hjälp? ni kan ju kolla vad jag menar på sidan..

huvudsidan där man ser nyheterna och kan klicka på länken för att få fram kommentarer utifall de finns några dvs

nyhetssidan där man ska kunna se eventuella kommentarer på den senaste nyheten som är i dess fulla längd

ingen?

Ditt villkor på första raden borde nog vara

<% IF Request.Querystring("nyhet") = "" THEN %>

kan du skriva ut den sql-sats du utför och testa den direkt i Access?

<% end if %>
<% response.write "sql:" & sSql & "<br>" %>
<%
If RS.EOF Then

kanon, funkar perfekt nu, f*nken vad jag tycker det är retfullt när det är ett sånt simpelt fel som förstör allting.. men fy skam den som ger sig, tack för hjälpen LarsG iaf :e