Fetch Question

i am having an endless loop after the first record.... anything i missed?

















ALTER PROCEDURE IMPGrpEscalationX








AS





Declare @IMID int


Declare @IMID2 int


Declare @FS1 int


Declare @FS2 int





Declare crFirst cursor local for


select IMID from ImplementationGroup where IMSTatus = 'Y'


open crFirst


fetch next from crFirst


into


@IMID





begin


Declare crSecond cursor local for


select IMID from Employees_ImplementationGroup where Employees_ImplementationGroup.IMID = @IMID


open crSecond


fetch next from crSecond


into


@IMID2


set @FS2 = @@fetch_status


if not exists(select IMID from Employees_ImplementationGroup where IMID = @IMID2 and IMType = 'T')


Begin


DECLARE @MsgText varchar(700)


DECLARE @IMGRPNAME varchar(50)


Set @IMGRPNAME = (select IMGrpname from ImplementationGroup where IMID = @IMID2)


--SET @MsgText = 'This implementation group has been without a last resort implementer for the past 24 hours. Please click here to assign a last resort implementer: http://xxxx.com/admin/implementationgrp_emps.aspx?imid=' + @IMID2 + '&imgrpname=' + @IMGrpName





EXEC master.dbo.xp_sendmail


@recipients = cccc@ccc.com',


@Message = @IMGRPNAME,


@Subject = 'needs attention'





end


while @FS2 = 0


fetch next from crSecond


into


@IMID2


end


set @FS1 = @@fetch_status


while @FS1 = 0








FETCH NEXT FROM crFirst


into


@IMID








close crFirst


deallocate crFirst


close crSecond


deallocate crSecond