(*´д`*)ウッ… VB初心者質問スレ Part15

[0147 デフォルトの名無しさん NG NG]

質問させてくださいませ。
chck_cntの値が◆の時点で消えちゃうんだけど、
原因は何なんですかね？こんな現象初めてで、
困ってます。。。

function checkbox()
　　　dim iDatLoop
　　　dim iDatArray
　　　dim chck_cnt
　　　chck_cnt = 0
　　　Response.Write chck_cnt▲
　　　iDatArray=session.Contents("GHERLST_Dat")
　　　for iDatLoop = 0 to session.Contents("GHERLST_Cnt")-1
　　　　　　if request("ErrSend" & iDatLoop)="1" then
　　　　　　　　　iDatArray(iDatLoop,0)=1
　　　　　　　　　chck_cnt = chck_cnt + 1
　　　　　　　　　Response.Write chck_cnt◆
　　　　　　else
　　　　　　　　　iDatArray(iDatLoop,0)=0
　　　　　　end if
　　　next
　　　Response.Write chck_cnt○
　　　session.Contents("GHERLST_Dat")=iDatArray
　　　checkbox=chck_cnt
end function