<%@ LANGUAGE="VBSCRIPT" %>

<% Option Explicit

Dim strSQL, rsDVDall, myarray, conDVD, my_dvds, j, strGo %>

<!-- #include file="includeCon.asp" -->

<% 'strSQL = "SELECT dvdid FROM tbl_dvd"
	
	' zorg ervoor dat wanneer een dvd is uitgeleend hij niet wordt meegenomen
	' met de array
	strSQL = "SELECT dvdid FROM tbl_dvd WHERE lonername = 'nietuitgeleend' "
	
	
	
	Set rsDVDall = conDVD.Execute(strSQL)
	strSQL = ""

' eerst een array maken
' getrows = maakt van de RecordSet een 2 dimensionale array
myarray = rsDVDall.getrows

my_dvds = myarray

' Randomize = pakt er eentje uit
Randomize

' ubound = berekent aantal elementen in de array 
' , 2 = deze of die ( x of y as)
' Rnd = de random
j = ubound(my_dvds, 2) * Rnd

	strGo = "details.asp?dvdid=" & my_dvds(0,j) & "&what=" & Request("what")
	Response.redirect strGo

' connectie afsluiten
rsDVDall.Close
Set rsDVDall = Nothing

conDVD.Close
Set	conDVD = Nothing %>