<% dim id, action, objRS, uid, gid, objCon, strSQL, arrUid, i, types, catID,apply,ok types = request.form("types") id = request.form("id") gid = request.form("gid") catId = request.form("catID") apply = request.form("apply") ok = request.form("ok") set objCon = server.createobject("adodb.connection") with objCon .open datastore SELECT Case types Case "editgroup" strSQL = "update pgd_groupPermission Set "&_ "post_reply = "&request.form("post_reply")&","&_ "poll = "&CheckedOrNot(request.form("poll"))&","&_ "vote = "&CheckedOrNot(request.form("vote"))&","&_ "rate = "&CheckedOrNot(request.form("rate"))&","&_ "uploadRestriction = '"&SQLAccessInput(checkUploadSize(request.form("uploadSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("uploadFormat")),"/"))&"',"&_ "isActive = "&CheckedOrNot(request.form("isActive"))&" "&_ "WHERE forumid="&id&" and gid = "&gid ' response.write strSQL ' response.end .execute strSQL, , adCmdText + adExecuteNoRecords Case "addgroup" strSQL = "Insert Into pgd_groupPermission Values( "&gid&", "&id&","&_ ""&request.form("post_reply")&","&_ ""&CheckedOrNot(request.form("poll"))&","&_ ""&CheckedOrNot(request.form("vote"))&","&_ ""&CheckedOrNot(request.form("rate"))&","&_ "'"&SQLAccessInput(checkUploadSize(request.form("uploadSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("uploadFormat")),"/"))&"',"&_ ""&CheckedOrNot(request.form("isActive"))&")" ' response.write strSQL ' response.end .execute strSQL, , adCmdText + adExecuteNoRecords End SELECt .close end with set objCon = nothing If lcase(apply) = "apply" then response.redirect ("admin_g_psetup.asp?types=editgroup&gid="&gid&"&id="&id&"&catID="&catid) response.end else %> <% end if %>