Hej!
Har en tabell som heter "Tider" som innhåller Raknare, Person1, Tid1, Person2 och Tid2.
I den andra tabellen finns det Raknare, PersonNummer och Namn.

Skall nu göra en över helgens prestationer.

Så här se min kod ut...
<%Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\db\020929.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From Resultat ORDER BY Raknare ASC"
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
DO UNTIL RecSet.EOF
If Nummer = True then
color = "FFFFFF"
nummer = False
Else
color = "EDECEC"
nummer = True
End If
Raknare=RecSet("Raknare")
Person1=RecSet("Person1")
Tid1=RecSet("Tid1")
Person2=RecSet("Person2")
TidBil2=RecSet("Tid2")
%>
...
<%=Raknare%> ...<%=Person1%>

'Här kommer det som inte vill funka! Nu vill jag hämta information om Person1 ur en annan tabell.
<%Addera = "Select * From Medlem Where MedlemNr=" &Person1
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%> <%=RecSet("Info")%>

'Gör en likan till för Person2
<%Addera = "Select * From Medlem Where MedlemNr=" &Person2
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%> <%=RecSet("Info")%>

'Sen återkommer jag till variablerna från början
<%=Tid1%>
<%=Tid2%>


<% RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>

Har aldrig råkat ut för detta... har testa olika varianter men det känns eller har funkat korrekt än!

Mvh Marcus

Heter tabellen Tider eller Resultat? Du säger Tider men det står Resultat i din kod.<br>
<br>
Varför inte göra det med Joins istället:

<code>

<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\db\020929.mdb"

Addera = "SELECT Resultat.*, M1.Info AS Info1, M2.Info AS Info2" & vbCrLf & _
"FROM (Resultat LEFT JOIN Medlem AS M1 ON Resultat.Person1 = M1.MedlemNr) LEFT JOIN Medlem AS M2 ON Resultat.Person2 = M2.MedlemNr" & vbCrLf & _
"ORDER BY Raknare ASC"

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Addera, Connect

Do Until RecSet.EOF
If Nummer then
color = "FFFFFF"
nummer = False
Else
color = "EDECEC"
nummer = True
End If
Raknare=RecSet("Raknare")

Person1=RecSet("Person1")
Tid1=RecSet("Tid1")

Person2=RecSet("Person2")
TidBil2=RecSet("Tid2")
%>
...
<%=Raknare%> ...<%=Person1%>

'Här kommer det som inte vill funka! Nu vill jag hämta information om Person1 ur en annan tabell.
<%=RecSet("Info1")%>

'Gör en likan till för Person2
<%=RecSet("Info2")%>

'Sen återkommer jag till variablerna från början
<%=Tid1%>
<%=Tid2%>
<%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = nothing

Connect.Close
Set Connect = nothing
%>

</code>

aha.. tack.. Skall testa lösningen!

Resultat heter tabellen! Opps..!

Mvh Marcus

Super tack Andreas Hillqvist!!
Din lösning funkar fin fint!
Tack!

Mvh Marcus