 |
|
Operation is not allowed when the object is closed.
เออเรอตามนี้ค่ะ ข้อมูลลงฐานข้อมูลค่ะ
ไม่เข้าใจเลยจริงๆรบกวนผุ้รุ้ตอบให้ทีนะคะ
นี่คือ โค้ดที่เกี่ยวข้องค่ะ คือมันเป็นการวนลูปบันทึก checkbox ที่เลือก
If (Request("saveaccessedit") ="บันทึก" ) and (Session("RidEdit_access") <> "") then
access_edit_sls_pr = 0
sql = ""
sql = "Select * From DSP_VAT_MST "
sql = sql & " Where DVM_FR_DT <= '"&DateNow&"' "
sql = sql & " and DVM_DISPLAY = '2' "
set rs = conn.execute(sql)
do while not rs.eof
access_edit_vat = Ccur(rs vat = rs("DVM_VAT_VAL")
vats = ccur(vat)/100
rs.movenext
loop
sql1 = ""
sql1 = "Select * From DSP_MOD_MST"
sql1 = sql1 & " Where MMT_FR_DT <= '"&DateNow&"' "
sql1= sql1 & " and MMT_DISPLAY = '2' "
sql1= sql1 & " Order by MMT_SRS_CD,MMT_MOD_CD,MMT_MOD_SFX"
set rs5 = conn.execute(sql1)
do while not rs5.eof
chkbxcode_accessedit1 = "accessedit_chkboxId"&rs5("MMT_SRS_CD")&"#"&rs5("MMT_MOD_CD")&"|"&rs5("MMT_MOD_SFX")
txtaccesseditst1 = rs5("MMT_SRS_CD")&"#"&rs5("MMT_MOD_CD")&"|"&rs5("MMT_MOD_SFX")
If (Request(chkbxcode_accessedit1) = txtaccessnewst1) then
txtaccesseditst2a = rs5("MMT_SRS_CD")
txtaccesseditst3a = rs5("MMT_MOD_CD")
txtaccesseditst4a= rs5("MMT_MOD_SFX")
txtfrdate_accessedit1 = "accessedit_fr_date"&txtaccesseditst1
txtfrmonth_accessedit1 = "accessedit_fr_month"&txtaccesseditst1
txtfryear_accessedit1 = "accessedit_fr_year"&txtaccesseditst1
txtdisplay_accessedit1 = "accessedit_display"&txtaccesseditst1
If (Request(txtfryear_accessedit1) = "") OR (Request(txtfrmonth_accessedit1) = "") OR (Request(txtfrdate_accessedit1) = "") then
txtfrDMY_accessedit1 = NwYear&"/"&NwMonth&"/"&NwDate
Else
txtfrDMY_accessedit1 = Cstr(Cint(Request(txtfryear_accessedit1))-543)&"/"&Request(txtfrmonth_accessedit1)&"/"&Request(txtfrdate_accessedit1)
End If
sql1= ""
sql1= "Insert Into VSC_MOD_OPN_MST"
sql1 = sql1 & " (MOM_OPN_CD,"
sql1 = sql1 & " MOM_SRS_CD,"
sql1 = sql1 & " MOM_MOD_CD,"
sql1 = sql1 & " MOM_MOD_SFX, "
sql1 = sql1 & " MOM_FR_DT,"
sql1 = sql1 & " MOM_DISPLAY,"
sql1 = sql1 & " MOM_CRE_BY,"
sql1 = sql1 & " MOM_CRE_DT) "
sql1 = sql1 & " Values('"&Session("Ridedit_access")&"' , "
sql1 = sql1 & " '"&txtaccesseditst2a&"' , "
sql1 = sql1 & " '"&txtaccesseditst3a& "' , "
sql1 = sql1 & " '"&txtaccesseditst4a& "', "
sql1= sql1& " '"&txtfrDMY_accessedit1&"' , "
sql1 = sql1 & " '2' , "
sql1 = sql1 & " '" &Session("Iduedit_access")& "' , "
sql1 = sql1 & " '" &DateNow& "' )"
set rs5 = conn.execute(sql1)
End If
rs5.movenext // เออเรอ บรรทัดนี้ค่ะ
loop
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
14 พ.ย. 2549 09:59:02 |
By :
isis_preaw |
View :
3052 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
