'MacroName:gsafd

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   r% = 99
   
   gsafd$ = "Christian fiction|Melodramatic fiction|Movie novels|Philosophical fiction|Radio and television novels|Regency fiction|Romantic suspense fiction"
   
   do
      CS.GetFieldLine r%, temp$
      if instr$(temp$, "2 fast") then 
            CS.DeleteFieldLine r%
      else
         if instr$(temp$, "2 gsafd") then 
            temp$ = mid(temp$, 6)
            temp$ = left(temp$, len(temp$) - 10)
            if instr(gsafd$, temp$) then 
               'do nothing
            else
               CS.DeleteFieldLine r%
            end if
         end if
      end if
      r% = r% - 1
   loop until r% = 1
   
End Sub