Dim couples_link(134), couples_text(134), maandtcouples(12)
	
maandtcouples(1)= "Jan"
maandtcouples(2)= "Feb"
maandtcouples(3)= "Mar"
maandtcouples(4)= "Apr"
maandtcouples(5)= "May"
maandtcouples(6)= "Jun"
maandtcouples(7)= "Jul"
maandtcouples(8)= "Aug"
maandtcouples(9)= "Sep"
maandtcouples(10)= "Oct"
maandtcouples(11)= "Nov"
maandtcouples(12)= "Dec"

	
	couples_text(1) = "Rachel & Bill"
	couples_text(2) = "Raeleen & Billy-Joe"
	couples_text(3) = "Raelene & Bing"
	couples_text(4) = "Raetha & Binkley"
	couples_text(5) = "Raewyn & Bion"
	couples_text(6) = "Rain & Bipin"
	couples_text(7) = "Raina & Birsha"
	couples_text(8) = "Rainbow & Blade"
	couples_text(9) = "Ramya & Blain"
	couples_text(10) = "Randy & Blair"
	couples_text(11) = "Ranella & Blaise"
	couples_text(12) = "Raquel & Blake"
	couples_text(13) = "Raquelnie & Blakeman"
	couples_text(14) = "Ratna & Blayne"
	couples_text(15) = "Raven & Bo"
	couples_text(16) = "Raylene & Bob"
	couples_text(17) = "Raymone & Bobby"
	couples_text(18) = "Raynee & Bobby-Joe"
	couples_text(19) = "Reaann & Davin"
	couples_text(20) = "Reagan & Davis"
	couples_text(21) = "Reba & Daylon"
	couples_text(22) = "Rebecca & DeForest"
	couples_text(23) = "Rebekah & Dean"
	couples_text(24) = "Reese & Declon"
	couples_text(25) = "Regartah & Dedan"
	couples_text(26) = "Regina & Deems"
	couples_text(27) = "Regula & Deepek"
	couples_text(28) = "Reina & Deke"
	couples_text(29) = "Reinko & Del"
	couples_text(30) = "Rejian & Delancy"
	couples_text(31) = "Rena & Delbert"
	couples_text(32) = "Renata & Dellas"
	couples_text(33) = "Renate & Delmar"
	couples_text(34) = "Renee & Delmont"
	couples_text(35) = "Renetta & Delphis"
	couples_text(36) = "Reppa & Delwin"
	couples_text(37) = "Resa & Demetrios"
	couples_text(38) = "Retha & Demicio"
	couples_text(39) = "Retie & Demo"
	couples_text(40) = "Retta & Deni"
	couples_text(41) = "Reumah & Dennis"
	couples_text(42) = "Reva & Forrest"
	couples_text(43) = "Rhea & Forrester"
	couples_text(44) = "Rhoda & Foster"
	couples_text(45) = "Rhonda & Fouad"
	couples_text(46) = "Ricarda & Fox"
	couples_text(47) = "Richelle & Francis"
	couples_text(48) = "Rilla & Franciso"
	couples_text(49) = "Rilma & Franco"
	couples_text(50) = "Risa & Frank"
	couples_text(51) = "Rissa & Geoff"
	couples_text(52) = "Rita & Geoffrey"
	couples_text(53) = "Rita-Mae & Georg"
	couples_text(54) = "Ro & George"
	couples_text(55) = "Roberta & Georginay"
	couples_text(56) = "Robyn & Gerald"
	couples_text(57) = "Rochelle & Geraldo"
	couples_text(58) = "Rogean & Leo"
	couples_text(59) = "Roisin & Leon"
	couples_text(60) = "Rolla & Leone"
	couples_text(61) = "Rolly & Leonard"
	couples_text(62) = "Roma & Leonardo"
	couples_text(63) = "Romaine & Percy"
	couples_text(64) = "Romola & Perry"
	couples_text(65) = "Romona & Perryn"
	couples_text(66) = "Rondi & Persias"
	couples_text(67) = "Roni & Persis"
	couples_text(68) = "Ronilee & Pete"
	couples_text(69) = "Ronna & Peter"
	couples_text(70) = "Rory & Petrus"
	couples_text(71) = "Rosa & Petry"
	couples_text(72) = "Rosalba & Phelps"
	couples_text(73) = "Rosalie & Phicol"
	couples_text(74) = "Rosalind & Phildah"
	couples_text(75) = "Rosalinda & Philipe"
	couples_text(76) = "Saylee & Phillip"
	couples_text(77) = "Scarlett & Philmore"
	couples_text(78) = "Scotia & Philo"
	couples_text(79) = "Sebell & Phineas"
	couples_text(80) = "Sebra & Preston"
	couples_text(81) = "Seda & Reg"
	couples_text(82) = "Selma & Reggie"
	couples_text(83) = "Seneca & Reginald"
	couples_text(84) = "September & Regis"
	couples_text(85) = "Serena & Reid"
	couples_text(86) = "Serin & Reider"
	couples_text(87) = "Serina & Reiner"
	couples_text(88) = "Seven & Remington"
	couples_text(89) = "Shaka & Remo"
	couples_text(90) = "Shalom & Rendal"
	couples_text(91) = "Shana & Zubin"
	couples_text(92) = "Shandra & Vince"
	couples_text(93) = "Shane & Vincent"
	couples_text(94) = "Shaneen & Wayne"
	couples_text(95) = "Shanesia & Willard"
	couples_text(96) = "Shanna & William"
	couples_text(97) = "Shannon & Javan"
	couples_text(98) = "Tarsha & Javier"
	couples_text(99) = "Tatyana & Jay"
	couples_text(100) = "Tavia & Jaymond"
	couples_text(101) = "Tawna & Jax"
	couples_text(102) = "Tawny & Jean-Luc"
	couples_text(103) = "Taylor & Jeb"
	couples_text(104) = "Tea & Jed"
	couples_text(105) = "Teagan & Jeep"
	couples_text(106) = "Teddy & Jeff"
	couples_text(107) = "Teffany & Jefferson"
	couples_text(108) = "Tena & Jeffrey"
	couples_text(109) = "Tenley & Harold"
	couples_text(110) = "Tenney & Harrington"
	couples_text(111) = "Teresa & Harris"
	couples_text(112) = "Terrilyn & Harrison"
	couples_text(113) = "Terry & Harry"
	couples_text(114) = "Terryjo & Hartwell"
	couples_text(115) = "Tess & Harvel"
	couples_text(116) = "Dante & Harvest"
	couples_text(117) = "Daphne & Arley"
	couples_text(118) = "Dara & Arlington"
	couples_text(119) = "Darby & Sheridan"
	couples_text(120) = "Darcy & Sherman"
	couples_text(121) = "Daria & Sherwood"
	couples_text(122) = "Darla & Shinab"
	couples_text(123) = "Darleena & Shon"
	couples_text(124) = "Darlene & Shuah"
	couples_text(125) = "Darnelle & Shulin"
	couples_text(126) = "Darquise & Shumway"
	couples_text(127) = "Darri & Sid"
	couples_text(128) = "Darya & Sidney"
	couples_text(129) = "Daryl & Sigmund"
	couples_text(130) = "Davette & Silas"
	couples_text(131) = "Davida & Silva"
	couples_text(132) = "Dawn & Stanton"
	couples_text(133) = "Dawn-Marie & Stanwood"
	couples_text(134) = "Dawnee & Arthur"
	
	couples_link(1) = "http://www.europlaza.nl/0047/hetro/cjtm-100"
	couples_link(2) = "http://www.europlaza.nl/0047/hetro/cjtm-101"
	couples_link(3) = "http://www.europlaza.nl/0047/hetro/cjtm-102"
	couples_link(4) = "http://www.europlaza.nl/0047/hetro/cjtm-103"
	couples_link(5) = "http://www.europlaza.nl/0047/hetro/cjtm-104"
	couples_link(6) = "http://www.europlaza.nl/0047/hetro/cjtm-105"
	couples_link(7) = "http://www.europlaza.nl/0047/hetro/cjtm-106"
	couples_link(8) = "http://www.europlaza.nl/0047/hetro/cjtm-107"
	couples_link(9) = "http://www.europlaza.nl/0047/hetro/cjtm-108"
	couples_link(10) = "http://www.europlaza.nl/0047/hetro/cjtm-109"
	couples_link(11) = "http://www.europlaza.nl/0047/hetro/cjtm-110"
	couples_link(12) = "http://www.europlaza.nl/0047/hetro/cjtm-111"
	couples_link(13) = "http://www.europlaza.nl/0047/hetro/cjtm-112"
	couples_link(14) = "http://www.europlaza.nl/0047/hetro/cjtm-113"
	couples_link(15) = "http://www.europlaza.nl/0047/hetro/cjtm-76"
	couples_link(16) = "http://www.europlaza.nl/0047/hetro/cjtm-77"
	couples_link(17) = "http://www.europlaza.nl/0047/hetro/cjtm-78"
	couples_link(18) = "http://www.europlaza.nl/0047/hetro/cjtm-79"
	couples_link(19) = "http://www.europlaza.nl/0047/hetro/cjtm-80"
	couples_link(20) = "http://www.europlaza.nl/0047/hetro/cjtm-81"
	couples_link(21) = "http://www.europlaza.nl/0047/hetro/cjtm-82"
	couples_link(22) = "http://www.europlaza.nl/0047/hetro/cjtm-83"
	couples_link(23) = "http://www.europlaza.nl/0047/hetro/cjtm-84"
	couples_link(24) = "http://www.europlaza.nl/0047/hetro/cjtm-85"
	couples_link(25) = "http://www.europlaza.nl/0047/hetro/cjtm-86"
	couples_link(26) = "http://www.europlaza.nl/0047/hetro/cjtm-87"
	couples_link(27) = "http://www.europlaza.nl/0047/hetro/cjtm-88"
	couples_link(28) = "http://www.europlaza.nl/0047/hetro/cjtm-89"
	couples_link(29) = "http://www.europlaza.nl/0047/hetro/cjtm-90"
	couples_link(30) = "http://www.europlaza.nl/0047/hetro/cjtm-91"
	couples_link(31) = "http://www.europlaza.nl/0047/hetro/cjtm-92"
	couples_link(32) = "http://www.europlaza.nl/0047/hetro/cjtm-93"
	couples_link(33) = "http://www.europlaza.nl/0047/hetro/cjtm-94"
	couples_link(34) = "http://www.europlaza.nl/0047/hetro/cjtm-95"
	couples_link(35) = "http://www.europlaza.nl/0047/hetro/cjtm-96"
	couples_link(36) = "http://www.europlaza.nl/0047/hetro/cjtm-97"
	couples_link(37) = "http://www.europlaza.nl/0047/hetro/cjtm-98"
	couples_link(38) = "http://www.europlaza.nl/0047/hetro/cjtm-99"
	couples_link(39) = "http://www.europlaza.nl/0049/cjtm-226"
	couples_link(40) = "http://www.europlaza.nl/0049/cjtm-227"
	couples_link(41) = "http://www.europlaza.nl/0049/cjtm-228"
	couples_link(42) = "http://www.europlaza.nl/0049/cjtm-229"
	couples_link(43) = "http://www.europlaza.nl/0049/cjtm-230"
	couples_link(44) = "http://www.europlaza.nl/0049/cjtm-231"
	couples_link(45) = "http://www.europlaza.nl/0049/cjtm-232"
	couples_link(46) = "http://www.europlaza.nl/0049/cjtm-233"
	couples_link(47) = "http://www.europlaza.nl/0049/cjtm-234"
	couples_link(48) = "http://www.europlaza.nl/0049/cjtm-235"
	couples_link(49) = "http://www.europlaza.nl/0049/cjtm-236"
	couples_link(50) = "http://www.europlaza.nl/0049/cjtm-237"
	couples_link(51) = "http://www.europlaza.nl/0049/cjtm-238"
	couples_link(52) = "http://www.europlaza.nl/0049/cjtm-239"
	couples_link(53) = "http://www.europlaza.nl/0049/cjtm-240"
	couples_link(54) = "http://www.europlaza.nl/0049/cjtm-241"
	couples_link(55) = "http://www.europlaza.nl/0049/cjtm-242"
	couples_link(56) = "http://www.europlaza.nl/0049/cjtm-243"
	couples_link(57) = "http://www.europlaza.nl/0049/cjtm-244"
	couples_link(58) = "http://www.europlaza.nl/0049/cjtm-245"
	couples_link(59) = "http://www.europlaza.nl/0049/cjtm-246"
	couples_link(60) = "http://www.europlaza.nl/0049/cjtm-247"
	couples_link(61) = "http://www.europlaza.nl/0049/cjtm-248"
	couples_link(62) = "http://www.europlaza.nl/0049/cjtm-249"
	couples_link(63) = "http://www.europlaza.nl/0049/cjtm-250"
	couples_link(64) = "http://www.europlaza.nl/hetro/0032/291"
	couples_link(65) = "http://www.europlaza.nl/hetro/0032/29156"
	couples_link(66) = "http://www.europlaza.nl/hetro/0032/29159"
	couples_link(67) = "http://www.europlaza.nl/hetro/0032/29163"
	couples_link(68) = "http://www.europlaza.nl/hetro/0032/29165"
	couples_link(69) = "http://www.europlaza.nl/hetro/0032/29169"
	couples_link(70) = "http://www.europlaza.nl/hetro/0032/29171"
	couples_link(71) = "http://www.europlaza.nl/hetro/0032/29172"
	couples_link(72) = "http://www.europlaza.nl/hetro/0032/29176"
	couples_link(73) = "http://www.europlaza.nl/hetro/0032/29179"
	couples_link(74) = "http://www.europlaza.nl/hetro/0032/29182"
	couples_link(75) = "http://www.europlaza.nl/hetro/0032/29185"
	couples_link(76) = "http://www.europlaza.nl/hetro/0032/29187"
	couples_link(77) = "http://www.europlaza.nl/hetro/0032/29189"
	couples_link(78) = "http://www.europlaza.nl/hetro/0032/29192"
	couples_link(79) = "http://www.europlaza.nl/hetro/0032/29196"
	couples_link(80) = "http://www.europlaza.nl/hetro/0032/29200"
	couples_link(81) = "http://www.europlaza.nl/hetro/0032/29210"
	couples_link(82) = "http://www.europlaza.nl/hetro/0032/29214"
	couples_link(83) = "http://www.europlaza.nl/hetro/0032/29215"
	couples_link(84) = "http://www.europlaza.nl/hetro/0032/29218"
	couples_link(85) = "http://www.europlaza.nl/hetro/0032/29220"
	couples_link(86) = "http://www.europlaza.nl/hetro/0032/29226"
	couples_link(87) = "http://www.europlaza.nl/hetro/0032/29227"
	couples_link(88) = "http://www.europlaza.nl/hetro/0032/29229"
	couples_link(89) = "http://www.europlaza.nl/hetro/0032/29233"
	couples_link(90) = "http://www.europlaza.nl/hetro/0032/29236"
	couples_link(91) = "http://www.europlaza.nl/hetro/0032/29239"
	couples_link(92) = "http://www.europlaza.nl/hetro/0032/29244"
	couples_link(93) = "http://www.europlaza.nl/hetro/0032/29249"
	couples_link(94) = "http://www.europlaza.nl/hetro/0032/29250"
	couples_link(95) = "http://www.europlaza.nl/hetro/0032/29251"
	couples_link(96) = "http://www.europlaza.nl/hetro/0032/29255"
	couples_link(97) = "http://www.europlaza.nl/hetro/0032/29259"
	couples_link(98) = "http://www.europlaza.nl/hetro/0032/29261"
	couples_link(99) = "http://www.europlaza.nl/hetro/0032/29265"
	couples_link(100) = "http://www.europlaza.nl/hetro/0032/29266"
	couples_link(101) = "http://www.europlaza.nl/hetro/0032/29269"
	couples_link(102) = "http://www.europlaza.nl/hetro/0032/29272"
	couples_link(103) = "http://www.europlaza.nl/hetro/0032/29274"
	couples_link(104) = "http://www.europlaza.nl/hetro/0032/29277"
	couples_link(105) = "http://www.europlaza.nl/hetro/0032/29279"
	couples_link(106) = "http://www.europlaza.nl/hetro/0032/29283"
	couples_link(107) = "http://www.europlaza.nl/hetro/0032/29288"
	couples_link(108) = "http://www.europlaza.nl/hetro/0032/29292"
	couples_link(109) = "http://www.europlaza.nl/hetro/0032/29293"
	couples_link(110) = "http://www.europlaza.nl/hetro/0032/29299"
	couples_link(111) = "http://www.europlaza.nl/hetro/0032/29302"
	couples_link(112) = "http://www.europlaza.nl/hetro/0032/29305"
	couples_link(113) = "http://www.europlaza.nl/hetro/0032/29309"
	couples_link(114) = "http://www.europlaza.nl/hetro/0032/29312"
	couples_link(115) = "http://www.europlaza.nl/hetro/0032/29315"
	couples_link(116) = "http://www.europlaza.nl/hetro/0032/29319"
	couples_link(117) = "http://www.europlaza.nl/hetro/0032/29322"
	couples_link(118) = "http://www.europlaza.nl/hetro/0032/29326"
	couples_link(119) = "http://www.europlaza.nl/hetro/0032/29330"
	couples_link(120) = "http://www.europlaza.nl/hetro/0032/29336"
	couples_link(121) = "http://www.europlaza.nl/hetro/0032/29340"
	couples_link(122) = "http://www.europlaza.nl/hetro/0032/29350"
	couples_link(123) = "http://www.europlaza.nl/hetro/0032/29360"
	couples_link(124) = "http://www.europlaza.nl/hetro/0032/29362"
	couples_link(125) = "http://www.europlaza.nl/hetro/0032/29366"
	couples_link(126) = "http://www.europlaza.nl/hetro/0032/29369"
	couples_link(127) = "http://www.europlaza.nl/hetro/0032/29375"
	couples_link(128) = "http://www.europlaza.nl/hetro/0032/29377"
	couples_link(129) = "http://www.europlaza.nl/hetro/0032/29380"
	couples_link(130) = "http://www.europlaza.nl/hetro/0032/29388"
	couples_link(131) = "http://www.europlaza.nl/hetro/0032/29389"
	couples_link(132) = "http://www.europlaza.nl/hetro/0032/29390"
	couples_link(133) = "http://www.europlaza.nl/hetro/0032/29395"
	couples_link(134) = "http://www.europlaza.nl/hetro/0032/29398"

	
		Function givemecouples(nr, col, terug)
		Rnd(-1)
		Randomize DatePart("D",Date()) - terug 
		maandagaincouples = DatePart("M",Date()) 
		dezemaandcouplescouples = DatePart("D",Date()) - terug &""& maandtcouples(maandagaincouples)
			If terug = 0 Then 
			dezemaandcouplescouples = "Today"
			End If 	
				If DatePart("D",Date()) <= terug Then
				dezemaandcouplescouples = 30 - terug&""& maandtcouples(maandagaincouples -1) 
				End If
					If terug = 99 Then
					dezemaandcouplescouples = ""
				 	End If
				returnStr = ""
		If (nr*col) <= (UBound(couples_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(couples_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='"& couples_link(huidig_nummer_msm) & "' target='_blank'>"& couples_text(huidig_nummer_msm) & "<td><div class='datum'>"&dezemaandcouplescouples&"</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(couples_link) & "couples_links beschikbaar!"
		End If
		
		Document.Write(returnStr)
	End Function