dela upp en text och lägga in bilder

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

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

för att kunna bygga namngivna stycker typ såhär:

<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>

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...

Vad gör jag för fel?

sql = "SELECT art_pages.*,art_typ.*,art_artiklar.*,art_bilder.*,medlemsregister.* "&_
"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>
	  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