Dim black_link(44), black_text(44), maandtblack(12)   
    maandtblack(1)= "Jan"
    maandtblack(2)= "Feb"
    maandtblack(3)= "Mar"
    maandtblack(4)= "Apr"
    maandtblack(5)= "May"
    maandtblack(6)= "Jun"
    maandtblack(7)= "Jul"
    maandtblack(8)= "Aug"
    maandtblack(9)= "Sep"
    maandtblack(10)= "Oct"
    maandtblack(11)= "Nov"
    maandtblack(12)= "Dec"


	black_text(1) = "Brette"
	black_text(2) = "Brianna"
	black_text(3) = "Bridget"
	black_text(4) = "Bridie"
	black_text(5) = "Brigitte"
	black_text(6) = "Britt"
	black_text(7) = "Britta"
	black_text(8) = "Brittany"
	black_text(9) = "Brooke"
	black_text(10) = "Brooklyn"
	black_text(11) = "Brooks"
	black_text(12) = "Brownyn"
	black_text(13) = "Nancy-Gail"
	black_text(14) = "Nancy-Lane"
	black_text(15) = "Nanette"
	black_text(16) = "Naomi"
	black_text(17) = "Narenda"
	black_text(18) = "Narice"
	black_text(19) = "Narlene"
	black_text(20) = "Natale"
	black_text(21) = "Natalia"
	black_text(22) = "Natalie"
	black_text(23) = "Raqueline"
	black_text(24) = "Ratna"
	black_text(25) = "Raven"
	black_text(26) = "Raylene"
	black_text(27) = "Raymone"
	black_text(28) = "Raynee"
	black_text(29) = "Reaann"
	black_text(30) = "Reagan"
	black_text(31) = "Reba"
	black_text(32) = "Rebecca"
	black_text(33) = "Rebekah"
	black_text(34) = "Reese"
	black_text(35) = "Regartha"
	black_text(36) = "Vonda"
	black_text(37) = "Vonne"
	black_text(38) = "Vonni"
	black_text(39) = "Helena"
	black_text(40) = "Helga"
	black_text(41) = "Helka"
	black_text(42) = "Heloise"
	black_text(43) = "Henna"
	black_text(44) = "Henrietta"
                
	                                       
	black_link(1) = "http://www.livesex.nl/blacks/01/34/10-cjtm-1" 
	black_link(2) = "http://www.livesex.nl/blacks/01/34/11-cjtm-1" 
	black_link(3) = "http://www.livesex.nl/blacks/01/34/12-cjtm-1" 
	black_link(4) = "http://www.livesex.nl/blacks/01/34/12-cjtm-2" 
	black_link(5) = "http://www.livesex.nl/blacks/01/34/12-cjtm-3" 
	black_link(6) = "http://www.livesex.nl/blacks/01/34/12-cjtm-4" 
	black_link(7) = "http://www.livesex.nl/blacks/01/34/12-cjtm-5" 
	black_link(8) = "http://www.livesex.nl/blacks/01/34/12-cjtm-6" 
	black_link(9) = "http://www.livesex.nl/blacks/01/34/12-cjtm-7" 
	black_link(10) = "http://www.livesex.nl/blacks/01/34/12-cjtm-8"
	black_link(11) = "http://www.livesex.nl/blacks/01/34/12-cjtm-9"
	black_link(12) = "http://www.livesex.nl/blacks/01/34/15-cjtm-1"
	black_link(13) = "http://www.livesex.nl/blacks/01/34/15-cjtm-2"
	black_link(14) = "http://www.livesex.nl/blacks/01/34/16-cjtm-1"
	black_link(15) = "http://www.livesex.nl/blacks/01/34/16-cjtm-2"
	black_link(16) = "http://www.livesex.nl/blacks/01/34/16-cjtm-3"
	black_link(17) = "http://www.livesex.nl/blacks/01/34/17-cjtm-1"
	black_link(18) = "http://www.livesex.nl/blacks/01/34/20-cjtm-1"
	black_link(19) = "http://www.livesex.nl/blacks/01/34/4-cjtm-1" 
	black_link(20) = "http://www.livesex.nl/blacks/01/34/6-cjtm-1" 
	black_link(21) = "http://www.livesex.nl/blacks/01/34/6-cjtm-2" 
	black_link(22) = "http://www.livesex.nl/blacks/01/34/6-cjtm-3" 
	black_link(23) = "http://www.livesex.nl/blacks/01/34/6-cjtm-4" 
	black_link(24) = "http://www.livesex.nl/blacks/01/34/8-cjtm-1" 
	black_link(25) = "http://www.livesex.nl/blacks/01/34/9-cjtm-1" 
	black_link(26) = "http://www.livesex.nl/blacks/01/45/10-cjtm-1"
	black_link(27) = "http://www.livesex.nl/blacks/01/45/10-cjtm-2"
	black_link(28) = "http://www.livesex.nl/blacks/01/45/10-cjtm-3"
	black_link(29) = "http://www.livesex.nl/blacks/01/45/10-cjtm-4"
	black_link(30) = "http://www.livesex.nl/blacks/01/45/10-cjtm-5"
	black_link(31) = "http://www.livesex.nl/blacks/01/45/12-cjtm-1"
	black_link(32) = "http://www.livesex.nl/blacks/01/45/12-cjtm-2"
	black_link(33) = "http://www.livesex.nl/blacks/01/45/12-cjtm-3"
	black_link(34) = "http://www.livesex.nl/blacks/01/45/16-cjtm-2"
	black_link(35) = "http://www.livesex.nl/blacks/01/45/16-cjtm-3"
	black_link(36) = "http://www.livesex.nl/blacks/01/45/18-cjtm-1"
	black_link(37) = "http://www.livesex.nl/blacks/01/45/18-cjtm-2"
	black_link(38) = "http://www.livesex.nl/blacks/01/45/18-cjtm-3"
	black_link(39) = "http://www.livesex.nl/blacks/01/45/20-cjtm-1"
	black_link(40) = "http://www.livesex.nl/blacks/01/45/22-cjtm-1"
	black_link(41) = "http://www.livesex.nl/blacks/01/45/24-cjtm-1"
	black_link(42) = "http://www.livesex.nl/blacks/01/45/24-cjtm-2"
	black_link(43) = "http://www.livesex.nl/blacks/01/45/24-cjtm-3"
	black_link(44) = "http://www.livesex.nl/blacks/01/45/24-cjtm-4"
	
	
	
	Function givemeblack(nr, col, terug)
		Rnd(-1)
		Randomize DatePart("D",Date()) - terug 
		maandagainblack = DatePart("M",Date()) 
		dezemaandblack = DatePart("D",Date()) - terug &" "& maandtblack(maandagainblack)
        If terug = 0 Then 
        	dezemaandblack = "Today"
        End If 	
		If DatePart("D",Date()) <= terug Then
        dezemaandblack = 30 - terug  &"  "& maandtblack(maandagainblack -1) 
        End If
			If terug = 99 Then
				dezemaandblack = ""
		 	End If
				
				returnStr = ""
		If (nr*col) <= (UBound(black_link)-1) Then
			returnStr = returnStr & "<table width='100%' cellspacing='3'>"
			For i = 1 To nr
				returnStr = returnStr & "<tr>"
				For j = 1 To col
					huidig_nummer_msm = Round(Rnd*(UBound(black_link)-1))
					If Instr(used_numbers_msm,"|"&huidig_nummer_msm&"|") = 0 Then
						used_numbers_msm = used_numbers_msm & "|"&huidig_nummer_msm&"|"
						returnStr = returnStr & "<td align='center' class='linklist'><a href='" & black_link(huidig_nummer_msm) & "' target='_blank'>" & black_text(huidig_nummer_msm) & "<td><div class='datum'>"&dezemaandblack&"</div></a></td></td>"
					Else
						j = j - 1
					End If
				Next
				returnStr = returnStr & "</tr>"
			Next
			returnStr = returnStr & "</table>"
		Else
			returnStr = returnStr & "Er zijn max. " & UBound(black_link) & " black_links beschikbaar!"
		End If
		
		Document.Write(returnStr)
	End Function