Replace [pic] med billede

Jeg forestiller mig du kan benytte et regulært udtryk til at finde alle [pic] og trække dets id ud


nyhed = "en [pic id=1] nyhed [pic id=3]"

Set re = New RegExp
re.Global = True
re.Pattern = "\[pic id=(\d+)]"
Set matches = re.Execute(nyhed)

For Each match In matches
    id = match.SubMatches(0)

    sql = "select * from billedtabel where id=" & id
    Set rs = Conn.Execute(sql)

    link = "<img src=""/pictures/" & rs("link") & """ align=""right"">"
    nyhed = Replace(nyhed, match, link)
Next

Response.Write nyhed

Sådan, det kunne jo ikke virke ret meget bedre...

Der er 100 point på vej til dig hvis du lægger et svar.

Mange tak for hjælpen :)

-