'Nur bei Auswahl "Kundenbeschwerde" die Felder aktivieren, sonst deaktiv
if (activepage.ASFields.Item("Art der Meldung").Value = "Kundenbeschwerde" ) then
	For j=0 To activepage.ASFields.Item("PageCtrl8").CtrlPages.Count-1
		if(activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Name = "Kundenbeschwerde") then
			activepage.ASFields.Item("PageCtrl8").CtrlPages.ActivePage=j
			For i = 0 To activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Count-1
				activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Item(i).Enabled = true
			Next
		else
			For i = 0 To activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Count-1
				activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Item(i).Enabled = false
			Next
		end if
	Next
else
	For j=0 To activepage.ASFields.Item("PageCtrl8").CtrlPages.Count-1
		if (activepage.ASFields.Item("Art der Meldung").Value = activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Name) then
			activepage.ASFields.Item("PageCtrl8").CtrlPages.ActivePage=j
		end if
		if(activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Name = "Kundenbeschwerde") then
			For i = 0 To activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Count-1
				activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Item(i).Enabled = false
			Next
		else
			For i = 0 To activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Count-1
				activepage.ASFields.Item("PageCtrl8").CtrlPages.Item(j).Fields.Item(i).Enabled = true
			Next
		end if
	Next
end if
Resultcode=1
Writetofile