*set defa to D:\saywell\ver200006\pic set defa to C:\saywell\www\ver20000815 *wanttype='Manufacturer' *wanttype='Approval' *wanttype='Aircraft' wanttype='All' wanttype=upper(alltrim(wanttype)) close data maxp=1 outrdir='C:\saywell\www\ver20000815\' use C:\saywell\www\ver20000815\genpage in 0 excl order aircftname if wanttype='ALL' select rectype,count(*) from genpage; group by 1 order by 1; into cursor recctype else select rectype,count(*) from genpage; where rectype=wanttype; or rectype='000'+wanttype; group by 1 order by 1; into cursor recctype endif for i=1 to reccount('recctype') select recctype goto i if !left(recctype.rectype,3)='000' outdir=alltrim(outrdir)+alltrim(recctype.rectype)+'\' else outdir=alltrim(outrdir)+substr(alltrim(recctype.rectype),4)+'\' do text_on with outdir+alltrim(recctype.rectype)+".htm" \
	do text_off
endif
select genpage

set safety off

*do text_on with outdir+"ALLAC.htm"
select genpage
goto top
*scan for rectype=upper(alltrim(wanttype))
*scan for aircftname="ATR 42"
scan for rectype=recctype.rectype
dot_pos=at('.',picname)
if dot_pos=0
*	htmlname=picname
else
*	htmlname=left(picname,dot_pos-1)+".htm"
endif

do text_on with outdir+htmlname
\
\

\

\R.F.SAYWELL CANADA
\
\
\ \ \
\
\
\
\ \ \
	\
endif if !left(recctype.rectype,3)='000' \ \ \ endif do text_off if !left(recctype.rectype,3)='000' do text_on with outdir+'000'+alltrim(recctype.rectype)+".htm","ADD" \<>
do text_off endif endscan endfor *select * from recctype where left(rectype,3)='000' into cursor t1 select * from genpage where left(rectype,3)='000' into cursor t1 select t1 goto top scan do text_on with outrdir+substr(alltrim(t1.rectype),4)+'\'+alltrim(t1.rectype)+".htm","ADD" \
\<> \

\ \ \ \ do text_off endscan select genpage
\
\ \ if left(recctype.rectype,3)!='000' \ * \News * \News currec=recno() curarrows=arrows frec=recno() do while rectype=recctype.rectype skip -1 if rectype=recctype.rectype frec=recno() endif enddo goto frec if frec!=currec and curarrows='Y' \News endif goto currec skip -1 if rectype=recctype.rectype and curarrows='Y' \News endif goto currec skip if rectype=recctype.rectype and curarrows='Y' \News endif goto currec do while rectype=recctype.rectype skip 1 if rectype=recctype.rectype frec=recno() endif enddo goto frec if frec!=currec and curarrows='Y' \News endif goto currec * \<> \
\

<>

endif \

*<> for j=1 to maxp fldname='p'+alltrim(str(j)) * \

for k=1 to memlines(&fldname) outline=mline(&fldname,k) searchpb=1 foundpb=at('~',outline,searchpb) do while foundpb!=0 if foundpb!=0 outline=left(outline,foundpb-1)+'

'+CHR(13)+CHR(13); +'

' searchpb=searchpb+1 foundpb=at('~',outline,searchpb) endif enddo ***** * searchpb=1 * foundpb=at('~t',outline,searchpb) * do while foundpb!=0 * if foundpb!=0 * outline=left(outline,foundpb-1)+'

'+CHR(13)+CHR(13); * +'

' * searchpb=searchpb+1 * foundpb=at('~',outline,searchpb) * endif * enddo ***** \<> endfor \

endfor if rectype='AIRCRAFT' \   endif *\   *\   *\weblog.jpg (12903 bytes)   if left(recctype.rectype,3)='000' \

else \