7
Coldfusion 9 yüklü bir Windows 2008 sunucum var. Bir form gönderen bir başvuru sahibim ve gönderim sırasında 500 Dahili Sunucu Hatası sayfası alır. Günlükleri kontrol ettim ve orada hiçbir şey yok. 100'den fazla form alanı sunarak sorunu duydum, ancak formum 64, maks. IP adresimi eklediğimde ve HTTP durum kodları işaretlenmemiş olarak Sağlam Özel Durum Bilgilerini etkinleştirdim. Tüm sayfalardaki tüm hata ayıklama bilgilerini hata sayfasına kadar görebiliyorum. Sayfanın form alanlarına koyduğu tüm bilgileri bir dosyaya verdim ve sadece bu form alanlarını ve bu değerleri içeren bir sayfa oluşturdum ve iyi bir şekilde gönderir. Bir haftadır buna takıldım. Denemek için başka bir şey bilmiyorum. Baska öneri??? Lütfen!!!!Coldfusion 9 HTML formu 500 iç sunucu hatası
<!--- #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">
</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>
<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>
<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>
<INPUT type="hidden" name="SpeedType2" value="">
</CFIF>
</TD>
</TR>
<TR>
<TD colspan="2">
School/Center/Lab:
</TD>
<TD colspan="3">
#qHdr1.DESCR# - #qHdr1.DEPTID#
<INPUT type="hidden" name="DEPTID1" value="#qHdr1.DEPTID# - #qHdr1.DESCR# ">
<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#
<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>
</CFIF>
</TD>
</TR>
<TR>
<TD colspan="2">
Fund:
</TD>
<TD colspan="3">
#qHdr1.FUND_CODE# - #qHdr1.DESCR#
<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#
<CFELSEIF SpeedType2 EQ "">
<CFELSE>
#qHdr2.FUND_CODE# - #qHdr2.DESCR#
</CFIF>
<!--- CC8254 - End --->
</TD>
</TR>
<TR>
<TD colspan="2">
Project Director:
</TD>
<TD colspan="3">
#qHdr1.GT_PROJ_DIR# - #qHdr1.NAME#
<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#
<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>
</CFIF>
</TD>
</TR>
<TR>
<TD colspan="2">
Award No.:
</TD>
<TD colspan="3">
#qHdr1.GT_CONTR_NO#
<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#
<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>
<CFIF SpeedType2 EQ "NEW">
#qHdr1.GT_CONTR_NO#
<CFELSEIF SpeedType2 EQ "">
<CFELSE>
#qHdr2.GT_CONTR_NO#
</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>
</CFIF>
</TD>
</TR>
<TR>
<TD colspan="2">
Start Date:
</TD>
<TD colspan="3">
#DateFormat(qHdr1.GT_PROJ_STARTDT, "mm/dd/yyyy")#
<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")#
<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>
</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")#
<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")#
<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>
</CFIF>
<CFIF SpeedType2 EQ "new">(mm/dd/yyyy)</CFIF>
</TR>
</TD>
<TR>
<TD colspan="2">
Sponsor:
</TD>
<TD colspan="3">
#qHdr1.GT_SPON_NAME#
<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#
<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>
<CFIF SpeedType2 EQ "NEW">
#qHdr1.GT_SPON_NAME#
<CFELSEIF SpeedType2 EQ "">
<CFELSE>
#qHdr2.GT_SPON_NAME#
</CFIF>
<!--- CC8254 - End --->
</TD>
</TR>
<TR>
<TD colspan="2">
Name of Project:
</TD>
<TD colspan="3">
#qHdr1.GT_PROJ_TITLE#
<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#
<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>
</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>
</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>
</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>
</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">
Title:
<INPUT type="Text" name="Title" size="20" maxlength="35">
Date:
<cfinput type="Text" name="Date" required="No" size="20" maxlength="35" onChange="return (isValidDate(this))">
<BR>
<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>
Ve işte (sadece yapmıyor metin dosyası, yazmak için çok basit bir sayfası) gönderir sayfası: forma öncesi sayfada
<!--- For testing--->
<cffile action="write" file="\\eisdevl.nas.gatech.edu\coldfusion\test\cfapps\cfeis\grantsys\testing\tf100.txt" output=#URL.tfile#>
, başka formu bulunmamaktadır sadece 2 giriş kutusu var. Bu sayfada ilk kutucuğa (SpeedType1) herhangi bir şey girerseniz, her şey yolunda gider. Ancak, ilk kutuya (SpeedType1) ve ikinci kutuya (SpeedType2) herhangi bir şey girerseniz, yukarıdaki formu gönderdikten sonra hata sayfasını alırım. Ayrıca cfcatch ve cferror etiketleri için application.cfm dosyasını kontrol ettim.
Sorunu izole etmek için birçok şeyi denediğiniz gibi görünüyor. Kodsuz, spekülasyon yapmak zor. Hem form sayfanızı hem de hedef sayfanızı gönderin. Bu hatayı nerede oluşturduğunu görmek için işleme sayfasına etiketlerini koyduktan sonra kodun daha da aşağısına mı yazdınız? Bu, 500 hatanın hangi satıra neden olduğunu anlamanıza yardımcı olabilir. –
BKK
Ayrıca, yöntem = post ... kullandığınızdan emin olun, fakat @BenKoshy haklıysa, kodu görelim o zaman aptal spekülasyondan kaçınabiliriz ("method = post kullanıyor olduğunuzdan emin olun" gibi). –
Çok fazla kod var, ancak bir bilgisayara geri döndüğümde yayınlayacağım. Ayrıca, bu kodun Coldfusion 8'de (Linux sunucusunda) iyi çalıştığını eklemek istedim. Teşekkürler!! –