Coldfusion 9 HTML form 500 internal server error
Asked Answered
M

3

7

I have a windows 2008 server with Coldfusion 9 installed. I have an application that submits a form, and upon submit gets the 500 Internal Server Error page. I have checked the logs and nothing is logged there. I have heard about the issue with submitting over 100 form fields, but my form submits 64, max. I have Enable Robust Exception Information checked with my IP address added and HTTP status codes unchecked. I can see all the debugging information on all pages up to the error page. I have output to a file all the information the page puts into the form fields and created a page with just those form fields and those values and it submits fine. I have been stuck on this for a week now. I don't know anything else to try. Any suggestions??? Please!!!!

<!---  #Include Header Page Here --->
<cfset session.headertitle = "Budget Revision to Sponsored Project-Calculation">
<!--- <cfinclude template="grantsys_header_nogif.cfm"> --->
<cfinclude template="../ps_common_scripts/header.cfm">
<CFINCLUDE template="grants_logincheck.cfm"> 
<cfset tfile=''>

<!--- Get Page Inputs --->
<CFIF IsDefined ("Form.Setid") AND IsDefined("Form.SpeedType") AND IsDefined("Form.SpeedType_Sub")>
    <CFSET Setid = Trim(UCase(Form.Setid))>
    <CFSET SpeedType1 = Trim(UCase(Form.SpeedType))>
    <CFSET SpeedType2 = Trim(UCase(Form.SpeedType_Sub))>
    <CFLOCK SCOPE="SESSION" TYPE="EXCLUSIVE" TIMEOUT="2">
        <CFSET Session.SpeedType2 = Trim(UCase(Form.SpeedType_Sub))>
    </CFLOCK>
<CFELSEIF IsDefined("URL.SpeedType") AND IsDefined("URL.SpeedType_Sub")>
    <CFSET Setid = Trim(UCase(Form.Setid))>
    <CFSET SpeedType1 = Trim(UCase(URL.SpeedType))>
    <CFSET SpeedType2 = Trim(UCase(URL.SpeedType_Sub))>
    <CFSET Session.SpeedType2 = Trim(UCase(URL.SpeedType_Sub))>
<CFELSE>
    <P><B>Error:</B> Expected page inputs are missing.</P>
    <CFINCLUDE template="br_footer.cfm">
    <CFABORT>
</CFIF>

<!--- If a SubSpeedType is specified (not NEW or blank)... --->
<CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">
    <!---Get Subheader data--->
    <CFQUERY name="qHdr2" datasource="#Application.DSN#">
        SELECT /*+ FIRST_ROWS */ SP.DEPTID, SP.FUND_CODE, 
            PF.GT_FUND_TITLE, 
            PJ.GT_CONTR_NO, 
            PJ.GT_PROJ_STARTDT, 
            PJ.GT_PROJ_EXPDT, 
            PJ.GT_SPON_NAME, 
            PJ.GT_PROJ_TITLE,
            PD.GT_PROJ_DIR, 
            PT.DESCR,
            PE.NAME 
        FROM    SYSADM.PS_SPEEDTYP_TBL SP, 
                SYSADM.PS_GT_GM_PROJ PJ, 
                SYSADM.PS_GT_GM_PROJ_PDPI PD,   
                SYSADM.PS_DEPT_TBL PT, 
                SYSADM.PS_GT_GM_HR_DATA PE,
                SYSADM.PS_GT_GM_FUND PF 
        WHERE SP.SETID = '#Setid#' 
            AND SP.SPEEDTYPE_KEY = '#SpeedType2#'  
            AND SP.BUDGET_REF = (   SELECT MAX(BUDGET_REF) 
                                    FROM SYSADM.PS_SPEEDTYP_TBL 
                                    WHERE SETID = SP.SETID 
                                    AND SPEEDTYPE_KEY = SP.SPEEDTYPE_KEY 
                                    ) 
        AND PJ.SETID        =   SP.SETID 
        AND PJ.PROJECT_ID   =   SP.SPEEDTYPE_KEY 
        AND PJ.FUND_CODE(+) =   SP.FUND_CODE
        AND PJ.FUND_CODE BETWEEN 'A0000'  AND 'Z9999'
        AND PJ.EFF_STATUS   =   'A' 
        AND PJ.EFFDT = ( 
                        SELECT  MAX(PJ_ED.EFFDT) 
                        FROM    SYSADM.PS_GT_GM_PROJ  PJ_ED
                        WHERE   PJ_ED.SETID = PJ.SETID 
                        AND     PJ_ED.PROJECT_ID = PJ.PROJECT_ID 
                        AND     PJ_ED.EFFDT <= SYSDATE )
        AND PD.SETID(+)     = PJ.SETID 
        AND PD.PROJECT_ID(+) = PJ.PROJECT_ID
        AND PD.EFFDT(+)     = PJ.EFFDT  
        AND PT.SETID        =   SP.SETID
        AND PT.DEPTID       =   SP.DEPTID
        AND PT.EFF_STATUS   =   'A' 
        AND PT.EFFDT = ( 
                        SELECT  MAX(PT_ED.EFFDT)   
                        FROM    SYSADM.PS_DEPT_TBL PT_ED
                        WHERE   PT_ED.SETID = PT.SETID 
                        AND     PT_ED.DEPTID = PT.DEPTID
                        AND     PT_ED.EFFDT <= SYSDATE  )   
        AND PE.EMPLID(+)    =   PD.GT_PROJ_DIR  
        AND PF.SETID        =   SP.SETID 
        AND PF.FUND_CODE    =   PJ.GT_GM_FUND 
        AND PF.EFF_STATUS   =   'A' 
        AND PF.EFFDT = ( 
                        SELECT  MAX(PF_ED.EFFDT) 
                        FROM    SYSADM.PS_GT_GM_FUND PF_ED
                        WHERE   PF_ED.SETID = PF.SETID 
                        AND     PF_ED.FUND_CODE = PF.FUND_CODE 
                        AND     PF_ED.EFFDT <= SYSDATE  )
        ORDER BY PD.GT_PRIME_PDPI DESC  
    </CFQUERY>
    <cfif "#qHdr2.RecordCount#" EQ 0>
        <P align="center"><B>Error:</B> Project ID# <cfoutput><strong>#SpeedType2#</strong></cfoutput> cannot be found. Please go back and enter a valid Project ID.</P>
        <CFINCLUDE template="br_footer.cfm">
        <CFABORT>
    </cfif>
</CFIF>

<!--- Display Data --->
<CFFORM action="br_submit_test.cfm?tfile" method="post" name="frmCalc" id="frmCalc">
    <TABLE align="center" border="1" width="100%">
        <TR bgcolor="Navy">
            <TD colspan="2" align="left">&nbsp;

            </TD>
            <TD colspan="3" align="center">
                <FONT size="+2" color="White">From</FONT>
            </TD>
            <TD colspan="3" align="center">
                <FONT size="+2" color="White">To</FONT>
            </TD>
        </TR>
        <CFOUTPUT>
            <TR> 
                <TD colspan="2" align="left">
                    Setid: <FONT><B>#Setid#</B></FONT>                  
                </TD>
                <TD colspan="3" align="center">
                    <B>#SpeedType1#</B>&nbsp;
                    <INPUT type="hidden" name="SpeedType1" value="#SpeedType1#">
                    <cfset tfile=#tfile#&"SpeedType1 #SpeedType1#"><br>
                </TD>
                <TD colspan="3" align="center">
                    <CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">

                        <B>#SpeedType2#</B>&nbsp;
                        <INPUT type="hidden" name="SpeedType2" value="#SpeedType2#">
                        <cfset tfile=#tfile#&"SpeedType2 #SpeedType2#"><br>
                    <CFELSEIF SpeedType2 EQ "NEW">
                        SpeedType: <input type="hidden" value="NEW" name="SpeedType2" size="10"> (NEW)
                        <cfset tfile=#tfile#&"SpeedType2 NEW #SpeedType2#"><br>
                    <CFELSE>
                        &nbsp;
                        <INPUT type="hidden" name="SpeedType2" value="">
                    </CFIF>
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    School/Center/Lab:
                </TD>
                <TD colspan="3">
                     #qHdr1.DESCR# - #qHdr1.DEPTID#&nbsp;
                    <INPUT type="hidden" name="DEPTID1" value="#qHdr1.DEPTID# - #qHdr1.DESCR#&nbsp;">
                    <cfset tfile=#tfile#&"qHdr1.DEPTID - qHdr1.DESCR  #qHdr1.DEPTID# - #qHdr1.DESCR#"><br>
                </TD>
                <TD colspan="3">
                    <CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">
                        #qHdr2.DESCR# - #qHdr2.DEPTID#&nbsp;
                        <INPUT type="hidden" name="DEPTID2" value="#qHdr2.DEPTID#">
                        <cfset tfile=#tfile#&"qHdr2.DEPTID #qHdr2.DEPTID#"><br>
                    <CFELSEIF SpeedType2 EQ "NEW">
                        <CFQUERY name="querydeptid2" datasource="#Application.DSN#">
                            SELECT DISTINCT DEPTID, DESCR 
                            FROM SYSADM.PS_DEPT_TBL
                            ORDER BY DESCR
                        </CFQUERY>              
                        <SELECT size="1" name="DEPTID2">
                            <CFLOOP query="querydeptid2">
                                <CFIF Trim(DESCR) EQ "">
                                    <OPTION value="#DEPTID#">
                                        #DEPTID#
                                    </OPTION>
                                <CFELSE>
                                    <OPTION value="#DEPTID#">
                                        #Left(DESCR,30)# - #DEPTID#
                                    </OPTION>
                                </CFIF>
                            </CFLOOP>
                        </SELECT>
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    Fund:
                </TD>
                <TD colspan="3">
                    #qHdr1.FUND_CODE# - #qHdr1.DESCR#&nbsp;
                    <INPUT TYPE="hidden" name="FUND_CODE1" value="#qHdr1.FUND_CODE# - #qHdr1.DESCR#">
                    <cfset tfile=#tfile#&"qHdr1.FUND_CODE - qHdr1.DESCR #qHdr1.FUND_CODE# - #qHdr1.DESCR#"><br>
                </TD>
                <TD colspan="3">
                <!--- CC8254 - Begin --->
                <CFIF SpeedType2 EQ "NEW">
                    #qHdr1.FUND_CODE# - #qHdr1.DESCR#&nbsp;
                <CFELSEIF SpeedType2 EQ "">
                      &nbsp;
                <CFELSE>
                    #qHdr2.FUND_CODE# - #qHdr2.DESCR#&nbsp;
                </CFIF>
                <!--- CC8254 - End --->
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    Project Director:
                </TD>
                <TD colspan="3">
                    #qHdr1.GT_PROJ_DIR# - #qHdr1.NAME#&nbsp;
                    <INPUT TYPE="hidden" name="NAME1" value="#qHdr1.GT_PROJ_DIR# - #qHdr1.NAME#">
                    <cfset tfile=#tfile#&"qHdr1.GT_PROJ_DIR - qHdr1.NAME #qHdr1.GT_PROJ_DIR# - #qHdr1.NAME#"><br>
                </TD>
                <TD colspan="3">
                    <CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">
                        #qHdr2.GT_PROJ_DIR# - #qHdr2.NAME#&nbsp;
                        <INPUT TYPE="hidden" name="NAME2" value="#qHdr2.GT_PROJ_DIR# - #qHdr2.NAME#">
                        <cfset tfile=#tfile#&"qHdr2.GT_PROJ_DIR - qHdr2.NAME #qHdr2.GT_PROJ_DIR# - #qHdr2.NAME#"><br>
                        #qHdr2.DEPTID#
                    <CFELSEIF SpeedType2 EQ "NEW">
                        <CFQUERY name="queryprojdir2" datasource="#Application.DSN#">
                            SELECT  DISTINCT A.GT_PROJ_DIR EMPLID, B.NAME
                            FROM    SYSADM.PS_GT_GM_FUND_PDPI A,
                                    SYSADM.PS_GT_GM_HR_DATA B
                            WHERE A.GT_PROJ_DIR = B.EMPLID
                            UNION
                            SELECT  DISTINCT A.GT_PROJ_DIR EMPLID, B.NAME
                            FROM    SYSADM.PS_GT_GM_PROJ_PDPI A,
                                    SYSADM.PS_GT_GM_HR_DATA B
                            WHERE A.GT_PROJ_DIR = B.EMPLID
                            ORDER BY 2,1 
                        </CFQUERY>
                        <SELECT size="1" name="NAME2">
                            <CFLOOP query="queryprojdir2">  
                                    <OPTION value="#EMPLID#">
                                        #NAME# - #EMPLID#
                                    </OPTION>
                            </CFLOOP>
                        </SELECT>
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    Award No.:
                </TD>
                <TD colspan="3">
                    #qHdr1.GT_CONTR_NO#&nbsp;
                    <INPUT TYPE="hidden" name="GT_CONTR_NO1" value="#qHdr1.GT_CONTR_NO#">
                    <cfset tfile=#tfile#&"qHdr1.GT_CONTR_NO #qHdr1.GT_CONTR_NO#"><br>
                </TD>
                <TD colspan="3">
                <!--- CC8254 - Begin--->
                <CFIF SpeedType2 NEQ "">                    
                    #qHdr1.GT_CONTR_NO#&nbsp;
                    <INPUT TYPE="hidden" name="GT_CONTR_NO2" value="#qHdr1.GT_CONTR_NO#">
                    <cfset tfile=#tfile#&"qHdr1.GT_CONTR_NO #qHdr1.GT_CONTR_NO#"><br>
                </CFIF>&nbsp; 
                <CFIF SpeedType2 EQ "NEW">
                    #qHdr1.GT_CONTR_NO#&nbsp;
                <CFELSEIF SpeedType2 EQ "">
                      &nbsp;
                <CFELSE>
                    #qHdr2.GT_CONTR_NO#&nbsp;
                </CFIF>
                <!--- CC8254 - End --->
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    Submission Date:
                </TD>
                <TD colspan="3">
                    #DateFormat(Now(), "mm/dd/yyyy")#
                    <INPUT TYPE="hidden" name="DATE1" value="#DateFormat(Now(), "mm/dd/yyyy")#">
                    <cfset tfile=#tfile#&"Date 1 #DateFormat(Now(), "mm/dd/yyyy")#<br>">
                </TD>
                <TD colspan="3">
                    <CFIF SpeedType2 NEQ "">
                        #DateFormat(Now(), "mm/dd/yyyy")#
                        <INPUT TYPE="hidden" name="DATE2" value="#DateFormat(Now(), "mm/dd/yyyy")#">
                        <cfset tfile=#tfile#&"Date 2 #DateFormat(Now(), "mm/dd/yyyy")#<br>">
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    Start Date: 
                </TD>
                <TD colspan="3">
                    #DateFormat(qHdr1.GT_PROJ_STARTDT, "mm/dd/yyyy")#&nbsp;
                    <INPUT TYPE="hidden" name="GT_PROJ_STARTDT1" value="#DateFormat(qHdr1.GT_PROJ_STARTDT, "mm/dd/yyyy")#">
                    <cfset tfile=#tfile#&"qHdr2.GT_PROJ_STARTDT1 #DateFormat(qHdr2.GT_PROJ_STARTDT, "mm/dd/yyyy")#<br>">
                </TD>
                <TD colspan="3">
                    <CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">
                        #DateFormat(qHdr2.GT_PROJ_STARTDT, "mm/dd/yyyy")#&nbsp;
                        <INPUT TYPE="hidden" name="GT_PROJ_STARTDT2" value="#DateFormat(qHdr2.GT_PROJ_STARTDT, "mm/dd/yyyy")#">
                        <cfset tfile=#tfile#&"qHdr2.GT_PROJ_STARTDT2 #DateFormat(qHdr2.GT_PROJ_STARTDT, "mm/dd/yyyy")#<br>">
                    <CFELSEIF SpeedType2 EQ "NEW">
                        <input type="text" name="GT_PROJ_STARTDT2" size="30" onChange = "return( isValidDate(this) && CheckDate(this) )">
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                    <CFIF SpeedType2 EQ "new">(mm/dd/yyyy)</CFIF>
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    End Date: 
                </TD>
                <TD colspan="3">
                    #DateFormat(qHdr1.GT_PROJ_EXPDT, "mm/dd/yyyy")#&nbsp;
                    <INPUT TYPE="hidden" name="GT_PROJ_EXPDT1" value="#DateFormat(qHdr1.GT_PROJ_EXPDT, "mm/dd/yyyy")#">
                    <cfset tfile=#tfile#&"qHdr2.GT_PROJ_EXPDT1 #DateFormat(qHdr2.GT_PROJ_EXPDT, "mm/dd/yyyy")#<br>">
                </TD>
                <TD colspan="3">                    
                    <CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">
                        #DateFormat(qHdr2.GT_PROJ_EXPDT, "mm/dd/yyyy")#&nbsp;
                        <INPUT TYPE="hidden" name="GT_PROJ_EXPDT2" value="#DateFormat(qHdr2.GT_PROJ_EXPDT, "mm/dd/yyyy")#">
                        <cfset tfile=#tfile#&"qHdr2.GT_PROJ_EXPDT2 #DateFormat(qHdr2.GT_PROJ_EXPDT, "mm/dd/yyyy")#<br>">
                    <CFELSEIF SpeedType2 EQ "NEW">                      
                        <input type="text" name="GT_PROJ_EXPDT2" size="30" onChange="return( isValidDate(this) && CheckDate(this) )">
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                    <CFIF SpeedType2 EQ "new">(mm/dd/yyyy)</CFIF>
                        </TR>

                </TD>
            <TR>
                <TD colspan="2">
                    Sponsor:
                </TD>
                <TD colspan="3">
                    #qHdr1.GT_SPON_NAME#&nbsp;
                    <INPUT TYPE="hidden" name="GT_SPON_NAME1" value="#qHdr1.GT_SPON_NAME#">
                    <cfset tfile=#tfile#&"qHdr1.GT_SPON_NAME1 #qHdr1.GT_SPON_NAME#<br>">
                </TD>
                <TD colspan="3">
                <!--- CC8254 - Begin--->
                <CFIF SpeedType2 NEQ "">
                    #qHdr1.GT_SPON_NAME#&nbsp;
                    <INPUT TYPE="hidden" name="GT_SPON_NAME2" value="#qHdr1.GT_SPON_NAME#">
                    <cfset tfile=#tfile#&"qHdr1.GT_SPON_NAME2 #qHdr1.GT_SPON_NAME#<br>">
                </CFIF>&nbsp;
                <CFIF SpeedType2 EQ "NEW">
          #qHdr1.GT_SPON_NAME#&nbsp;
                <CFELSEIF SpeedType2 EQ "">
                      &nbsp;
                <CFELSE>
          #qHdr2.GT_SPON_NAME#&nbsp;
                </CFIF>
                <!--- CC8254 - End --->
                </TD>
            </TR>
            <TR>
                <TD colspan="2">
                    Name of Project:
                </TD>
                <TD colspan="3">
                    #qHdr1.GT_PROJ_TITLE#&nbsp;
                    <INPUT TYPE="hidden" name="GT_PROJ_TITLE1" value="#qHdr1.GT_PROJ_TITLE#">
                    <cfset tfile=#tfile#&"qHdr2.GT_PROJ_TITLE1 #qHdr2.GT_PROJ_TITLE#<br>">
                </TD>
                <TD colspan="3">
                    <CFIF SpeedType2 NEQ "NEW" AND SpeedType2 NEQ "">
                        #qHdr2.GT_PROJ_TITLE#&nbsp;
                        <INPUT TYPE="hidden" name="GT_PROJ_TITLE2" value="#qHdr2.GT_PROJ_TITLE#">
                        <cfset tfile=#tfile#&"qHdr2.GT_PROJ_TITLE2 #qHdr2.GT_PROJ_TITLE#<br>">
                    <CFELSEIF SpeedType2 EQ "NEW">
                        <input type="text" name="GT_PROJ_TITLE2" size="30">
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
            </TR>
        </CFOUTPUT>

        <!--- Display Budget Totals & Input Fields --->
        <TR bgcolor="Navy">
            <TD colspan="2">
                <FONT color="White"><B>BUDGET CATEGORY</B></FONT>
            </TD>
            <TD align="right">
                <FONT color="White"><B>CURRENT<BR>BUDGET</FONT>
            </TD>
            <TD align="right">
                <FONT color="White"><B>INCREASE+<BR>DECREASE-</FONT>
            </TD>
            <TD align="right">
                <FONT color="White"><B>REVISED<BR>BUDGET</FONT>
            </TD>
            <TD align="right">
                <FONT color="White"><B>CURRENT<BR>BUDGET</FONT>
            </TD>
            <TD align="right">
                <FONT color="White"><B>INCREASE+<BR>DECREASE-</FONT>
            </TD>
            <TD align="right">
                <FONT color="White"><B>REVISED<BR>BUDGET</FONT>
            </TD>
        </TR>       
        <CFQUERY name="qData" datasource="#Application.DSN#">
            SELECT  X.FIELDVALUE, X.XLATSHORTNAME, 
                    H.PROJECT_ID PID1, H.BUDG_LTD BUD1, H.FISCAL_YEAR FY1, 
                    H.ACCOUNTING_PERIOD P1, H2.PROJECT_ID PID2, 
                    H2.BUDG_LTD BUD2, H2.FISCAL_YEAR FY2, 
                    H2.ACCOUNTING_PERIOD P2 
<!---       FROM    SYSADM.XLATTABLE X, SYSADM.PS_GT_GS_AMTS_HDR H, SYSADM.PS_GT_GS_AMTS_HDR H2    --->
            FROM    SYSADM.XLATTABLE_VW X, SYSADM.PS_GT_GS_AMTS_HDR H, SYSADM.PS_GT_GS_AMTS_HDR H2 
            WHERE   X.FIELDNAME = 'GT_SPONSORED_CAT'
                AND X.FIELDVALUE NOT IN ('S89','SDT','SCH')
                AND X.FIELDVALUE LIKE 'S%'
<!---           AND X.LANGUAGE_CD = 'ENG'   --->
                AND X.EFF_STATUS = 'A'
                AND X.EFFDT = (
                 SELECT MAX(EFFDT)
<!---            FROM SYSADM.XLATTABLE   --->
                 FROM SYSADM.XLATTABLE_VW
                 WHERE FIELDNAME = 'GT_SPONSORED_CAT'
                 AND FIELDVALUE = X.FIELDVALUE
<!---                AND LANGUAGE_CD = X.LANGUAGE_CD   --->
                 AND EFF_STATUS = X.EFF_STATUS
                 )
                AND H.SETID (+) = '#Setid#' 
                AND H.PROJECT_ID (+) = '#SpeedType1#'
                AND H.GT_SPONSORED_CAT (+) = X.FIELDVALUE
                AND (H.FISCAL_YEAR = (
                    SELECT MAX(FISCAL_YEAR) 
                    FROM SYSADM.PS_GT_GS_AMTS_HDR 
                    WHERE SETID = H.SETID 
                    AND PROJECT_ID = H.PROJECT_ID
                    ) 
                    OR
                    H.FISCAL_YEAR IS NULL) 
                AND (H.ACCOUNTING_PERIOD = (
                    SELECT MAX(ACCOUNTING_PERIOD) 
                    FROM SYSADM.PS_GT_GS_AMTS_HDR 
                    WHERE SETID = H.SETID 
                    AND FISCAL_YEAR = H.FISCAL_YEAR 
                    AND PROJECT_ID = H.PROJECT_ID
                    ) 
                    OR 
                    H.ACCOUNTING_PERIOD IS NULL) 
                AND H2.SETID (+) = '#Setid#' 
                AND H2.PROJECT_ID (+) = '#SpeedType2#'
                AND H2.GT_SPONSORED_CAT (+) = X.FIELDVALUE
                AND (H2.FISCAL_YEAR = (
                    SELECT MAX(FISCAL_YEAR) 
                    FROM SYSADM.PS_GT_GS_AMTS_HDR 
                    WHERE SETID = H2.SETID 
                    AND PROJECT_ID = H2.PROJECT_ID
                    ) 
                    OR
                    H2.FISCAL_YEAR IS NULL) 
                AND (H2.ACCOUNTING_PERIOD = (
                    SELECT MAX(ACCOUNTING_PERIOD) 
                    FROM SYSADM.PS_GT_GS_AMTS_HDR 
                    WHERE SETID = H2.SETID 
                    AND FISCAL_YEAR = H2.FISCAL_YEAR 
                    AND PROJECT_ID = H2.PROJECT_ID
                    ) 
                    OR 
                    H2.ACCOUNTING_PERIOD IS NULL) 
            ORDER BY X.FIELDVALUE 
        </CFQUERY>
        <CFSET TCurrBud = 0>
        <CFSET TCurrBudSub = 0>
        <CFOUTPUT query="qData">
        <CFQUERY name="qCat" datasource="#Application.DSN#">
                SELECT CAT.GT_LBL_#qData.FIELDVALUE# LABEL, CAT.GT_CAT_#qData.FIELDVALUE# CATEGORY
                FROM SYSADM.PS_GT_GM_PROJ_CAT CAT
                WHERE CAT.SETID = '#Setid#'
                    AND CAT.PROJECT_ID = '#SpeedType1#'
                    AND CAT.GT_CAT_KEY = 'CAT'
                    AND CAT.EFFDT = (
                        SELECT MAX(EFFDT)
                        FROM SYSADM.PS_GT_GM_PROJ_CAT CAT_DT
                        WHERE CAT_DT.SETID = CAT.SETID
                            AND CAT_DT.PROJECT_ID = CAT.PROJECT_ID
                            AND CAT_DT.GT_CAT_KEY = CAT.GT_CAT_KEY
                            )
            </CFQUERY>
            <CFQUERY name="qCatSub" datasource="#Application.DSN#">
                SELECT CAT.GT_LBL_#qData.FIELDVALUE# LABEL, CAT.GT_CAT_#qData.FIELDVALUE# CATEGORY
                FROM SYSADM.PS_GT_GM_PROJ_CAT CAT
                WHERE CAT.SETID = '#Setid#'
                    AND CAT.PROJECT_ID = '#SpeedType2#'
                    AND CAT.GT_CAT_KEY = 'CAT'  
                    AND CAT.EFFDT = (
                        SELECT MAX(EFFDT)
                        FROM SYSADM.PS_GT_GM_PROJ_CAT CAT_DT
                        WHERE CAT_DT.SETID = CAT.SETID
                            AND CAT_DT.PROJECT_ID = CAT.PROJECT_ID
                            AND CAT_DT.GT_CAT_KEY = CAT.GT_CAT_KEY
                            )
            </CFQUERY>
            <TR>
                <TD>
                    #FIELDVALUE#
                    <INPUT type="hidden" name="Cat#FIELDVALUE#" value="#FIELDVALUE#">
                    <cfset tfile=#tfile#&"Cat#FIELDVALUE# #FIELDVALUE#<br>">
                </TD>
                <TD>
                    #XLATSHORTNAME#
                    <INPUT type="hidden" name="CatName#FIELDVALUE#" value="#XLATSHORTNAME#">
                    <cfset tfile=#tfile#&"CatName#FIELDVALUE# #XLATSHORTNAME#<br>">
                </TD>
                <TD align="right">
                    <INPUT type="text" name="#FIELDVALUE#CurrBud" value="#NumberFormat(IIF(BUD1 IS "", "0", "BUD1"), "L9999999999.00")#" size="10" readonly>
                    <cfset tfile=#tfile#&"#FIELDVALUE#CurrBud #NumberFormat(IIF(BUD1 IS "", "0", "BUD1"), "L9999999999.00")#<br>">
                    <CFIF Bud1 NEQ "">
                        <CFSET TCurrBud = TCurrBud + Bud1>
                    </CFIF>
                </TD>
                <TD align="right">
<!---                   <INPUT type="Text" name="#FIELDVALUE#AdjBud" maxlength="10" size="10" onChange="return Calc('#FIELDVALUE#',0)"> --->
                    <CFIF "#qCat.CATEGORY#" EQ 'Y'>
                        <INPUT type="Text" name="#FIELDVALUE#AdjBud" maxlength="10" size="10" onChange="return CheckCalc('#FIELDVALUE#',0)">
                    <CFELSE>
                        <input type="text" name="#FIELDVALUE#AdjBud" size="10" maxlength="10" readonly onChange="return CheckCalc('#FIELDVALUE#',0)">
                    </cfif>
                </TD>
                <TD align="right">
                    <INPUT type="text" name="#FIELDVALUE#RevBud" value="#NumberFormat(IIF(BUD1 IS "", "0", "BUD1"), "L9999999999.00")#" size="10" readonly>
                </TD>
                <TD align="right">
                    <CFIF SpeedType2 NEQ "">
                        <INPUT type="text" name="#FIELDVALUE#CurrBudSub" value="#NumberFormat(IIF(BUD2 IS "", "0", "BUD2"), "L9999999999.00")#" size="10" readonly>
                        <cfset tfile=#tfile#&"FIELDVALUECurrBudSub #FIELDVALUE#CurrBudSub #NumberFormat(IIF(BUD2 IS "", "0", "BUD2"), "L9999999999.00")#<br>">
                        <CFIF Bud2 NEQ "">
                            <CFSET TCurrBudSub = TCurrBudSub + Bud2>
                            <cfset tfile=#tfile#&"TCurrBudSub #TCurrBudSub#<br>">
                        </CFIF>
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
                <TD align="right">
                    <CFIF SpeedType2 NEQ "">
                        <CFIF "#qCatSub.CATEGORY#" EQ 'Y' OR "#FORM.SpeedType_Sub#" EQ 'NEW'>
                            <INPUT type="Text" name="#FIELDVALUE#AdjBudSub" maxlength="10" size="10" onChange="return CheckCalc('#FIELDVALUE#',1)">
                        <CFELSE>
                            <INPUT type="Text" name="#FIELDVALUE#AdjBudSub" maxlength="10" size="10" onChange="return CheckCalc('#FIELDVALUE#',1)" readonly>
                            <cfset tfile=#tfile#&"FIELDVALUEAdjBudSub #FIELDVALUE#AdjBudSub<br>">
                        </CFIF> 
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
                <TD align="right">
                    <CFIF SpeedType2 NEQ "">
                        <INPUT type="text" name="#FIELDVALUE#RevBudSub" value="#NumberFormat(IIF(BUD2 IS "", "0", "BUD2"), "L9999999999.00")#" size="10" readonly>
                        <cfset tfile=#tfile#&"NumberFormat(IIF(BUD2 IS , 0, BUD2), L9999999999.00) #NumberFormat(IIF(BUD2 IS "", "0", "BUD2"), "L9999999999.00")#<br>">
                    <CFELSE>
                        &nbsp;
                    </CFIF>
                </TD>
            </TR>
        </CFOUTPUT>

        <!--- Display Totals --->
        <CFOUTPUT>
            <TR bgcolor="Navy">
                <TD colspan="2" align="right">
                    <FONT color="White">TOTALS:</FONT>
                </TD>
                <TD align="right">
                    <INPUT type="text" name="CurrBudTotal" value="#NumberFormat(TCurrBud, "L9999999999.00")#" size="10" readonly>
                </TD>
                <TD align="right">
                    <INPUT type="text" name="AdjBudTotal" value="#NumberFormat(0, "L9999999999.00")#" size="10" readonly>
                </TD>
                <TD align="right">
                    <INPUT type="text" name="RevBudTotal" value="#NumberFormat(TCurrBud, "L9999999999.00")#" size="10" readonly>
                </TD>
                <CFIF SpeedType2 NEQ "">
                    <TD align="right">
                        <INPUT type="text" name="CurrBudSubTotal" value="#NumberFormat(TCurrBudSub, "L9999999999.00")#" size="10" readonly>
                    </TD>
                    <TD align="right">
                        <INPUT type="text" name="AdjBudSubTotal" value="#NumberFormat(0, "L9999999999.00")#" size="10" readonly>
                    </TD>
                    <TD align="right">
                        <INPUT type="text" name="RevBudSubTotal" value="#NumberFormat(TCurrBudSub, "L9999999999.00")#" size="10" readonly>
                    </TD>
                <CFELSE>
                    <TD align="right">
                        <INPUT type="hidden" name="CurrBudSubTotal" value="0" size="10" readonly>
                    </TD>
                    <TD align="right">
                        <INPUT type="hidden" name="AdjBudSubTotal" value="0" size="10" readonly>
                    </TD>
                    <TD align="right">
                        <INPUT type="hidden" name="RevBudSubTotal" value="0" size="10" readonly>
                    </TD>
                </CFIF>
            </TR>
        </CFOUTPUT>
    </TABLE>

    <BR>

    <H2>Department/Unit Approval:</H2>

    Approved by:
    <INPUT type="Text" name="Approvedby" size="20" maxlength="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    Title:
    <INPUT type="Text" name="Title" size="20" maxlength="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    Date:
    <cfinput type="Text" name="Date" required="No" size="20" maxlength="35" onChange="return (isValidDate(this))">
    <BR>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <FONT color="black">(Department Officer/Project Director)</FONT>
    <HR>
        <P>E-mail copy (or copies) of this request to the following e-mail address(es): 
            <input type="text" name="CC_To" size="70" maxlength="250">
    <BR>
    <BR>
    <HR>
<!---
        <B>NOTIFICATION TO BE SENT TO:</B>(Please enter name and fax number of individuals to receive copy of completed form)
    <HR>

    <TABLE>
        <TR>
            <TD>
                <B>Title</B>
            </TD>
            <TD>
                <B>Name</B>
            </TD>
            <TD>
                <B>Fax Number</B>
            </TD>
        </TR>
        <TR>
            <TD>
                School/Department Director:
            </TD>
            <TD>
                <INPUT type="Text" name="SDC" size="30" maxlength="35">
            </TD>
            <TD>
                <INPUT type="Text" name="FaxNumber1" size="10" maxlength="15">
            </TD>
        </TR>
        <TR>
            <TD>
                Project Director-Main Project:
            </TD>
            <TD>
                <INPUT type="Text" name="PDMP" size="30" maxlength="35">
            </TD>
            <TD>
                <INPUT type="Text" name="FaxNumber2" size="10" maxlength="15">
            </TD>
        </TR>
        <TR>
            <TD>
                Project Director-Sub Project:
            </TD>
            <TD>
                <INPUT type="Text" name="PDSP" size="30" maxlength="35">
            </TD>
            <TD>
                <INPUT type="Text" name="FaxNumber3" size="10" maxlength="15">
            </TD>
        </TR>
        <TR>
            <TD>
                School/Department Administrator:
            </TD>
            <TD>
                <INPUT type="Text" name="SDA" size="30" maxlength="35">
            </TD>
            <TD>
                <INPUT type="Text" name="FaxNumber4" size="10" maxlength="15">
            </TD>
        </TR>
        <TR>
            <TD>
                Other: <INPUT type="Text" name="othername" size="30" maxlength="15">
            </TD>
            <TD>
                <INPUT type="Text" name="other" size="30" maxlength="35">
            </TD>
            <TD>
                <INPUT type="Text" name="FaxNumber5" size="10" maxlength="15">
            </TD>
        </TR>
    </TABLE>
--->    
    Remarks (Maximum characters: 250):
    <br>
    <!--<textarea name="remarks" wrap="physical" cols="75" rows="3" maxlength="500">  CC8230 disabled mk5 -->
    <!--</textarea>                                                                   CC8230 disabled mk5 -->

  <!-- CC8230 mk5 - Begin -->
  <TEXTAREA name="remarks" cols="75" onKeyDown="limitText(remarks,countdown,250);" 
            onKeyUp="limitText(remarks,countdown,250);">
  </TEXTAREA>
  <BR>
  You have <INPUT readonly type="text" name="countdown" size="3" value="250"> characters left.</font>
  <!-- CC8230 mk5 - End -->

    <HR>
    <BR>

<!-------------------------------------------------------------------------------------------->
<!--- For testing                                                                          --->
<cffile action="write" file="location\tf99.txt" output=#tfile#>
<!-------------------------------------------------------------------------------------------->
    <TABLE WIDTH = "100%">
        <TR COLSPAN= "100%">
            <TD align="right" width="50%">
                <INPUT type="submit" name="SubmitForm" value="Submit" onClick="return (CheckIfEmailEntered() && CheckFundTotalConsistency())">
            </TD>
            <TD align="left" width="50%">
                <INPUT type="reset" name="ResetForm" value="Clear Form">
            </TD>
        </TR>
    </TABLE>
</CFFORM>


<CFINCLUDE template="br_footer.cfm">

</HTML>

And here is the page it submits to (very simple page just to write the text file, which it's not doing):

<!--- For testing--->
<cffile action="write" file="\\eisdevl.nas.gatech.edu\coldfusion\test\cfapps\cfeis\grantsys\testing\tf100.txt" output=#URL.tfile#>

On the page before the form, there is another form that only has 2 input boxes. If you input anything into the first box (SpeedType1) on that page everything goes fine. But if you enter anything into the first box (SpeedType1) AND the second box (SpeedType2), that's when I get the error page after submitting the form above. I've also checked the application.cfm file for cfcatch and cferror tags.

Meter answered 3/3, 2013 at 4:52 Comment(3)
Sounds like you tried many things to isolate the issue. Without code, its hard to speculate. Post both your form page and the target page please. Have you put in <CFABORT> tags on the processing page further and further down the code to see where it might be generating this error? That might help you figure out what line is causing the 500 error.Volcanism
Also, be sure you're using method=post...but @BenKoshy is right, let's see the code then we can avoid stupid speculation (like "be sure you're using method=post").Stimulant
It is a lot of code, but I will post it when I get back to a computer. Also, I just wanted to add that this code worked fine in Coldfusion 8 (on a Linux server). Thanks!!Meter
C
7

... The most recent hotfix [sic] for ColdFusion 9 can cause problems for people that have very large form submissions. The fix imposes a form field limit of 100 fields on submit. There is an override available for the default behavior, though ...

Reference: Adobe ColdFusion 9 Hotfix APSB12-06 Causes Problems with Large Forms

In short, you can override the limit by changing the <var name='postParametersLimit'> setting in neo-runtime.xml

Currish answered 4/3, 2013 at 16:39 Comment(1)
I just knew this couldn't be the answer, but I realized that although there are only 64 cfinput tags, one of them is inside a cfloop, which was in fact creating over 100 cfinput boxes. Why would they not put an error message for this?? Thanks a bunch!!Meter
S
1

You need To enable detailed errors in iis then You will get the cf error instead of 500 Internal server which will make debugging a lot easier. See here www.michaels.me.uk/post.cfm/enabling-coldfusion-railo-errors-on-iis-7

Stripteaser answered 3/3, 2013 at 14:51 Comment(0)
V
0

Add Have you tested writing to that network path with ColdFusion? Does it have the right credentials to write to eisdev1.nas.gatech.edu? Also ensure that your server is configured as @user1433501 has suggested.

Wrap your cffile in a try catch:

<!--- For testing--->
<cftry>

<cffile
    action="write"
    file="\\eisdevl.nas.gatech.edu\coldfusion\test\cfapps\cfeis\grantsys\testing\tf100.txt"
    output=#URL.tfile#
    nameconflict="overwrite"
>
<cfcatch type="any">
    <cfdump var="#cfcatch#">
</cfcatch>

See if that exposes the error.

Volcanism answered 4/3, 2013 at 22:24 Comment(0)

© 2022 - 2024 — McMap. All rights reserved.