Hjælp med at gennemløbe koden et dynamisk antal gange

Hejsa

Jeg står og skal bruge lidt hjælp med nedenstående kode. Koden virker fint nok, men jeg skal have den lavet mere dynamisk. Det koden gør, er at gennenløbe en variabel, "Source", for at finde visse filtyper. Dog løber den kun variablen igennem en gang og finder derfor kun den første af de givne filer. Det jeg skal have hjælp til, er at gennemløbe koden alle de gange det nu er nødvendigt for at få alle de givne filer ud som ligger i paramtype arrayet.

Derudover, så skal det hele løbes igennem for alle 3 type parameter indstillinger, det vil sige:
name=filename
name=movie
name=src

Hvis jeg eks. har følgende information i min source:
<param name="filename" value="1.wmv">
<param name="src" value="1.swf">
<param name="src" value="1.dcr">
<param name="filename" value="1.mp3">
<param name="movie" value="1.swf">

Så skal jeg få en liste ud med følgende:
1.wmv
1.dcr
1.mp3
1.swf

Desuden vil jeg gerne gemme alle outputs i et nyt array som udskrives til sidste, for derved at sikre at 2 ens filer ikke bliver udskrevet 2 gange.

På forhånd tak.

<%
    ' -------------------------------------------------------
    Dim paramtype(6)
    paramtype(0) = "avi"
    paramtype(1) = "mpg"
    paramtype(2) = "mpeg"
    paramtype(3) = "wmv"
    paramtype(4) = "swf"
    paramtype(5) = "dcr"
    paramtype(6) = "mp3"
   
    Param = Replace(right(Source,len(Source)-instr(Source, "<param")), """", "")
    Param = right(Param,len(Param)-instr(Param, "name=filename")) ' Eller instr(Param, "name=movie")) ' ELLER instr(Param, "name=src"))
    Paramarr = split(Param, "value=")
    Param = Paramarr(1)
    Paramarr = split(Param, ">")
    Link = Paramarr(0)
    Udskriv = False
   
    For i = 0 To UBound(paramtype)
        If i = 2 Then
            If right(Link,5) = "." & paramtype(i) Then
                Udskriv = True
            End If
        Else
            If right(Link,4) = "." & paramtype(i) Then
                Udskriv = True
            End If
        End If
    Next
   
    If Udskriv Then
        ' Retter url'en til
        If not UrlTest(Link) Then Link = Url & Link
        Response.write "<a href=" & Link & ">" & Link & "</a><br>"
    End If
    ' -------------------------------------------------------
%>