Jag splittar en text från en databas såhär:

arrParagraf = split(rs("artText"),vbCrlf)

för att skriva ut texten i stycken typ såhär:
<codeasp><div class="paragraph" id="paragraph1"><p id=a1>Lorem</p></div>
<div class="paragraph" id="paragraph2"><p id=a2>ipsum</p></div>
<div class="paragraph" id="paragraph3"><p id=a3>dolor</p></div></code>
Anledningen till varför, är att jag vill kunna lägga in bilder i olika stycken. Jag har en tabell i relation till artikeltabellen som innehåller alla data för bilderna. T.ex sökväg, höjd, bredd, align och vilket stycke bilden skall läggas in i.

Nu vill jag få in bilderna i rätt stycken helt enkelt, men detta var en för mig svår nöt att knäcka.
Det går bra när det bara finns en bild relaterad till texten, men om det finns flera så fungerar det lite sämre... Så här ser min SQL ut och resten av koden...
<codeasp>sql = "SELECT art_pages.*,art_typ.*,art_artiklar.*,art_bilder.*,medlemsreg ister.* "&_
"FROM (((art_artiklar "&_
"INNER JOIN art_pages "&_
"ON art_artiklar.artId = art_pages.pagArtOrigin) "&_
"INNER JOIN art_typ "&_
"ON art_typ.typId = art_artiklar.artTyp) "&_
"INNER JOIN medlemsregister "&_
"ON medlemsregister.usrId = art_artiklar.artUsrID) "&_
"LEFT JOIN art_bilder "&_
"ON art_bilder.bldParent = art_artiklar.artId "&_
"WHERE artId = "& request.querystring("artId") &" ;"
set rs = conndb1.execute(sql)
sql1 = "SELECT * FROM art_bilder where bldParent = "& rs("artId")
set rs1 = conndb1.execute(sql1)



if not rs.eof then

'##-- Vi skall namnge alla nya stycken så vi kan flytta vilderna mellan styckena (så småningom)
arrParagraf = split(rs("artText"),vbCrlf)
styckeNummer = 1
for i = 0 to ubound(arrParagraf)

'## -- Är det en tom sträng här så vill vi inte ha en tom <p id="a1"></p>, nej, nej, nej!
if arrParagraf(i) = "" then

else
'##-- I vilket stycke skall vi lägga respektive bild ?
if not styckenummer = rs("bldParagraph") then
response.write "<div class=""paragraph"" id=""paragraph"&+styckeNummer&"""><p id=a"& +styckeNummer &">"& arrParagraf(i) &"</p></div>"& vbCrlf
else
response.write "<div class=""paragraph"" id=""paragraph"&+styckeNummer&"""><p id=a"& +styckeNummer &"><img src=""../artiklar/"&rs1("bldPath")&""" align="""&rs1("bldAlign")&""" width=""100"" height=""67"" border=""0"" id=""img"&rs1("Id")&"_p"&rs1("bldParagraph")&""" name=""img"&rs1("Id")&"_p"&rs1("bldParagraph")&""" alt=""img"&rs1("Id")&"_p"&rs1("bldParagraph")&""" />"& arrParagraf(i) &"</p></div>"& vbCrlf
end if
styckeNummer = styckeNummer + 1
end if

next


'##-- om inget returneras från databasen skall inget skrivas ut... men finns retur så skriv ut...
else
response.write "Inget skrivet ännu...!"
end if</code>

Hur kan jag göra om min utskrift så att den skriver ut texten i stycken och samtidigt kollar om rs("bldParagraph") stämmer med styckenumret och lägger till bilden i det stycket?