foxpro-file-create

if thisform.v_ok
store '' to _filename
do case
case inlist(thisform.htmlgenh.screenmode,1,3)
store allt(thisform.htmlgenh.php_view) to _filename
nhandle=fcreate('c:\appserv\www\test\'+_filename)
aaa=fputs(nhandle,thisform.php_retrieval_file)
fclose(nhandle)
other
store allt(thisform.htmlgenh.php_save) to _filename
nhandle=fcreate('c:\appserv\www\test\'+_filename)
aaa=fputs(nhandle,thisform.php)
fclose(nhandle)
store allt(thisform.htmlgenh.php_retriv) to _filename
nhandle=fcreate('c:\appserv\www\test\'+_filename)
aaa=fputs(nhandle,thisform.php_retrieval_file)
fclose(nhandle)
store allt(thisform.htmlgenh.html_file) to _filename
nhandle=fcreate('c:\appserv\www\test\'+_filename)
aaa=fputs(nhandle,thisform.whole)
fclose(nhandle)
endcase
*thisform.hyperlink1.navigateto ("http://localhost/test/"+allt(_filename))
do form htmlview with 'http://127.0.0.1/test/'+_filename
thisform.Pageframe1.activepage=1
endif