' $System.Access Login
' If $ContentType
'  If $Env.IsMSIE
'   $System.ContentType application/csv
'  Else
'   $System.ContentType application/octet-stream
'  EndIf
'  $System.CSV = 1
'  $System.Year.Step = Day
'  $System.Year.SetDate = $SetDate
'  $System.Year.EndDate = $EndDate
'  Set $Calendar = $Login.Schedule.Calendar
'  Set $Calendar.Share = $Schedule.Calendar
'  $Calendar.UID = $Login.ID
'  For Each $YDate in $System.Year
'   Set $b = $Login.Schedule.Banner.$YDate
'   If $b.SetDate = $YDate
'    $sd = $b.SetDate
'    $ed = $b.EndDate
"$b.ID","$sd.Day00/$sd.Month00/$sd.Year","","$ed.Day00/$ed.Month00/$ed.Year",""\\
,"$b.Event","$b.Detail","$b.Place","$b.Other","$b.LineMemo"
'   EndIf
'   Set $s = $Calendar.$YDate
'   For Each $e in $s
"$e.ID","$YDate.Day00/$YDate.Month00/$YDate.Year"\\
'    $st = $e.SetTime
'    $et = $e.EndTime
'    If $e.SetTime and $e.EndTime
,"$st.hour:$st.Minute00:00 $st.AMPM","$YDate.Day00/$YDate.Month00/$YDate.Year","$et.hour:$et.Minute00:00 $et.AMPM"\\
'    Elif $e.SetTime
,"$st.hour:$st.Minute00:00 $st.AMPM","",""\\
'    Else
,"","",""\\
'    EndIf
,"$e.Event","$e.Detail","$e.Place","$e.Other","$e.LineMemo"
'   Next
'  Next
' EndIf