loop on cfile statement

I'm creating outlook appointments from existing events with a
database.  Currently I'm at record 4 and slowly making my way to
record 9000.  This is my dilema.  Does anyone have any suggestions, on
how I can make this process a lot easier and prevent me from hiring a
Temp.

:)



<cfquery datasource="BLAH" name="Events">
Select Email, Yr,Mh,Dy,Locations,EventTitle from SpecialEvents
Where Id Like 4
</cfquery>
<cfoutput query="Events">
</cfoutput>
<cffile action =  "write"
	 file="C:\events\4.ics"
	output =
"BEGIN:VCALENDAR
PRODID:-//Microsoft Cor****ation//Outlook 11.0 MIMEDIR//EN
VERSION:1.0"
>
<cfloop query="Events">
	<cffile action="append"
	 file="C:\events\4.ics"
	 output=
"
BEGIN:VEVENT
ORGANIZER:MAILTO:#EMAIL#
DTSTART:#YR##DateFormat(MH,"MM")##DateFormat(DY,"DD")#T160000Z
DTEND:#YR##DateFormat(MH,"MM")##DateFormat(DY,"DD")#T170000Z
LOCATION:#LOCATIONS#
SUMMARY:#EVENTTITLE#
END:VEVENT
"
>
</cfloop>

<cffile action="append"
	 file="C:\events\4.ics"
	 output=
"END:VCALENDAR"
>