Find links og gem i array

<%
test="Dette er en streng med tilfældige links, se fx <a href=""http://www.minhjemmesidesomertilældig.dk"">Min hjemmeside</a>. Strengen kan indeholde mange forskellige links som fx. <a href=""http://www.side1.dk"">side nummer 1</a>, <a href=""http://www.side2.com"">side 2</a> osv."

p=1
links=""
do
  start=instr(p,lcase(test),"<a href=")
  slut=instr(p+8,lcase(test),">")

  p=p+start+slut

  if start>0 and slut>0 then
    resultat=mid(test,start+8,slut-start-8)
    if left(resultat,1)="""" or left(resultat,1)="'" then resultat=right(resultat,len(resultat)-1)
    if right(resultat,1)="""" or right(resultat,1)="'" then resultat=left(resultat,len(resultat)-1)
    links=links&resultat&"~"
  end if
loop while p<len(test)

if right(links,1)="~" then links=left(links,len(links)-1)

linkarray=split(links,"~")

for t=lbound(linkarray) to ubound(linkarray)
  response.write linkarray(t)&"<br>"
next

%>

hov, der er jo en fejl... det er en OMMER:

<%
test="Dette er en streng med tilfældige links, se fx <a href=""http://www.minhjemmesidesomertilældig.dk"">Min hjemmeside</a>. Strengen kan indeholde mange forskellige links som fx. <a href=""http://www.side1.dk"">side nummer 1</a>, <a href=""http://www.side2.com"">side 2</a> osv. <a href=mortvader.dk>mortvader.dk</a>"

p=1
links=""
do
  start=instr(p,lcase(test),"<a href=")
  slut=instr(start+8,lcase(test),">")

  if start>0 and slut>0 then
    resultat=mid(test,start+8,slut-start-8)
    if left(resultat,1)="""" or left(resultat,1)="'" then resultat=right(resultat,len(resultat)-1)
    if right(resultat,1)="""" or right(resultat,1)="'" then resultat=left(resultat,len(resultat)-1)
    links=links&resultat&"~"
    p=slut
  end if


loop while (p<=len(test))and(start>0)and(slut>0)

if right(links,1)="~" then links=left(links,len(links)-1)

linkarray=split(links,"~")

for t=lbound(linkarray) to ubound(linkarray)
  response.write linkarray(t)&"<br>"
next

%>

Dér!

mange tak, jeg tester løsningen nu...

Det virker lige efter planen... mange tak. Vil du venligst ligge et svar også takker jeg for den hurtige respons.

Det var så lidt.

Jeg lavede den første som svar, så du kan bruge den :)

ja okay, ikke sådan når der er ferie... Til andre der evt skal bruge dette kan måske lige kort tilføje følgende omkring, idet scriptet ellers opfører sig lidt "forkert" i meget uheldige situationer:

If (InStr(strLinks, "~") = 0) Then

End If

hov:

If (InStr(test, "~") = 0) Then

End If