Jag har problem med att göra min sida snabb. Är det någon som har nåt tips ?
Sidan ligger på brinkster och körs med access 2000,
---------------------
PlayerSql = "SELECT Players.Id, Players.Namn FROM Players WHERE (((Players.Aktiv) Like Yes));"
Set PlayerRs = conn.Execute(PlayerSql)

VinnareSql="SELECT * FROM QVinnare;"
Set VinnareRs = conn.Execute(VinnareSql)

do while not PlayerRs.eof
Vinster=0
VinnareRs.movefirst
do while not VinnareRs.eof
if PlayerRs("Id").Value = VinnareRs("Spelare1").Value or PlayerRs("Id").Value = VinnareRs("Spelare2").Value then
Vinster=Vinster+1
end if
VinnareRs.movenext
loop
if Vinster > 0 then
i=i+1
Vinnare(i)= PlayerRs("Namn").Value
VinnarePoints(i)= Vinster
end if
PlayerRs.movenext
loop
---------------------
Det är bridge det är frågan om där man är två som spelar ilag. Jag kollar hur många gånger varje spelare har vunnit(sorterar sedan innan utskrift). Två recordsets, det är ungeför 100 'Players' och uppemot 200 'vinnare', blir långsamt, tar ca 10 sekunder !
Tacksam för tips !

<code>
Dim rs
Dim conn
Dim strSQL

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ">>>Connection String<<<"

strSQL = "SELECT Players.Id, Players.Namn, Count(QVinnare.ID) As Vinster" & vbCrLf & _
"FROM Players LEFT JOIN QVinnare ON (Players.Id = QVinnare.Spelare1 OR Players.Id = QVinnare.Spelare2)" & vbCrLf & _
"GROUP BY Players.Namn, Players.Id"

Set Rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, conn

Do Until rs.eof
If rs("Vinster") > 0 then
i = i+1
Vinnare(i) = PlayerRs("Namn").Value
VinnarePoints(i) = rs("Vinster")
End If
rs.movenext
Loop
rs.Close
Set rs = Nothing

conn.Close
Set conn = nothing
</code>

Tack, men får meddelandet;
Too few parameters. Expected 1.

Har du någon primärnyckel eller obligatoriskt fält i QVinnare. JAg chansade på att det fans et ID fält. Låter som om det inte gör det.

Ersätt ID med ett fältnman som fins i QVinnare:
Count(QVinnare.ID)

Tack för hjälpen, ska lägga till ett Id för tävling i frågan.

Ruggig skillnad ! Nu återstår bara att snabba upp de övriga sidorna...(hoppas jag klarar detta). Tackar !