Hmm... Säg att du numrerar 16 lag, dvs 1–16 (0–15 i en array). Om du vill ha fram alla matcher som kan spelas borde följande fungera:
teamArray = Array("Lag 1", "Lag 2", ..., "Lag 16")
FOR i = 0 TO Ubound(teamArray)
FOR j = i + 1 TO Ubound(teamArray)
Response.Write teamArray(i) & "–" & teamArray(j) & "<br>"
NEXT
NEXT
Jag är inte säker på om det fungerar att göra som ovan, men tanken är att du i den yttre loopen tar fram lagen ett och ett och sedan låter Lag 1 möta Lag 2 – Lag 16, Lag 2 möta Lag 3 – Lag 16 etc. På så sätt får alla möta alla.
