<%
	start = timer()

	Set connect = Server.CreateObject("ADODB.Connection")

	connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BollUsers.mdb")

	'## -- räknar --

	sql = "select count(*) as lag from login"
	set rs = connect.execute(sql)
		response.write "Antal lag: " & rs("lag") & " st<br><br>"
		intLag = cint(rs("lag"))
	set rs = nothing

	sql = "select count(*) as lag from login where division = '6'"
	set rs = connect.execute(sql)
		response.write "Division 6: " & rs("lag") & " lag<br>"
		intDiv6 = cint(rs("lag"))
	set rs = nothing

	sql = "select count(*) as lag from login where division = '7'"
	set rs = connect.execute(sql)
		response.write "Division 7: " & rs("lag") & " lag<br>"
		intDiv7 = cint(rs("lag"))
	set rs = nothing

	sql = "select count(*) as lag from login where division = '8'"
	set rs = connect.execute(sql)
		response.write "Division 8: " & rs("lag") & " lag<br>"
		intDiv8 = cint(rs("lag"))
	set rs = nothing


	'## -- sparar alla lag i div. 6 i en array --

	redim arrDiv6(intDiv6)

	sql = "select * from login where division = '6' order by LagID asc"
	set rs = connect.execute(sql)
	  x = 0
		do until rs.eof

			arrDiv6(x) = rs("LagID")
			x = x + 1			

		rs.movenext
		loop
	set rs = nothing



	'## -- sparar alla lag i div. 7 i en array --

	redim arrDiv7(intDiv7)

	sql = "select * from login where division = '7' order by LagID asc"
	set rs = connect.execute(sql)
	  x = 0
		do until rs.eof

			arrDiv7(x) = rs("LagID")
			x = x + 1			

		rs.movenext
		loop
	set rs = nothing



	'## -- sparar alla lag i div. 8 i en array --

	redim arrDiv8(intDiv8)

	sql = "select * from login where division = '8' order by LagID asc"
	set rs = connect.execute(sql)
	  x = 0
		do until rs.eof

			arrDiv8(x) = rs("LagID")
			x = x + 1			

		rs.movenext
		loop
	set rs = nothing





		'## -- slumpar fram lag i division 6 --
		response.write "<br><br><b>Division 6:</b><br><table border='0'>"
		
		x = 0
		do until x = int(intDiv6/2)
			x = x + 1

			randomize
			lag1_ID = INT(RND*(intDiv6))

			randomize
			lag2_ID = INT(RND*(intDiv6))	

			for i = 0 to 10000
				'## -- kollar om lagen redan är valda --
				if instr(LagValda_6, "<>"&lag1_ID&"<>") = 0 then
					lag1_draget = lag1_ID
						if len(LagValda_6) = 0 then
							LagValda_6 = "<>" & lag1_ID & "<>"
						else
							LagValda_6 = LagValda_6 & lag1_ID & "<>"
						end if
					exit for
				else
					randomize
					lag1_ID = INT(RND*(intDiv6))			
				end if
			next

			for i = 0 to 10000
				'## -- kollar om lagen redan är valda --
				if instr(LagValda_6, "<>"&lag2_ID&"<>") = 0 then
					lag2_draget = lag2_ID
						if len(LagValda_6) = 0 then
							LagValda_6 = "<>" & lag2_ID & "<>"
						else
							LagValda_6 = LagValda_6 & lag2_ID & "<>"
						end if
					exit for
				else
					randomize
					lag2_ID = INT(RND*(intDiv6))	
				end if
			next



			sql = "select LagNamn from login where LagID = '"&arrDiv6(lag1_draget)&"'"
			set rs = connect.execute(sql)
				if not rs.eof then
					response.write "<tr><td> " & rs(0) & " ("&arrDiv6(lag2_draget)&")" & "</td><td width='40' align='center'> - </td><td>" 
				end if
			set rs = nothing



			sql = "select LagNamn from login where LagID = '"&arrDiv6(lag2_draget)&"'"
			set rs = connect.execute(sql)
				if not rs.eof then
					response.write rs(0) & " ("&arrDiv6(lag2_draget)&")</td></tr>"
				end if
			set rs = nothing



		loop

	response.write "</table><br><br><br><br>"



	'## -- sparar det uteblivna laget i en variabel som sedan skrivs ut längst ner på sidan --

		if intDiv6 mod 2 = 1 then
			for i = 0 to intDiv6
				if instr(LagValda_6, "<>"&i&"<>") = 0 then
					sql = "select LagNamn from login where LagID = '"&arrDiv6(i)&"'"
					set rs = connect.execute(sql)
						if not rs.eof then
							uteblivna_6 = rs(0) & " ("&arrDiv6(i)&") - Division 6<br>"
						end if
					set rs = nothing					
				end if
			next
		end if









		'## -- slumpar fram lag i division 7 --
		response.write "<br><br><b>Division 7:</b><br><table border='0'>"
		
		x = 0
		do until x = int(intDiv7/2)
			x = x + 1

			randomize
			lag1_ID = INT(RND*(intDiv7))

			randomize
			lag2_ID = INT(RND*(intDiv7))	

			for i = 0 to 10000
				'## -- kollar om lagen redan är valda --
				if instr(LagValda_7, "<>"&lag1_ID&"<>") = 0 then
					lag1_draget = lag1_ID
						if len(LagValda_7) = 0 then
							LagValda_7 = "<>" & lag1_ID & "<>"
						else
							LagValda_7 = LagValda_7 & lag1_ID & "<>"
						end if
					exit for
				else
					randomize
					lag1_ID = INT(RND*(intDiv7))			
				end if
			next

			for i = 0 to 10000
				'## -- kollar om lagen redan är valda --
				if instr(LagValda_7, "<>"&lag2_ID&"<>") = 0 then
					lag2_draget = lag2_ID
						if len(LagValda_7) = 0 then
							LagValda_7 = "<>" & lag2_ID & "<>"
						else
							LagValda_7 = LagValda_7 & lag2_ID & "<>"
						end if
					exit for
				else
					randomize
					lag2_ID = INT(RND*(intDiv7))	
				end if
			next



			sql = "select LagNamn from login where LagID = '"&arrDiv7(lag1_draget)&"'"
			set rs = connect.execute(sql)
				if not rs.eof then
					response.write "<tr><td> " & rs(0) & " ("&arrDiv7(lag2_draget)&")" & "</td><td width='40' align='center'> - </td><td>" 
				end if
			set rs = nothing



			sql = "select LagNamn from login where LagID = '"&arrDiv7(lag2_draget)&"'"
			set rs = connect.execute(sql)
				if not rs.eof then
					response.write rs(0) & " ("&arrDiv7(lag2_draget)&")</td></tr>"
				end if
			set rs = nothing



		loop

	response.write "</table><br><br><br><br>"



	'## -- sparar det uteblivna laget i en variabel som sedan skrivs ut längst ner på sidan --

		if intDiv7 mod 2 = 1 then
			for i = 0 to intDiv7
				if instr(LagValda_7, "<>"&i&"<>") = 0 then
					sql = "select LagNamn from login where LagID = '"&arrDiv7(i)&"'"
					set rs = connect.execute(sql)
						if not rs.eof then
							uteblivna_7 = rs(0) & " ("&arrDiv7(i)&") - Division 7<br>"
						end if
					set rs = nothing					
				end if
			next
		end if










		'## -- slumpar fram lag i division 8 --
		response.write "<br><br><b>Division 8:</b><br><table border='0'>"
		
		x = 0
		do until x = int(intDiv8/2)
			x = x + 1

			randomize
			lag1_ID = INT(RND*(intDiv8))

			randomize
			lag2_ID = INT(RND*(intDiv8))	

			for i = 0 to 10000
				'## -- kollar om lagen redan är valda --
				if instr(LagValda_8, "<>"&lag1_ID&"<>") = 0 then
					lag1_draget = lag1_ID
						if len(LagValda_8) = 0 then
							LagValda_8 = "<>" & lag1_ID & "<>"
						else
							LagValda_8 = LagValda_8 & lag1_ID & "<>"
						end if
					exit for
				else
					randomize
					lag1_ID = INT(RND*(intDiv8))			
				end if
			next

			for i = 0 to 10000
				'## -- kollar om lagen redan är valda --
				if instr(LagValda_8, "<>"&lag2_ID&"<>") = 0 then
					lag2_draget = lag2_ID
						if len(LagValda_8) = 0 then
							LagValda_8 = "<>" & lag2_ID & "<>"
						else
							LagValda_8 = LagValda_8 & lag2_ID & "<>"
						end if
					exit for
				else
					randomize
					lag2_ID = INT(RND*(intDiv8))	
				end if
			next



			sql = "select LagNamn from login where LagID = '"&arrDiv8(lag1_draget)&"'"
			set rs = connect.execute(sql)
				if not rs.eof then
					response.write "<tr><td> " & rs(0) & " ("&arrDiv8(lag2_draget)&")" & "</td><td width='40' align='center'> - </td><td>" 
				end if
			set rs = nothing



			sql = "select LagNamn from login where LagID = '"&arrDiv8(lag2_draget)&"'"
			set rs = connect.execute(sql)
				if not rs.eof then
					response.write rs(0) & " ("&arrDiv8(lag2_draget)&")</td></tr>"
				end if
			set rs = nothing



		loop

	response.write "</table><br><br><br><br>"



	'## -- sparar det uteblivna laget i en variabel som sedan skrivs ut längst ner på sidan --

		if intDiv8 mod 2 = 1 then
			for i = 0 to intDiv8
				if instr(LagValda_8, "<>"&i&"<>") = 0 then
					sql = "select LagNamn from login where LagID = '"&arrDiv8(i)&"'"
					set rs = connect.execute(sql)
						if not rs.eof then
							uteblivna_8 = rs(0) & " ("&arrDiv8(i)&") - Division 8<br>"
						end if
					set rs = nothing					
				end if
			next
		end if









	'## -- skriver ut uteblivna lag --


	response.write "<b>Uteblivna:</b><br>"
	response.write uteblivna_6 
	response.write uteblivna_7 
	response.write uteblivna_8 



	connect.close
	set connect = nothing

	stopp = timer()


	response.write "<br><br><br><br><i>Sidan genererades på " & round(stopp - start,3) & " sekunder.</i>"
%>