<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %> <% ' ' ' On Error Resume Next CheckSession szObj = Request.QueryString("obj") Err.Clear OpenAllStores DeleteItemByID szObj, False If Err.Number <> 0 Then ReportError1 errFailDeleteMessage End If %>