All request enter and exit through one FWX file show below. This file calls
the "runapp_opts.prg" which then distributes out to the
processing code containing a total of about 65,000 lines of code.
All returning browser content is assigned to HTML_OUT.
All browser content starts and ends with the HTML tags and an
effort is made to keep the all tags balanced for moving to XML
**********************************
** filename: runapp.fwx
<%set defa to c:\inetsrv\scripts\fs
cVersion = VERSION(1)
SET EXCLUSIVE OFF
SET TALK OFF
SET HEADING OFF
SET SAFETY OFF
SET ESCAPE OFF
SET STATUS OFF
SET BELL OFF
SET DELETED ON
SET CONFIRM ON
SET NOTIFY OFF
SET RESOURCE OFF
SET CURSOR OFF
SET REPROCESS TO 2 SECONDS
SET CENTURY ON
SET OPTIMIZE ON
SET EXACT ON
** these vars and setup to process everything
cFWPath = "\inetsrv\scripts\ac\"
SET DEFA TO (cFWPath)
set procedure to aud_proc
cWebSiteHome = netuse("WEBSITEHOME",.t.)
cWebSiteName = netuse("WEBSITENAME",.t.)
cWebSiteTitle = netuse("WEBSITETITLE",.t.)
cSmallLogo = netuse("SMALL_LOGO",.t.)
cLargeLogo = netuse("LARGE_LOGO",.t.)
html_out = ""
cUserID = ""
cUserPw = ""
cUserBran = ""
cTempDir = ""
nUserRec = 0
nViewCount = 0
cIpAddr = ""
cbrowser = ""
lMSIE = .f.
cJavaScript = ""
nUserSecurity = 0
lLocalUser = .f.
lFieldRep = .f.
lVendor = .f.
cWebTempDir = ""
lRecordUser = .f.
nLogRec = 0
cAccess_type = ""
cParmSent = ""
cParmSent2 = ""
cSentJobNo = ""
=chk_dbfs()
nLogRec = val(request.querystring("lr"))
cParmSent = upper(request.querystring('parm'))
cParmSent2 = upper(request.querystring('parm2'))
cSentJobNO = upper(request.querystring('parm3'))
** var for processing request
cSentParameter = upper(cParmSent)
DIMENSION aPostFields(1)
aPostFields(1) = ""
DIMENSION aPostVal(1)
aPostVal(1) = ""
nPostFields = 0
** pull all the formfields in first
dimension aTPost(1,1)
nPost= Request.FormArray(@aTPost)
if nPost > 0
for i = 1 to nPost
=postfield(aTPost(i,1),aTPost(i,2) )
next
endif
cLoginErr = ""
lTestQuery = .f.
*lTestQuery = .t.
if !lTestQuery
do case
case "CHK_LOG" $ cSentParameter
do chk_log
case "WELCOME" $ cSentParameter
** do nothing
otherwise
** get the user vars
=setup_user_vars()
endcase
endif
%>
<%if lTestQuery%>
<%dimension aTPost(1,1)
nPost= Request.FormArray(@aTPost)%>
Query String: <%response.write(request.querystring())%><br>
Parmsent: <%response.write(cParmSent)%><br>
Sent Form Fields : <br>
<%for i = 1 to nPost%>
<%response.write(aTPost(i,1))%>:
<%response.write(aTPost(i,2))%><br>
<%next%>
<%else
** process the request
=runapp_opts()
** send it back to the web browser
html_out = "Content-type: text/html" + LF + LF + html_out
response.write(html_out)
endif
%>
*****************************************************
Seems a mystery then because if I comment out the line above the response.write(html_out), I get corrupted data sent the browse. Interesting.......let me know what other information I can provide.
Thanks
Jeff