Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ActiveVFP MergeText/MergeScript
Message
From
09/01/2003 17:15:09
 
 
To
09/01/2003 08:57:24
General information
Forum:
Visual FoxPro
Category:
ActiveVFP
Miscellaneous
Thread ID:
00737466
Message ID:
00740076
Views:
29
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.
<%
SELE * FROM Customer INTO CURSOR tCursor
lcHTMLfile = 'custlist.htm'  && html template
lcHTMLout= FILETOSTR(oProp.HtmlPath+lcHTMLfile)
%>
<%=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
Next
Reply
Map
View

Click here to load this message in the networking platform