---

Nedenfor har jeg, helt håbløst forsøgt mig med en løkke i en løkke.
Overordnet er det min tanke at der til en tekst kan knyttes flere afsnit og
til disse afsnit kan knyttes flere billeder. Jeg har forsøgt mig med
nedenstående kode, men det virker ikke. Er der nogle der kan hjælpe mig med
koden for afsnit og billeder? Koden er nedenfor:

<!--#include file="connect_inc.asp" --> <% strSQL = "Select * From q_b_2
Where ID = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)%>
<% Response.Write rs("overskrift") & "<p>"%>

<% While Not rs.EOF
%>

<% Response.Write rs("afsnitsoverskrift") & rs
("afsnitstekst")%> <% While Not rs.EOF%>
<% Response.Write rs("billede")%>
<% RS.MoveNext Wend
%> <% RS.MoveNext
Wend
%>
<%
Conn.Close
Set Conn = Nothing
%>

---

"Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
news:4642ed30$0$14013$edfadb0f@dread15.news.tele.dk...
> Nedenfor har jeg, helt håbløst forsøgt mig med en løkke i en løkke.
> Overordnet er det min tanke at der til en tekst kan knyttes flere afsnit
> og til disse afsnit kan knyttes flere billeder. Jeg har forsøgt mig med
> nedenstående kode, men det virker ikke. Er der nogle der kan hjælpe mig
> med koden for afsnit og billeder? Koden er nedenfor:

Har ikke kunnet teste det, men prøv dette:

<!--#include file="connect_inc.asp" -->

<%
strSQL = "Select * From q_b_2 Where ID = " & Request.Querystring("id")
Set rs1 = Conn.Execute(strSQL)
Set rs2 = Conn.Execute(strSQL)
Response.Write rs1("overskrift") & "<p>"

While Not rs1.EOF
Response.Write rs1("afsnitsoverskrift") & rs1("afsnitstekst")
While Not rs2.EOF
Response.Write rs2("billede")
rs2.MoveNext
Wend
rs1.MoveNext
Wend

Conn.Close
Set Conn = Nothing
%>



Neuhafen






>
> <!--#include file="connect_inc.asp" --> <% strSQL = "Select * From q_b_2
> Where ID = " & Request.Querystring("id")
> Set rs = Conn.Execute(strSQL)%>
> <% Response.Write rs("overskrift") & "<p>"%>
>
> <% While Not rs.EOF
> %>
>
> <% Response.Write rs("afsnitsoverskrift") & rs
> ("afsnitstekst")%> <% While Not rs.EOF%>
> <% Response.Write rs("billede")%>
> <% RS.MoveNext Wend
> %> <% RS.MoveNext
> Wend
> %>
> <%
> Conn.Close
> Set Conn = Nothing
> %>
>

---

"Neuhafen" <neuhafen sNaBeL-A neuhafen dk> skrev i en meddelelse
news:4642f9ed$0$68233$edfadb0f@dread16.news.tele.dk...
> "Henrik Woer" <henrik@woer.dk> skrev i en meddelelse blandt andet;
> news:4642ed30$0$14013$edfadb0f@dread15.news.tele.dk...

Tak for hjælpen. Det fungerer upåklageligt.

Henrik

---

"Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
news:46430fba$0$14019$edfadb0f@dread15.news.tele.dk...
>
> "Neuhafen" <neuhafen sNaBeL-A neuhafen dk> skrev i en meddelelse
> news:4642f9ed$0$68233$edfadb0f@dread16.news.tele.dk...
>> "Henrik Woer" <henrik@woer.dk> skrev i en meddelelse blandt andet;
>> news:4642ed30$0$14013$edfadb0f@dread15.news.tele.dk...
>
> Tak for hjælpen. Det fungerer upåklageligt.

Tak for tilbagemeldingen...
Det er altid rart at kunne hjælpe !


Neuhafen


>
> Henrik
>
>

---

On Thu, 10 May 2007 12:54:37 +0200, "Neuhafen" <neuhafen sNaBeL-A
neuhafen dk> wrote:

><%
>strSQL = "Select * From q_b_2 Where ID = " & Request.Querystring("id")
>Set rs1 = Conn.Execute(strSQL)
>Set rs2 = Conn.Execute(strSQL)
>Response.Write rs1("overskrift") & "<p>"
>
>While Not rs1.EOF
> Response.Write rs1("afsnitsoverskrift") & rs1("afsnitstekst")
> While Not rs2.EOF
> Response.Write rs2("billede")
> rs2.MoveNext
> Wend
> rs1.MoveNext
>Wend
>
>Conn.Close
>Set Conn = Nothing
>%>

På mig virker det som noget "snask" at have to recordsets med samme
indhold.

Så længe der kun er ét afsnit med flere billeder, så er skaden vel til
at overse. Men hvad nu hvis der er flere afsnit med billeder knyttet til
forskellige afsnit? Så vil man få alle billeder tilknyttet alle afsnit.

Jeg tror måske Henrik skal kigge på sin database-opbygning. Er der fx
både en artikelId og en afsnitId?

Men det kan sagtens klares uden to recordsets:
<%
strAfsnitOvsOld = ""
While Not rs1.EOF
strAfsnitOvs = rs("afsnitsoverskrift")
If strAfsnitOvs <> strAfsnitOvsOld Then
Response.Write strAfsnitOvs & rs("afsnitstekst")
strAfsnitOvsOld = strAfsnitOvs
End If
Response.Write rs("billede")
rs.MoveNext
Wend
%>


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:d5d643lc0usk61fom7613le7h5jg6dp2gd@4ax.com...
> On Thu, 10 May 2007 12:54:37 +0200, "Neuhafen" > . Men hvad nu hvis der er
> flere afsnit med billeder knyttet til
> forskellige afsnit? Så vil man få alle billeder tilknyttet alle afsnit.

Du havde helt ret.....
> Jeg tror måske Henrik skal kigge på sin database-opbygning. Er der fx
> både en artikelId og en afsnitId?

Ja, der
> Men det kan sagtens klares uden to recordsets:
> <%
> strAfsnitOvsOld = ""
> While Not rs1.EOF
> strAfsnitOvs = rs("afsnitsoverskrift")
> If strAfsnitOvs <> strAfsnitOvsOld Then
> Response.Write strAfsnitOvs & rs("afsnitstekst")
> strAfsnitOvsOld = strAfsnitOvs
> End If
> Response.Write rs("billede")
> rs.MoveNext
> Wend
> %>

Jørn, jeg kan ikke få dit scrpt til at virke. fejlmeddelelsen er følgende
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/b1.asp, line 116

Og ja, både afsnit og billeder har sit eget ID nummer.

Hilsen, og på forhånd tak for hjælpen



Henrik

---

"Henrik Woer" <henrik@woer.dk> skrev
>> Men det kan sagtens klares uden to recordsets:
>> <%
>> strAfsnitOvsOld = ""
>> While Not rs1.EOF
>> strAfsnitOvs = rs("afsnitsoverskrift")
>> If strAfsnitOvs <> strAfsnitOvsOld Then
>> Response.Write strAfsnitOvs & rs("afsnitstekst")
>> strAfsnitOvsOld = strAfsnitOvs
>> End If
>> Response.Write rs("billede")
>> rs.MoveNext
>> Wend
>> %>
>
> Jørn, jeg kan ikke få dit scrpt til at virke. fejlmeddelelsen er følgende
> Microsoft VBScript runtime error '800a01a8'
>
> Object required: ''
>
> /b1.asp, line 116

Er det "rs" du mangler at "sette"...
Bjarne

---

On Thu, 10 May 2007 19:05:37 +0200, "Henrik Woer" <henrik@woer.dk>
wrote:

>> Men det kan sagtens klares uden to recordsets:
>> <%
>> strAfsnitOvsOld = ""
>> While Not rs1.EOF
>> strAfsnitOvs = rs("afsnitsoverskrift")
<snip>
>Jørn, jeg kan ikke få dit scrpt til at virke. fejlmeddelelsen er følgende
>Microsoft VBScript runtime error '800a01a8'
>
>Object required: ''
>
>/b1.asp, line 116

Check lige, at der står enten rs eller rs1 alle steder.
Som du kan se herover, fik jeg ikke omdøbt alle rs1 til rs.


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

On Thu, 10 May 2007 19:05:37 +0200, "Henrik Woer" <henrik@woer.dk>
wrote:

>> Er der både en artikelId og en afsnitId?
>
>Ja, der

OK - og hvert afsnit kan have 0, 1 eller flere billeder?

I så fald ville jeg nok bruge AfsnitId til at detektere afsnitskift, da
tal er lettere at sammenligne end tekst:

<%
intAfsnitIdOld = 0
While Not rs.EOF
intAfsnitId = rs("AfsnitId")
If intAfsnitId <> intAfsnitIdOld Then
Response.Write rs("afsnitsoverskrift") & rs("afsnitstekst")
intAfsnitIdOld = intAfsnitId
End If
Response.Write rs("billede")
rs.MoveNext
Wend
%>

Du må selv lige tage højde for, hvad du gør i de situationer, hvor der
er 0 billeder til et afsnit

Good luck!

--
Jørn Andersen,
Brønshøj

---

"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:2mb743tfiosseg9h46togt8aoelaicboog@4ax.com...
> On Thu, 10 May 2007 19:05:37 +0200, "Henrik Woer" <henrik@woer.dk>
> wrote:
>
>>> Er der både en artikelId og en afsnitId?
>>
>>Ja, der
>
> OK - og hvert afsnit kan have 0, 1 eller flere billeder?
>
> I så fald ville jeg nok bruge AfsnitId til at detektere afsnitskift, da
> tal er lettere at sammenligne end tekst:
>
> <%
> intAfsnitIdOld = 0
> While Not rs.EOF
> intAfsnitId = rs("AfsnitId")
> If intAfsnitId <> intAfsnitIdOld Then
> Response.Write rs("afsnitsoverskrift") & rs("afsnitstekst")
> intAfsnitIdOld = intAfsnitId
> End If
> Response.Write rs("billede")
> rs.MoveNext
> Wend
> %>
>
> Du må selv lige tage højde for, hvad du gør i de situationer, hvor der
> er 0 billeder til et afsnit

Jeg har nu lavet billede om til IMG og det virker for så svidt bortset fra
at jeg ikke kan få vertikal afstand mellem billederne. Jeg har forsøgt med
en <br> i responsesætningen, men det virker ikke, 1. Hvad går der galt og
hvodan kan jeg få den ønskede afstand.

Tak til alle der hjælper i gruppen. For hvert svar lærer jeg noget nyt og
håber en dag at jeg ikke må spørge om det meste!

---

On Sun, 13 May 2007 01:41:26 +0200, "Henrik Woer" <henrik@woer.dk>
wrote:

>Jeg har nu lavet billede om til IMG og det virker for så svidt bortset fra
>at jeg ikke kan få vertikal afstand mellem billederne. Jeg har forsøgt med
>en <br> i responsesætningen, men det virker ikke, 1. Hvad går der galt og
>hvodan kan jeg få den ønskede afstand.

Så er du nok nødt til at sende et link til siden, så vi kan se det i
sammenhæng.

PS: Gider du tage et kig på:
<url: http://www.usenet.dk/netikette/citatteknik.html>

--
Jørn Andersen,
Brønshøj

---

Neuhafen skrev:
> "Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
> news:4642ed30$0$14013$edfadb0f@dread15.news.tele.dk...
>> Nedenfor har jeg, helt håbløst forsøgt mig med en løkke i en løkke.
>> Overordnet er det min tanke at der til en tekst kan knyttes flere afsnit
>> og til disse afsnit kan knyttes flere billeder. Jeg har forsøgt mig med
>> nedenstående kode, men det virker ikke. Er der nogle der kan hjælpe mig
>> med koden for afsnit og billeder? Koden er nedenfor:
>
> Har ikke kunnet teste det, men prøv dette:
>
> <!--#include file="connect_inc.asp" -->
>
> <%
> strSQL = "Select * From q_b_2 Where ID = " & Request.Querystring("id")
> Set rs1 = Conn.Execute(strSQL)
> Set rs2 = Conn.Execute(strSQL)
> Response.Write rs1("overskrift") & "<p>"
>
> While Not rs1.EOF
> Response.Write rs1("afsnitsoverskrift") & rs1("afsnitstekst")
> While Not rs2.EOF
> Response.Write rs2("billede")
> rs2.MoveNext
> Wend
> rs1.MoveNext
> Wend
>
> Conn.Close
> Set Conn = Nothing
> %>

Det virker nok meget godt lige nu, men det går helt sikkert galt meget
snart, da databaseskemaet nedenunder umuligt kan kravle op på bare 1.
normalform.

Woer: hvordan ser din tabel ud og ved du hvad et join er?

Mvh. Michael.
--
Which is more dangerous? TV guided missiles or TV guided families?
I am less likely to answer usenet postings by anonymous authors.
Visit my home page at http://michael.zedeler.dk/

---

"Michael Zedeler" <michael@zedeler.dk> skrev i en meddelelse
news:kPM0i.80$4K5.30@news.get2net.dk...
> Neuhafen skrev:
>> "Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
>> news:4642ed30$0$14013$edfadb0f@dread15.news.tele.dk...
>>> Nedenfor har jeg, helt håbløst forsøgt mig med en løkke i en løkke.
>>> Overordnet er det min tanke at der til en tekst kan knyttes flere afsnit
>>> og til disse afsnit kan knyttes flere billeder. Jeg har forsøgt mig med
>>> nedenstående kode, men det virker ikke. Er der nogle der kan hjælpe mig
>>> med koden for afsnit og billeder? Koden er nedenfor:
>>
>> Har ikke kunnet teste det, men prøv dette:
>>
>> <!--#include file="connect_inc.asp" -->
>>
>> <%
>> strSQL = "Select * From q_b_2 Where ID = " & Request.Querystring("id")
>> Set rs1 = Conn.Execute(strSQL)
>> Set rs2 = Conn.Execute(strSQL)
>> Response.Write rs1("overskrift") & "<p>"
>>
>> While Not rs1.EOF
>> Response.Write rs1("afsnitsoverskrift") & rs1("afsnitstekst")
>> While Not rs2.EOF
>> Response.Write rs2("billede")
>> rs2.MoveNext
>> Wend
>> rs1.MoveNext
>> Wend
>>
>> Conn.Close
>> Set Conn = Nothing
>> %>
>
> Det virker nok meget godt lige nu, men det går helt sikkert galt meget
> snart, da databaseskemaet nedenunder umuligt kan kravle op på bare 1.
> normalform.
>
> Woer: hvordan ser din tabel ud og ved du hvad et join er?
>
> Mvh. Michael.

Hej Michael og Jørn

Jeg er meget taknemmelig for jres hjælp! Jeg har lagt screendumps af min
tabelstruktur og af forespørgslen på følgende side:
http://www.woer.dk/tak.asp

Jeg har desværre stadigvæk bøvl med at køre Jørns Script. I kan se siden
her: www.woer.dk/b1.asp

Med venlig hilsen

Henrik

---

"Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
news:46441832$0$52089$edfadb0f@dread11.news.tele.dk...
>
>> Jeg har desværre stadigvæk bøvl med at køre Jørns Script. I kan se siden
> her: www.woer.dk/b1.asp

Nu har jeg fået Jørns script til at køre, men glæder mig også til at få
input fra Michael

---

Henrik Woer skrev:
> "Michael Zedeler" <michael@zedeler.dk> skrev i en meddelelse
> news:kPM0i.80$4K5.30@news.get2net.dk...
>> Neuhafen skrev:
>>> "Henrik Woer" <henrik@woer.dk> skrev i en meddelelse
>>> news:4642ed30$0$14013$edfadb0f@dread15.news.tele.dk...
>>>> Nedenfor har jeg, helt håbløst forsøgt mig med en løkke i en løkke.
>>>> Overordnet er det min tanke at der til en tekst kan knyttes flere afsnit
>>>> og til disse afsnit kan knyttes flere billeder. Jeg har forsøgt mig med
>>>> nedenstående kode, men det virker ikke. Er der nogle der kan hjælpe mig
>>>> med koden for afsnit og billeder? Koden er nedenfor:
>>> Har ikke kunnet teste det, men prøv dette:
>>>
>>> <!--#include file="connect_inc.asp" -->
>>>
>>> <%
>>> strSQL = "Select * From q_b_2 Where ID = " & Request.Querystring("id")
>>> Set rs1 = Conn.Execute(strSQL)
>>> Set rs2 = Conn.Execute(strSQL)
>>> Response.Write rs1("overskrift") & "<p>"
>>>
>>> While Not rs1.EOF
>>> Response.Write rs1("afsnitsoverskrift") & rs1("afsnitstekst")
>>> While Not rs2.EOF
>>> Response.Write rs2("billede")
>>> rs2.MoveNext
>>> Wend
>>> rs1.MoveNext
>>> Wend
>>>
>>> Conn.Close
>>> Set Conn = Nothing
>>> %>
>> Det virker nok meget godt lige nu, men det går helt sikkert galt meget
>> snart, da databaseskemaet nedenunder umuligt kan kravle op på bare 1.
>> normalform.
>>
>> Woer: hvordan ser din tabel ud og ved du hvad et join er?
>>
>> Mvh. Michael.
>
> Hej Michael og Jørn
>
> Jeg er meget taknemmelig for jres hjælp! Jeg har lagt screendumps af min
> tabelstruktur og af forespørgslen på følgende side:
> http://www.woer.dk/tak.asp
>
> Jeg har desværre stadigvæk bøvl med at køre Jørns Script. I kan se siden
> her: www.woer.dk/b1.asp

Din sql henviser til noget der hedder q_b_2. Er det tilfældigvis et view?

Mvh. Michael.
--
Which is more dangerous? TV guided missiles or TV guided families?
I am less likely to answer usenet postings by anonymous authors.
Visit my home page at http://michael.zedeler.dk/

---

> Din sql henviser til noget der hedder q_b_2. Er det tilfældigvis et view?
>
> Mvh. Michael.
/
Hej michael

Jeg tror ikke helt jeg forsår hvad du mener.

Hilsen

Henrik