<%
Class TVProgramma
		Public starttijd
		Private interne_datum
		Public Property Get datum
			datum = Day(interne_datum) & " " _
				& MonthName(Month(interne_datum)) & _
				" " & Year(interne_datum)
		End Property

		Public Property Let datum(ByVal InDatum)
			interne_datum = CDate(InDatum)
		End Property

		Public titel
End Class

	Dim objProg
	Set objProg = New TVProgramma

	objProg.starttijd = CDate("20:30")
	objProg.datum = DateSerial(2004,1,5)
	objProg.titel = "Flikken"

	Response.Write objProg.titel & " speelt om " & _
		 objProg.starttijd & " op " & objProg.datum
%>