\"Sammensæt\" udtræk fra 2 tabeller

Glæmte lige at skrive at det skal se ca. sådan her ud når den har lavet udtrækket:


Navn (brugere)    funktion (funktioner)    email (brugere)

Jeg er lidt træt.

Meningen er at den så skal lave en komplet liste over alle som er medlem af bestyrelsen, så det vil blive noget som dette:
Navn (brugere)    funktion (funktioner)    email (brugere)
Navn (brugere)    funktion (funktioner)    email (brugere)
Navn (brugere)    funktion (funktioner)    email (brugere)
Navn (brugere)    funktion (funktioner)    email (brugere)

select person.navn,funk.funktionsnavn,person.email from person,funk where person.id=funk.refid

sådan ca.

Gider du lave et komplet eksempel?

Det er komplet. Du skal bare udføre den i ASP og udskrive hele recordsættet. Men
du skal nok udskifte navne på tabeller og felter....jo da...

Hvordan indsætter jeg så et felt fra de forskellige tabeller?? (Jeg er ikke så stærk i ASP)

Hmm, giv mig navne på tabeller og felter, og vis mig en eller anden stump kode
du MÅ have liggende, der løber et recordset igennem. Så skal jeg nok vise dig det.
Det er ik\' så gal\'.

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"select * from brugere where gren=\'leder\' and vis=-1 ORDER BY sorter ASC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Der er igen ledere i databasen\"
else
Do Until rs.EOF
%>

<TD class=\"tabel4\" width=\"250\"><span class=\"normal\"><img src=\"images/pil.gif\">&nbsp;<a class=\"links\" href=\"default.asp?side=medlem&subside=info&id=<%=RS(\"id\")%>\"><%=RS(\"navn\")%></a></TD></span>
        <TD class=\"tabel4\" width=\"200\"><span class=\"normal\"><%=RS(\"funktion\")%></TD></span>
    <TD class=\"tabel4\" width=\"150\"><span class=\"normal\"><%=RS(\"gruppe\")%></TD></span>

<tr><TD colspan=\"3\" class=\"tabel1\" width=\"1\"></TD></tr>
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
</tr>
</TABLE><p>

Det er den kode jeg bruger nu, men det virker ikke på samme måde!
Databasen hedder: spejder
tabellerne hedder: brugere & funktioner
I oversigten skal den indsætte:
navn (fra brugere)
funktion (fra funktioner) og email fra (brugere)

Måske virker det her direkte. Du må selv bøvle med at sætte det i tabeller:

<%
Set Conn = ServerCreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spejder.mdb\")
strSQL = \"select funktioner.funktion as f,brugere.navn as n,brugere.email as e from brugere,funktioner where brugere.id=funktioner.refid\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"Der er igen ledere i databasen\"
else
Do Until rs.EOF
  response.write rs(\"f\") & \" \" & rs(\"n\") & \" \" & rs(\"e\") & \"<br>\"
  RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing
%>

Det virker ikke!

Får følgende fejl:
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typerne passer ikke sammen: \'ServerCreateObject\'
/troldhoej/test2.asp, line 9


Browsertype:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

Side:
GET /troldhoej/test2.asp

Klokkeslæt:
8. juli 2001, 18:54:53


Yderligere oplysninger:
Microsoft Support

I line 9:

Set Conn = ServerCreateObject(\"ADODB.Connection\")

hvor blev det punktum dog af ??

Set Conn = Server.CreateObject(\"ADODB.Connection\")

Den indsætter alle daterne der er i tabellerne. Den skulle kun indsætte f.eks. alle dem hvor feltet gren i funktioner er = bestyrelse, men ellers ok!

strSQL = \"select funktioner.funktion as f,brugere.navn as n,brugere.email as e from brugere,funktioner where funktioner.gren=\'bestyrelse\' and brugere.id=funktioner.refid\"

...bare som én lang linie

Perfekt tak for hjælpen!