douglas2

Dim Attendee(5)
Attendee(1)="Mr. Douglas Ansel"
Attendee(2)="Ms. Dorris Baggett"
Attendee(3)="Dr. Patricia Dill"
Attendee(4)="Ms. Heather Hanna"
Attendee(5)="Dr. Linda Southward"

Dim NumMeetings
NumMeetings=CInt(Request.Form("NumMeetings"))

Dim ActArr(), AttArr()
ReDim ActArr(NumMeetings), AttArr(NumMeetings)

'Code for each meeting
For a = 1 to NumMeetings
	ActArr(a)=Split(CStr(Request.Form("Meeting" & CStr(a) & "_Activity")),", ")
	AttArr(a)=Split(CStr(Request.Form("Meeting" & CStr(a) & "_Attendee")),", ")
	Response.Write("<b>Meeting " & CStr(a) & ":</b><br>" & Chr(10) &_
			"Meeting Date: " & Request.Form("Month" & CStr(a)) & " " & Request.Form("Date" & CStr(a)) & ", " & Request.Form("Year") & "<br>" & Chr(10) &_
			"Meeting Type: " & Request.Form("Type" & CStr(a)) & "<br>" & Chr(10) &_
			"Meeting Attendees: " & Chr(10))
	'Write Attendees for each meeting
	For b = 0 to UBound(AttArr)
		If b <> Ubound(AttArr) Then
			Response.Write(Attendee(AttArr(a)(b)) & ", ")
		Else
			Response.Write(Attendee(AttArr(a)(b)))
		End If
	Next