>SCAN FOR trips.igroup = thisform.group
>...lcPageName = "Page"+str(i)
>...WITH thisform.tsPageFrame1
>..... .AddObject(lcPageName,"TripPage")
>..... .pages[i].RecordNo = RECNO()
>..... .pages[i].caption = trips.cname
>...ENDWITH
>...i = i + 1
>...SELECT trips
>ENDSCAN
>thisform.refresh
>
>.AddObject(lcPageName,"TripPage") gives me a syntax error, but it does it anyway.
lcPageName = "Page"+ALLTRIM(str(i,3,0)) should do the trick.