Array udfordring til eksperterne

Heya,

jeg har en lille udfordring til de gode ASP-hajer her på Eksperten. Jeg har en form med 1 stk. <textarea> hvor jeg copy/paster noget data indi - for derefter at submitte det til en Access database. Her et eksempel på en stak data, der ryger ind i textareaen:

1  B. Iversholt Go 0 0 9 33% 0 13 0

12  W. Bresann De 0 0 2 50% 3 33% 0 2
28  C. Byrval De 0 0 10 50% 19 37% 0 9
4  C. Overup De 0 0 3 67% 7 43% 0 3

Bemærk:
- Der kan opstå 2 mellemrum indimellem
- Procenttallene bliver fjernet
- Der kan være et par hele linjer, der skal fjernes

De 2 første punkter har jeg fået fikset vha. en Function der fjerner dobbelt-mellemrum og procenttallene. Men Punkt 3 kan jeg ikke lige hitte ud af at fjerne. I får lige koden til Functionen:

--
Function removeBad(orig)
  Dim clean(), cnt, i, j
   
  ' Tæl elementer uden et % tegn
  for i=0 to UBound(orig)
    Response.Write orig(i) & "<br>"
      If InStr(1, orig(i), "%") <= 0 Then cnt = cnt + 1
  Next

  ' Lav et array til elementerne uden % tegnet
  ' og kopiér elementerne over i det nye array
  redim clean(cnt)
  j=0
  for i=0 to UBound(orig)
    If InStr(1, orig(i), "%") <= 0 Then
      clean(j) = orig(i)
      j = j + 1
    End If
  Next

  ' Returnér array'et
  removeBad = clean

End Function
--

Jeg splitter arrayet med følgende kode:

--
rows = split(request.form("information"), vbCrLf)
for i=0 to UBound(rows)
  cols = split(Replace(rows(i), "  ", " "), " ")
  cols = removeBad(cols) 'Fjerner alle tal der indeholder et % tegn
--

Men hvordan får jeg lige automatisk fjernet HELE linjer fra det pastede data?