---
title: "dela upp en text och lägga in bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/146934-dela-upp-en-text-och-lägga-in-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "peppar"
published: "2006-05-16T19:50:59.000Z"
updated: "2006-05-16T19:50:59.000Z"
replies: 0
views: 290
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/146934-dela-upp-en-text-och-lägga-in-bilder"
---

# dela upp en text och lägga in bilder

## #1 — peppar, 2006-05-16T19:50Z

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

Permalänk: https://www.webforum.nu/p/146934

---

Tråden på webben: https://www.webforum.nu/amne/asp/146934-dela-upp-en-text-och-lägga-in-bilder