array og loop

Jeg opretter og udskriver array i hvert loop,
1.loop virker det fint, men 2.loop gør ikke.
arrayet er måske ikke blevet tømt fra 1.loop eller ???????




DO

    Set regEx = New RegExp                    ' opretter regular expression.
    regEx.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    regEx.IgnoreCase = True                  ' Set case insensitivity.
    regEx.Global = True                      ' Set global applicability.
    Set Matches = regEx.Execute(streng)        ' Execute search.

    Dim strLink() 
    nr=0 
    For Each Match in Matches             
      nr=nr+1
      Redim Preserve strLink(nr)
      strLink(nr) = Match.Value 'fylder array
    Next
   
    Set Matches = nothing   
    set regEx = Nothing   
           

        For t = LBound(strLink) to UBound(strLink)
            intLinkWhere = Instr(strLink(t), ".dk") + 2
            strUrl = left(strLink(t), intLinkWhere)
            Response.Write strUrl& "<br>"
        Next


rs.MoveNext
Loop While Not rs.EOF