<% Dim BBS_Category BBS_Category = Trim(Request("BBS_Category")) Dim dbConn SET dbConn = GetDBConn() Dim PID, LinkID, Page, Passwd, strListPage PID = Trim(Request("PID")) LinkID = Trim(Request("LinkID")) Page = Trim(Request("Page")) Passwd = Trim(Request("Passwd")) strListPage = Trim(Request("strListPage")) 'on error resume next Dim sqlContent sqlContent = "Select BBS_PASSWD From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_NO = "& PID & " AND BBS_LINKID = " & LINKID Dim rsContent, BBS_PASSWD Set rsContent = dbconn.Execute(sqlContent) BBS_PASSWD = Trim(rsContent("BBS_PASSWD")) rsContent.close Set rsContent = Nothing Dim sqlText, Rs, n IF Passwd = BBS_PASSWD Then sqlText = "delete E_bbs where BBS_Category = '"&BBS_Category&"' AND BBS_LINKID = " & LINKID dbconn.Execute(sqlText) OnlyMsgView("Complete delete.") ReFresh(strListPage) Else %> <% End if 'on error goto 0 Set dbconn = Nothing %>