Ersätta...

När du har krupit ut ur din databas kan du testa med att använda JOIN i din SQL-sats...
Jag är inte proffs på det här ämnet så någon annan får svara... ex Sebbe eller Bullen

hmm, inte riktigt så. någon else?

Prova det här

select l1.namn as lag1, l2.namn as lag2 
from (tblLag as l1 inner join tblSpel as m on l1.id = m.hlag) 
inner join tblLag l2 on m.blag = l2.id

Här är hela min kod för att skriva ut ett resultat:

Jag har testat skrivit in din kod, men det går ej.

Om jag skulle placera in din kod i denna kod, hur blir det dåÅ?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")
strSQL = "SELECT l.lagnamn, s.datum, s.tid, s.hmal, s.bmal, li.liganamn, s.omg, s.hlag, s.blag " &_
"FROM tblLag l, tblSpel s, tblLiga li " &_
"WHERE (l.lagid = s.hlag OR l.lagid = s.blag) " &_
"AND s.ligaid = li.ligaid " &_
"AND li.ligaid = " & Request.QueryString("id") & " " &_
"ORDER BY s.omg DESC, s.datum DESC"
Set Rs = Conn.Execute(strSQL)

Do Until rs.EOF
  If intTemp <> CInt(rs("omg")) Then
    Response.Write("<p>Omgång " & rs("omg") & ": " & rs("hlag") & " - " & rs("blag") & " &nbsp; &nbsp; " & rs("hmal") & " - " & rs("bmal"))
  Else
    Response.Write("<br>Omgång " & rs("omg") & ": " & rs("hlag") & " - " & rs("blag") & " &nbsp; &nbsp; " & rs("hmal") & " - " & rs("bmal"))
  End If
  intTemp = CInt(rs("omg"))

Rs.Movenext
Loop
Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing
%>

någon?

please!

Om ni inte förstår är det såhär jag vill ha det:

I tblSpel har jag två fält, hlag och blag och deras värden är id-nummer. När jag skriver ut dem, så skriver jag ut deras id-nummer men jag vill att de skall skriva ut lagnamn.

Hoppas detta kan hjälpa er att förstå min fråga.
I tblLag har jag två fält där det står vilket namn laget med id nummer 2 har. Om Lerum FF har id nummer 3 och jag skriver ut det vill jag att det skall stå Lerum FF och inte 3.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")
strSQL = "SELECT s.datum, s.tid, s.hmal, s.bmal, li.liganamn, s.omg, s.hlag, s.blag, " &_
"(SELECT lagnamn FROM tblLag WHERE s.hlag = tblLag.id) as hemmalag, " & _
"(SELECT lagnamn FROM tblLag WHERE s.blag = tblLag.id) as bortalag " & _
"FROM tblLag l, tblSpel s, tblLiga li " &_
"WHERE (l.lagid = s.hlag OR l.lagid = s.blag) " &_
"AND s.ligaid = li.ligaid " &_
"AND li.ligaid = " & Request.QueryString("id") & " " &_
"ORDER BY s.omg DESC, s.datum DESC"
Set Rs = Conn.Execute(strSQL)

Do Until rs.EOF
  If intTemp <> CInt(rs("omg")) Then
    Response.Write("<p>Omgång " & rs("omg") & ": " & rs("hemmalag") & " - " & rs("bortalag") & "     " & rs("hmal") & " - " & rs("bmal"))
  Else
    Response.Write("<br>Omgång " & rs("omg") & ": " & rs("hemmalag") & " - " & rs("bortalag") & "     " & rs("hmal") & " - " & rs("bmal"))
  End If	
  intTemp = CInt(rs("omg"))

Rs.Movenext
Loop
Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing
%>

Tack, jag testade din kod men får felmeddelandent:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
/sputnik/spelschema.asp, line 26

Rad 26:

Set Rs = Conn.Execute(strSQL)

Jag ser inte felet..

Löste det:

"(SELECT lagnamn FROM tblLag WHERE s.hlag = tblLag.id) as hemmalag, " & _
"(SELECT lagnamn FROM tblLag WHERE s.blag = tblLag.id) as bortalag " & _

..skulle vara..

"(SELECT lagnamn FROM tblLag WHERE s.hlag = tblLag.lagid) as hemmalag, " & _
"(SELECT lagnamn FROM tblLag WHERE s.blag = tblLag.lagid) as bortalag " & _