<code>
<%
Dim objConnection, strSQL, rstClan
Dim astrClan(31)
Dim lngCnt, lngGroup, lngPos, lngClan

Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db\ra3cup.mdb")
'hämta lagen
strSQL="select clan from clans"
Set rstClan=objConnection.Execute(strSQL)
' lägg dem i arrayen
lngCnt=0
While not rstClan.eof
astrClan(lngCnt)=rstClan(0)
lngCnt=lngCnt+1
rstClan.MoveNext
Wend
' stäng recordsetet
rstClan.Close
Set rstClan=Nothing
' initiera slumptalsgeneratorn
Randomize
' slumpa 4 lag för varje grupp
For lngGroup=1 to 8
For lngPos=1 to 4
' välj ett lag ur collection-objektet
lngClan=Int(Rnd()*lngCnt)
' spara i databasen
strSQL="insert into league ([group], pos, clan) values (" & lngGroup & "," & lngPos & ",'" & astrClan(lngClan) & "')"
objConnection.Execute strSQL,,128
' plocka bort laget ur arrayen
lngCnt=lngCnt-1
If lngClan<>lngCnt Then astrClan(lngClan)=astrClan(lngCnt)
Next
Next
Response.write "Clans has now been randomized into 8 diffrent groups with 4 clans in each group."
%>
</code>
--------------------------------------------
funktion:
koden hämtar alla rs(clan) från 1 tabell.. sen slumpas dom in i 8 grupper med 4 lag i varje grupp och sedan lägger in clan-grupp-pos i en ny tabell

koden funkar... men mitt problem är att jag oxo vill ha med rs(country) in i den nya tabellen.... (((rs(clan) kommer från landet rs(country) liksom)))

kan nån hjälpa mig med att få in rs(country) vidare till den nya tabellen..

Du ändrar bara i SQL-satsen till:

strSQL="select clan, country from clans"

//Susanne

dom ligger ju inte i samma tabell