<%option explicit%> <% '*************************************************************** ' set credit card numbers to null ' if Useprocessed=Yes then only processed orders will change ' otherwise all orders will be changed ' VP-ASP 4.00, 4.50, 3.50, 3.0 '*************************************************************** const UseProcessed="Yes" ' dim myconn, msg, usql shopcheckadmin "" shopopendatabase myconn usql="update orders set ocardno=NULL" if ucase(useprocessed)="YES" then usql=usql & " where oprocessed<>0" end if myconn.execute (usql) shopclosedatabase myconn ' if ucase(useprocessed)="YES" then msg="Card numbers removed from processed orders" else msg="Card numbers removed from all orders" end if adminpageheader response.write msg & "
" adminpagetrailer %>