Variabel spørgsmål

Hej... Jeg skriver nogen beskeder ud i et loop. I dette loop tjekker den efter bestemte keywords og gør det til et link (i koden nedenfor er jubii brugt som eksempel). Det jeg ønsker er, at der ikke kun er angivet ét keyword - men flere og at linkene er forskellige - dvs. hvis der f.eks. står jubii - skal den linke til jubii.dk, står der yahoo skal den linke til yahoo.dk osv. Der skal altså tilknyttes flere variabler med tilhørende link.

PS: alt det mellemliggende kode skal altså bruges - derfor har jeg klippet det med ind.


--- KODE ---
<%
Dim besked, erstattekst, finalbesked
erstattekst = "test"
finalbesked = replace(besked, erstattekst, "<a href='http://www.jubii.dk' target='_blank'>" & erstattekst & "</a>")

index = inStr(1,finalbesked,"#id")
do while index > 0
  tempChar = mid(finalbesked,index+3,1)
  counter = 1
  'forsæt indtil næste karakter ikke er et tal
  do while isNumeric(tempChar)
    tempChar = mid(finalbesked,index+3+counter,1)
    counter = counter + 1
  loop
  'Så kan slut på tallet findes
  indexSlut = index+3+counter-1
  finalbesked = left(finalbesked,index-1) & mid(finalbesked,indexSlut)
  index = inStr(indexSlut,finalbesked,"#id")
loop

        If InStr(besked,"skjulnr") <> 0 Then
        visudennr = Left(finalbesked, InStrRev(finalbesked, "skjulnr") - 1)

response.write visudennr
    else
Response.Write finalbesked
end if %>

--- KODE SLUT ---