indsæt udtræks i string med komma imellem

indents = \" & rs(\"nummer1\") & \", \" & rs(\"nummer2\") & \", \" & rs(\"nummer3\") & \"\"

Do while rs.EOF

indents = indents & rs(\"nummer\") & \", \"
rs.movenext
Loop

Det virker ikke

nummer 2 er meget mulig, men virker ikke.
Udtræk er ikke fastlagt!
Udtrækkene fortsætter indtil man når enden!

Er den svær?

Skal det ikke være Not EOF, Da eof er END Of File

Indents=\"\"
Do while NOT rs.EOF
indents = indents & rs(\"nummer\") & \", \"
rs.movenext
Loop

jo

do until rs.eof
for each head in rs.fields
indents = indents \",\"& head.value
next
rs.monenxt
loop

  do until rs.eof
for each head in rs.fields
indents = indents & \",\"& head.value
next
rs.monenxt
loop 

  do until rs.eof
for each head in rs.fields
indents = indents & \",\"& head.value
next
rs.movenext
loop 

Hvordan fjerner man så sidste komma og erstatter det med et punktum?

do until rs.eof
for each head in rs.fields
indents = indents & \",\"& head.value
next
rs.movenext
loop 
indenst = left(indenst, (len(indents) -1))

do until rs.eof
for each head in rs.fields
indents = indents & \",\"& head.value
next
rs.movenext
loop 
indenst = left(indenst, (len(indents) -1)) & \".\"

Hvad er head og fields?

fields er et array af alle feltnavn.

head er blot et navn som jeg har givet det, for at løbe igennem arrayet.

Nej det skal ikke være alle felter men dem der passer til forespørgslen

Huh ? Forespørger du kun på et felt ? Lad mig se din sql, du kan jo bare sige

select feltnavn from tabel

så virker min.

Hvad er der galt her:

SQL4 = \"SELECT * FROM mailinglist WHERE Emailad = \'\" & Emailad & \"\';\"
Set rsClients2 = Conn.execute( SQL4 )
Do while not rsClients2.EOF
SQL5 = \"SELECT * FROM Users WHERE Username = \'\" &  rsClients2(\"Username\") & \"\';\"
Set rs= Conn.execute (SQL5)
do while rs.eof
Forumname =rs(\"Forumname\")

for each Forumname in rs.fields
indents = indents & \",\"& Forumname.value
next
rs.movenext
loop 
indents = left(indenst, (len(indents) -1)) & \".\" 
JMail.Body = JMail.Body & Indents

SQL4 = \"SELECT * FROM mailinglist WHERE Emailad = \'\" & Emailad & \"\';\"
Set rsClients2 = Conn.execute( SQL4 )
Do while not rsClients2.EOF
SQL5 = \"SELECT forumname FROM Users WHERE Username = \'\" &  rsClients2(\"Username\") & \"\';\"
Set rs= Conn.execute (SQL5)
do while rs.eof

for each Forumname in rs.fields
indents = indents & \",\"& Forumname.value
next
rs.movenext
loop 
indents = left(indenst, (len(indents) -1)) & \".\" 
JMail.Body = JMail.Body & Indents

Dette virker. Den tager bare og sætter et komma for meget på så outputtet starter med \",\" og det resulterer i at den så ikke tager det sidste bogstav med. Altså et komma for meget i starten...
Hvordan kan jeg fjerne dette?

Set rsClients2 = Conn.execute( SQL4 )
Do while not rsClients2.EOF
SQL5 = \"SELECT * FROM Users WHERE Username = \'\" &  rsClients2(\"Username\") & \"\';\"
Set rs= Conn.execute (SQL5)
Do while Not rs.eof
Forumname =rs(\"Forumname\")

indents = indents & \",\"& Forumname

rs.movenext
loop 
rsClients2.movenext
loop
indents = left(indents, (len(indents) -1)) & \".\" 
JMail.Body = JMail.Body & Indents

indents bliver her
\",nummer1,nummer2,nummer.\"

Hvad er det du vil have den til ???

       
Jeg har fundet ud af det. netsrac var tættest på, så du får pointene. Sådan er den kommet til at se ud. Nu modtager jeg en sætning med de udtræk der er lavet pr. email.


SQL4 = \"SELECT * FROM mailinglist WHERE Emailad = \'\" & Emailad & \"\';\"

Set rsClients2 = Conn.execute( SQL4 )
Do while not rsClients2.EOF
SQL5 = \"SELECT * FROM Users WHERE Username = \'\" &  rsClients2(\"Username\") & \"\';\"
Set rs= Conn.execute (SQL5)
Do while Not rs.eof
Forumname =rs(\"Forumname\")

indents = indents & \",\"& Forumname

rs.movenext
loop 
rsClients2.movenext
loop
indents = right(indents, (len(indents) -1))
indents = left(indents, (len(indents))) & \".\" 
JMail.Body = JMail.Body & Indents
   
               
        JMail.Body= JMail.Body + vbCrLf & vbCrLf & \"Med venlig hilsen\" & vbCrLf & site
       
                        \' Send it...
       

Jeg takker for hjælpen. disse loops er ikke min stærke side... Men nu virker det!

Så lidt :-)

Nu har jeg fundet ud af at lave en funktion som erstatter det sidste \",\" med og.

Og nu virker hele mulevitten!!!


SQL4 = \"SELECT * FROM mailinglist WHERE Emailad = \'\" & Emailad & \"\';\"

Set rsClients2 = Conn.execute( SQL4 )
Do while not rsClients2.EOF
SQL5 = \"SELECT * FROM Users WHERE Username = \'\" &  rsClients2(\"Username\") & \"\';\"
Set rs= Conn.execute (SQL5)
Do while Not rs.eof
Forumname =rs(\"Forumname\")

indents = indents & \", \"& Forumname

rs.movenext
loop 
rsClients2.movenext
loop
indents = right(indents, (len(indents) -1))
indents = left(indents, (len(indents))) & \".\" 
count=InstrRev(indents,\",\", -1, 1)+1


NString= left(indents,count-2)
Mstring= right(indents,len(indents)-count)
indents= NString & \" og \" & MString

JMail.Body = JMail.Body & Indents