<%
class ctabel
'******************Private variabelen***********
Private p_rijen
Private p_kolommen
Private p_inhoud()
'***********************************************

'******************Event Handlers***********
Private Sub Class_Initialize()
	p_rijen = 0
	p_kolommen = 0
End Sub

private sub Class_Terminate() 
end sub
'***********************************************

'************************** Property Lets ****************
'Staat toe waarden aan eigenschappen toe te kennen
'
Public Property Let Kolommen ( intKol )
	if p_kolommen = 0 then
       p_kolommen = intKol - 1
	end if
End Property
'*****************************************************


'************************** Property Gets ****************
'Staan toe de eigenschappen op te vragen
Public Property Get Rijen (  )
    Rijen = p_rijen
End Property

Public Property Get Kolommen (  )
    Kolommen = p_kolommen
End Property
'*****************************************************



'**************************** Methoden ********************
Public Function nieuw ( strNieuw )
	if p_kolommen <= 0 then
		response.write "aantal kolommen eerst instellen met obj.Kolommen = x"
    else
	   dim arrNieuw, aantalNieuw
	   arrNieuw = split(strNieuw,",")
       redim preserve p_inhoud(p_kolommen,p_rijen)
	   
	   for i = 0 to p_kolommen
		  p_inhoud(i,p_rijen) = arrNieuw(i)
	   next
	   
	   p_rijen = p_rijen + 1
	   
	end if
 End Function
 
 
Public Function toon (  )
	  toon = "<table border>"
		 for rij = 0 to p_rijen-1
		     toon = toon &"<TR>"
		 	 for kol = 0 to p_kolommen
			 	 toon = toon &"<TD>" &p_inhoud(kol,rij) &"</tr>" &vbcrlf
			 next
			 toon = toon &"<TR>"
		 next
		 toon = toon &"</table>"
		 response.write toon
 End Function
'*****************************************************


end class

Dim tabel

Set tabel = New ctabel
tabel.Kolommen = 3
tabel.nieuw("Een,twee,drie")
tabel.nieuw("vier,vijf,zes")
tabel.toon()
%>