'MacroName:856
'MacroDescription:856
'written by John Lavalie, Mar. 2, 2007
'deletes LC URLs

option explicit

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   dim tag856$, found856, x%, bad856$(10), y%, deleted856
   
   bad856$(0) = "Sample text"
   bad856$(1) = "Contributor biographical information"
   bad856$(2) = "Publisher description"
   bad856$(3) = "Table of contents"
      
   x% = x% + 1
   found856 = CS.GetField ("856", x%, tag856$)
   do while found856
      y% = 0
      deleted856 = FALSE
      do until bad856$(y%) = "" or deleted856
         if instr(tag856$, bad856$(y)) then 
            CS.DeleteField "856", x%
            deleted856 = TRUE
            x% = x% - 1
         end if
         y% = y% + 1 
      loop
      x% = x% + 1
      found856 = CS.GetField ("856", x%, tag856$)   
   loop   
   
End Sub