Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ActiveVFP MergeText/MergeScript
Message
De
09/01/2003 17:15:09
 
 
À
09/01/2003 08:57:24
Information générale
Forum:
Visual FoxPro
Catégorie:
ActiveVFP
Divers
Thread ID:
00737466
Message ID:
00740076
Vues:
30
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform