Tilføj fil ikoner i URL

Jeg går ud fra at det er i database udtræk, så skal du bare sætte den kode ind i den While/wend løkke :)
Det burde virke
<%
dim minUrl,picUrl
minUrl= "text/word.doc"
minUrl = Split(minUrl,".")

Select Case minUrl(Ubound(minUrl))
    Case "html"
        picurl = "img/html.gif"
    Case "pdf"
        picurl = "img/pdf.gif"
    Case "doc"
        picurl = "img/word.gif"
    Case Else
        picUrl = "img/fejl.gif"
End Select

Response.Write "<img src=""" & picUrl &""">"
%>

Jeg bruger en DHTML editor til at oprette link på siden og gemme i DB.
De bliver gemt sådan

<a href="URL/filnavn.doc"> Text </a>
<a href="URL/filnavn.pdf"> Text </a>
<a href="URL/filnavn.html"> Text </a>

Jeg skal lave en funktion der finder links på siden og dem der har
<a href="URL/filnavn.doc"> får de word ikon før --> Tekst </a>


Jeg bruger regXp til at finde og replace "

regXp.Pattern = "( [a-z]+?=)([\w:/\.\-\?\=\&]+)"
str = regXp.replace(str,"$1""$2""")

Kan funktionen genbruges til at finde link og tilføje billede mellem <a href="URL/filnavn.doc"> og  tekstlink </a>
Tak for hjælp