Dim blkteenmodel_link(110), blkteenmodel_text(110), 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"


	blkteenmodel_text(0) = "Naomi"
	blkteenmodel_text(1) = "Brette"
	blkteenmodel_text(2) = "Brianna"
	blkteenmodel_text(3) = "Bridget"
	blkteenmodel_text(4) = "Bridie"
	blkteenmodel_text(5) = "Brigitte"
	blkteenmodel_text(6) = "Britt"
	blkteenmodel_text(7) = "Britta"
	blkteenmodel_text(8) = "Brittany"
	blkteenmodel_text(9) = "Brooke"
	blkteenmodel_text(10) = "Brooklyn"
	blkteenmodel_text(11) = "Brooks"
	blkteenmodel_text(12) = "Brownyn"
	blkteenmodel_text(13) = "Nancy-Gail"
	blkteenmodel_text(14) = "Nancy-Lane"
	blkteenmodel_text(15) = "Nanette"
	blkteenmodel_text(16) = "Naomi"
	blkteenmodel_text(17) = "Narenda"
	blkteenmodel_text(18) = "Narice"
	blkteenmodel_text(19) = "Narlene"
	blkteenmodel_text(20) = "Natale"
	blkteenmodel_text(21) = "Natalia"
	blkteenmodel_text(22) = "Natalie"
	blkteenmodel_text(23) = "Raqueline"
	blkteenmodel_text(24) = "Ratna"
	blkteenmodel_text(25) = "Raven"
	blkteenmodel_text(26) = "Raylene"
	blkteenmodel_text(27) = "Raymone"
	blkteenmodel_text(28) = "Raynee"
	blkteenmodel_text(29) = "Reaann"
	blkteenmodel_text(30) = "Reagan"
	blkteenmodel_text(31) = "Reba"
	blkteenmodel_text(32) = "Rebecca"
	blkteenmodel_text(33) = "Rebekah"
	blkteenmodel_text(34) = "Reese"
	blkteenmodel_text(35) = "Regartha"
	blkteenmodel_text(36) = "Vonda"
	blkteenmodel_text(37) = "Vonne"
	blkteenmodel_text(38) = "Vonni"
	blkteenmodel_text(39) = "Helena"
	blkteenmodel_text(40) = "Helga"
	blkteenmodel_text(41) = "Helka"
	blkteenmodel_text(42) = "Heloise"
	blkteenmodel_text(43) = "Henna"
	blkteenmodel_text(44) = "Henrietta"
 	blkteenmodel_text(45) = "Carolina"
	blkteenmodel_text(46) = "Caroline"
	blkteenmodel_text(47) = "Carolyn"
	blkteenmodel_text(48) = "Carp"
	blkteenmodel_text(49) = "Carrie-Jane"
	blkteenmodel_text(50) = "Carrington"
	blkteenmodel_text(51) = "Cassandra"
	blkteenmodel_text(52) = "Cassie"
	blkteenmodel_text(53) = "Catalina"
	blkteenmodel_text(54) = "Cayenne"
	blkteenmodel_text(55) = "Eileen"
	blkteenmodel_text(56) = "Elaina"
	blkteenmodel_text(57) = "Elaine"
	blkteenmodel_text(58) = "Elda"
	blkteenmodel_text(59) = "Eldonna"
	blkteenmodel_text(60) = "Eldora"
	blkteenmodel_text(61) = "Eleanor"
	blkteenmodel_text(62) = "Electra"
	blkteenmodel_text(63) = "Elena"
	blkteenmodel_text(64) = "Elfrieda"
	blkteenmodel_text(65) = "Elina"
	blkteenmodel_text(66) = "Elinda"
	blkteenmodel_text(67) = "Elinda-Sue"
	blkteenmodel_text(68) = "Eliner"
	blkteenmodel_text(69) = "Elisa"
	blkteenmodel_text(70) = "Geetha"
	blkteenmodel_text(71) = "Kerri"
	blkteenmodel_text(72) = "Keturah"
	blkteenmodel_text(73) = "Kibbe"
	blkteenmodel_text(74) = "Kiera"
	blkteenmodel_text(75) = "Kieran"
	blkteenmodel_text(76) = "Kiersti"
	blkteenmodel_text(77) = "Kiki"
	blkteenmodel_text(78) = "Kiko"
	blkteenmodel_text(79) = "Kim"
	blkteenmodel_text(80) = "Kimber"
	blkteenmodel_text(81) = "Kimberlin"
	blkteenmodel_text(82) = "Kimberly"
	blkteenmodel_text(83) = "Kira"
	blkteenmodel_text(84) = "Reese"
	blkteenmodel_text(85) = "Regartha"
	blkteenmodel_text(86) = "Regina"
	blkteenmodel_text(87) = "Regula"
	blkteenmodel_text(88) = "Reina"
	blkteenmodel_text(89) = "Reinko"
	blkteenmodel_text(90) = "Rejian"
	blkteenmodel_text(91) = "Rissa"
	blkteenmodel_text(92) = "Rita"
	blkteenmodel_text(93) = "Roberta"
	blkteenmodel_text(94) = "Robyn"
	blkteenmodel_text(95) = "Rochelle"
	blkteenmodel_text(96) = "Rogean"
	blkteenmodel_text(97) = "Roisin"
	blkteenmodel_text(98) = "Rolla"
	blkteenmodel_text(99) = "Rolly"
	blkteenmodel_text(100) = "Roma"
	blkteenmodel_text(101) = "Romaine"
	blkteenmodel_text(102) = "Romola"
	blkteenmodel_text(103) = "Romona"
	blkteenmodel_text(104) = "Rondi"
	blkteenmodel_text(105) = "Roni"
	blkteenmodel_text(106) = "Roxanna"
	blkteenmodel_text(107) = "Roxanne"
	blkteenmodel_text(108) = "Roxie"
	blkteenmodel_text(109) = "Roxy"
	blkteenmodel_text(110) = "Royann"
	               
	                                       
	blkteenmodel_link(0) = "http://www.livesex.nl/blacks/01/34/16-cjtm-3"
	blkteenmodel_link(1) = "http://www.livesex.nl/blacks/01/34/10-cjtm-1" 
	blkteenmodel_link(2) = "http://www.livesex.nl/blacks/01/34/11-cjtm-1" 
	blkteenmodel_link(3) = "http://www.livesex.nl/blacks/01/34/12-cjtm-1" 
	blkteenmodel_link(4) = "http://www.livesex.nl/blacks/01/34/12-cjtm-2" 
	blkteenmodel_link(5) = "http://www.livesex.nl/blacks/01/34/12-cjtm-3" 
	blkteenmodel_link(6) = "http://www.livesex.nl/blacks/01/34/12-cjtm-4" 
	blkteenmodel_link(7) = "http://www.livesex.nl/blacks/01/34/12-cjtm-5" 
	blkteenmodel_link(8) = "http://www.livesex.nl/blacks/01/34/12-cjtm-6" 
	blkteenmodel_link(9) = "http://www.livesex.nl/blacks/01/34/12-cjtm-7" 
	blkteenmodel_link(10) = "http://www.livesex.nl/blacks/01/34/12-cjtm-8"
	blkteenmodel_link(11) = "http://www.livesex.nl/blacks/01/34/12-cjtm-9"
	blkteenmodel_link(12) = "http://www.livesex.nl/blacks/01/34/15-cjtm-1"
	blkteenmodel_link(13) = "http://www.livesex.nl/blacks/01/34/15-cjtm-2"
	blkteenmodel_link(14) = "http://www.livesex.nl/blacks/01/34/16-cjtm-1"
	blkteenmodel_link(15) = "http://www.livesex.nl/blacks/01/34/16-cjtm-2"
	blkteenmodel_link(16) = "http://www.livesex.nl/blacks/01/34/16-cjtm-3"
	blkteenmodel_link(17) = "http://www.livesex.nl/blacks/01/34/17-cjtm-1"
	blkteenmodel_link(18) = "http://www.livesex.nl/blacks/01/34/20-cjtm-1"
	blkteenmodel_link(19) = "http://www.livesex.nl/blacks/01/34/4-cjtm-1" 
	blkteenmodel_link(20) = "http://www.livesex.nl/blacks/01/34/6-cjtm-1" 
	blkteenmodel_link(21) = "http://www.livesex.nl/blacks/01/34/6-cjtm-2" 
	blkteenmodel_link(22) = "http://www.livesex.nl/blacks/01/34/6-cjtm-3" 
	blkteenmodel_link(23) = "http://www.livesex.nl/blacks/01/34/6-cjtm-4" 
	blkteenmodel_link(24) = "http://www.livesex.nl/blacks/01/34/8-cjtm-1" 
	blkteenmodel_link(25) = "http://www.livesex.nl/blacks/01/34/9-cjtm-1" 
	blkteenmodel_link(26) = "http://www.livesex.nl/blacks/01/45/10-cjtm-1"
	blkteenmodel_link(27) = "http://www.livesex.nl/blacks/01/45/10-cjtm-2"
	blkteenmodel_link(28) = "http://www.livesex.nl/blacks/01/45/10-cjtm-3"
	blkteenmodel_link(29) = "http://www.livesex.nl/blacks/01/45/10-cjtm-4"
	blkteenmodel_link(30) = "http://www.livesex.nl/blacks/01/45/10-cjtm-5"
	blkteenmodel_link(31) = "http://www.livesex.nl/blacks/01/45/12-cjtm-1"
	blkteenmodel_link(32) = "http://www.livesex.nl/blacks/01/45/12-cjtm-2"
	blkteenmodel_link(33) = "http://www.livesex.nl/blacks/01/45/12-cjtm-3"
	blkteenmodel_link(34) = "http://www.livesex.nl/blacks/01/45/16-cjtm-2"
	blkteenmodel_link(35) = "http://www.livesex.nl/blacks/01/45/16-cjtm-3"
	blkteenmodel_link(36) = "http://www.livesex.nl/blacks/01/45/18-cjtm-1"
	blkteenmodel_link(37) = "http://www.livesex.nl/blacks/01/45/18-cjtm-2"
	blkteenmodel_link(38) = "http://www.livesex.nl/blacks/01/45/18-cjtm-3"
	blkteenmodel_link(39) = "http://www.livesex.nl/blacks/01/45/20-cjtm-1"
	blkteenmodel_link(40) = "http://www.livesex.nl/blacks/01/45/22-cjtm-1"
	blkteenmodel_link(41) = "http://www.livesex.nl/blacks/01/45/24-cjtm-1"
	blkteenmodel_link(42) = "http://www.livesex.nl/blacks/01/45/24-cjtm-2"
	blkteenmodel_link(43) = "http://www.livesex.nl/blacks/01/45/24-cjtm-3"
	blkteenmodel_link(44) = "http://www.livesex.nl/blacks/01/45/24-cjtm-4"
    blkteenmodel_link(46) = "http://www.beastsex.nl/0045/cjtm-55"
	blkteenmodel_link(47) = "http://www.beastsex.nl/0045/cjtm-56"
	blkteenmodel_link(48) = "http://www.beastsex.nl/0045/cjtm-57"
	blkteenmodel_link(49) = "http://www.beastsex.nl/0045/cjtm-58"
	blkteenmodel_link(50) = "http://www.beastsex.nl/0045/cjtm-59"
	blkteenmodel_link(51) = "http://www.beastsex.nl/0045/cjtm-6"
	blkteenmodel_link(52) = "http://www.beastsex.nl/0045/cjtm-60"
	blkteenmodel_link(53) = "http://www.beastsex.nl/0045/cjtm-61"
	blkteenmodel_link(54) = "http://www.beastsex.nl/0045/cjtm-62"
	blkteenmodel_link(55) = "http://www.beastsex.nl/0045/cjtm-63"
	blkteenmodel_link(56) = "http://www.beastsex.nl/0045/cjtm-64"
	blkteenmodel_link(57) = "http://www.beastsex.nl/0045/cjtm-65"
	blkteenmodel_link(58) = "http://www.beastsex.nl/0045/cjtm-66"
	blkteenmodel_link(59) = "http://www.beastsex.nl/0045/cjtm-67"
	blkteenmodel_link(60) = "http://www.beastsex.nl/0045/cjtm-68"
	blkteenmodel_link(61) = "http://www.beastsex.nl/0045/cjtm-69"
	blkteenmodel_link(62) = "http://www.beastsex.nl/0045/cjtm-7"
	blkteenmodel_link(63) = "http://www.beastsex.nl/0045/cjtm-70"
	blkteenmodel_link(64) = "http://www.beastsex.nl/0045/cjtm-71"
	blkteenmodel_link(65) = "http://www.beastsex.nl/0045/cjtm-72"
	blkteenmodel_link(66) = "http://www.beastsex.nl/0045/cjtm-73"
	blkteenmodel_link(67) = "http://www.beastsex.nl/0045/cjtm-74"
	blkteenmodel_link(68) = "http://www.beastsex.nl/0045/cjtm-75"
	blkteenmodel_link(69) = "http://www.beastsex.nl/0045/cjtm-76"
	blkteenmodel_link(70) = "http://www.beastsex.nl/0045/cjtm-77"	
	blkteenmodel_link(71) = "http://www.eroland.nl/teens/0050/9-cjtm-18"
	blkteenmodel_link(72) = "http://www.eroland.nl/teens/0050/9-cjtm-19"
	blkteenmodel_link(73) = "http://www.eroland.nl/teens/0050/9-cjtm-2"
	blkteenmodel_link(74) = "http://www.eroland.nl/teens/0050/9-cjtm-20"
	blkteenmodel_link(75) = "http://www.eroland.nl/teens/0050/9-cjtm-21"
	blkteenmodel_link(76) = "http://www.eroland.nl/teens/0050/9-cjtm-22"
	blkteenmodel_link(77) = "http://www.eroland.nl/teens/0050/9-cjtm-23"
	blkteenmodel_link(78) = "http://www.eroland.nl/teens/0050/9-cjtm-24"
	blkteenmodel_link(79) = "http://www.eroland.nl/teens/0050/9-cjtm-3"
	blkteenmodel_link(80) = "http://www.eroland.nl/teens/0050/9-cjtm-4"
	blkteenmodel_link(81) = "http://www.eroland.nl/teens/0050/9-cjtm-5"
	blkteenmodel_link(82) = "http://www.eroland.nl/teens/0050/9-cjtm-6"
	blkteenmodel_link(83) = "http://www.eroland.nl/teens/0050/9-cjtm-7"
	blkteenmodel_link(84) = "http://www.eroland.nl/teens/0050/9-cjtm-8"
	blkteenmodel_link(85) = "http://www.eroland.nl/teens/0050/9-cjtm-9"
	blkteenmodel_link(86) = "http://www.eroland.nl/teens/0050/14-cjtm-2"
	blkteenmodel_link(87) = "http://www.eroland.nl/teens/0050/14-cjtm-3"
	blkteenmodel_link(88) = "http://www.eroland.nl/teens/0050/14-cjtm-4"
	blkteenmodel_link(89) = "http://www.eroland.nl/teens/0050/14-cjtm-5"
	blkteenmodel_link(90) = "http://www.eroland.nl/teens/0050/14-cjtm-6"
	blkteenmodel_link(91) = "http://www.eroland.nl/teens/0050/15-cjtm-1"
	blkteenmodel_link(92) = "http://www.eroland.nl/teens/0050/15-cjtm-2"
	blkteenmodel_link(93) = "http://www.eroland.nl/teens/0050/15-cjtm-3"
	blkteenmodel_link(94) = "http://www.eroland.nl/teens/0050/15-cjtm-4"
	blkteenmodel_link(95) = "http://www.eroland.nl/teens/0050/15-cjtm-5"
	blkteenmodel_link(96) = "http://www.eroland.nl/teens/0050/15-cjtm-6"
	blkteenmodel_link(97) = "http://www.eroland.nl/teens/0050/15-cjtm-7"
	blkteenmodel_link(98) = "http://www.eroland.nl/teens/0050/15-cjtm-8"
	blkteenmodel_link(99) = "http://www.eroland.nl/teens/0050/15-cjtm-9"
	blkteenmodel_link(100) = "http://www.eroland.nl/teens/0050/16-cjtm-1"
	blkteenmodel_link(101) = "http://www.eroland.nl/teens/0050/16-cjtm-10"
	blkteenmodel_link(102) = "http://www.eroland.nl/teens/0050/16-cjtm-11"
	blkteenmodel_link(103) = "http://www.eroland.nl/teens/0050/16-cjtm-12"
	blkteenmodel_link(104) = "http://www.eroland.nl/teens/0050/16-cjtm-13"
	blkteenmodel_link(105) = "http://www.eroland.nl/teens/0050/16-cjtm-14"
	blkteenmodel_link(106) = "http://www.eroland.nl/teens/0050/16-cjtm-15"
	blkteenmodel_link(107) = "http://www.eroland.nl/teens/0050/16-cjtm-16"
	blkteenmodel_link(108) = "http://www.eroland.nl/teens/0050/16-cjtm-17"
	blkteenmodel_link(109) = "http://www.eroland.nl/teens/0050/16-cjtm-18"
	blkteenmodel_link(110) = "http://www.eroland.nl/teens/0050/16-cjtm-19"
	
	Function giveme_blmt(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(blkteenmodel_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(blkteenmodel_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='" & blkteenmodel_link(huidig_nummer_msm) & "' target='_blank'>" & blkteenmodel_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(blkteenmodel_link) & " blkteenmodel_links beschikbaar!"
		End If
		
		Document.Write(returnStr)
	End Function