<% Dim s_num, status Dim sql, ok_url '//파라미터정보 ************************************************************************************* s_num = InputValue( request("s_num") ) status = InputValue( request("status") ) chk = InputValue( request("chk") ) chk = Replace(chk, " ", "") chk = split(chk, ",") '//************************************************************************************************** If status = "totdel" Then '다중삭제 For z = 0 To UBound(chk) sql = " delete from emt_category where s_num = '" & chk(z) & "'" dbcon.execute sql '이모티콘 삭제 sql = "delete from emt where s_num = '" & chk(z) & "'" dbcon.execute sql next Set rs_3 = Nothing Else '//일반삭제 sql = " delete from emt_category where s_num = '" & s_num & "'" dbcon.execute sql '이모티콘 삭제 sql = "delete from emt where s_num = '" & s_num & "'" dbcon.execute sql End if If ct_ref = "0" then ct_ref = "" ok_url = "write.asp" Call loding ("0", ok_url) %>