Hej på er igen!
Nu har jag ett sånt här problem igen med flera olika tabeller som man ska hämta data från.
Har inte fått kläm på det här med innerjoin än så jag behöver lite hjälp igen.

Jag jobbar vidare med mitt forum o har kommit till det läget att man ska läsa ett meddelande och för att se det så tar man med sig ett ID (MID) i en querystring.
Sen så ska jag hämta data från min tabell med meddelandedatan.

Men man ska även kunna se alla svar på just detta meddelande.

Mina tabeller ser ut så här och de fält jag anger är de fält jag ska hämta data från:

tblMeddelande - fltMID, fltMRubrik, fltMMeddelande, fltMTid, fltAnvandarnamn

tblSvar - fltSID, fltSRubrik, fltSTid, fltAnvandarnamn, fltMID

tblMeddelande och tblSvar har relationer till varandra via fltMID och tblSvar är kopplad till en annan tabell med användardata (tblAnvandare)

Någon som lyckas knäcka denna nöt?
Tack på förhand...
/Lari

I detta fallet skulle jag rekomendera att strunta i Joins. Det är faktist en nackdel. Efter som det då kommer belasta databasen och servern mer än vad två separata anrop gör.

Mitt förslag är:
<code>
<%
Dim MId
Dim con
Dim rsTemp
MId = Request.Querystring("ID")
If IsNumeric(MId) Then
Set con = Server.CreateObject("ADODB.Connection")
con.Open "<<<Connection String>>>"

Set rsTemp = Server.CreateObject("ADODB.Recordset")
rsTemp.Open "SELECT * FROM tblMeddelande WHERE fltMID = " & MId, con

If rsTemp.EOF Then
Respons.Write "Post ej funnen!"
Else
Respons.Write "<B>Rubrik:<B><BR>" & vbCrLf
Respons.Write rsTemp("fltMRubrik") & "<BR>" & vbcrlf
Respons.Write "<B>Meddelande:<B><BR>" & vbCrLf
Respons.Write rsTemp("fltMMeddelande") & "<BR>" & vbcrlf
Respons.Write "<BR>" & vbcrlf

rsTemp.Close

rsTemp.Open "SELECT * FROM tblSvar WHERE fltMID = " & MId & " ORDER BY fltSTid", con

Do Until rsTemp.EOF
Respons.Write "<B>Rubrik:<B><BR>" & vbCrLf
Respons.Write rsTemp("fltSRubrik") & "<BR>" & vbcrlf
Respons.Write "<B>Anvandarnamn:<B><BR>" & vbCrLf
Respons.Write rsTemp("fltAnvandarnamn") & "<BR>" & vbcrlf
Respons.Write "<BR>" & vbcrlf
rsTemp.MoveNext
Loop
End If
rsTemp.Close
Set rsTemp = Nothing

con.Close
Set con = Nothing
End If
%>
</code>