Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ActiveVFP MergeText/MergeScript
Message
 
To
09/01/2003 17:15:09
General information
Forum:
Visual FoxPro
Category:
ActiveVFP
Miscellaneous
Thread ID:
00737466
Message ID:
00740623
Views:
25
Rolf,
Great!-this is cool. Thanks for sharing the code and ideas...
>Claude and Dale,
>Thanks for the effort. I still have the problems wit oCookie.read/write.
>Everything else works fine includig ASPDump wich also reads the cookie.
>I will leave it now until I get my new computer system next week.
>In between I changed the main case statement to accept any filename in the
>action= parameter. Action=beer will do:
>lcHTMLout= oHTML.mergescript(fileToString("beer.htm")
>I tested it with simlist1.htm.
>
< % ERROR: 
>SELE * FROM Customer INTO CURSOR tCursor
>lcHTMLfile = 'custlist.htm'  && html template
>lcHTMLout= FILETOSTR(oProp.HtmlPath+lcHTMLfile)
> % >
>< % ERROR: =oHTML.htmlTable('customers',lcHTMLout,10,.T.,'#E5E5E5',.F.,VAL(oRequest.querystring("page")),oRequest.querystring("nav")) % >
>
>
>This is the simple change in the main case statement:
>
* mods RGJ ,accept existing .htm files
>CASE LEN(ALLTRIM(oProp.Action))>0
>	lcHTMLfile= oProp.HtmlPath + oProp.Action + '.htm'
>	IF ! FILE(lcHTMLFile)
>		lcHTMLfile = oProp.HtmlPath + 'default.htm'
>	ENDIF
>	lcHTMLout= FILETOSTR(lcHTMLfile)
>	lcHTMLout= oHTML.mergeScript(lcHTMLout) && was mergetext
>	
>OTHERWISE
>
>You can imagine that in this situation nesting MergeScript in scripts would be very convenient.
>
>Rolf
Previous
Reply
Map
View

Click here to load this message in the networking platform