Epost resultat från tabell
Kan någon hjälpa mig med detta litta problem?

Har satt ihop en liten webbshop och där gjort en temporär tabell som fungerar som en varukorg, där alla varor som kunden vill köpa läggs.

När kunden bestämt sig och klicka på godkännt vill jag det automatiskt går ett mial till mig där att varor som kunden vill köpa radas upp.

Får allt att funka perfekt förutom att mailet bara vil skriva ut en rad med varor oavsätt hur många som köpts. Hägner ni med på vad jag vill åstadkomma? Men hur gör jag?

Så här har jag skrivit hittills, vad behöver ändras?


<%
Do While not rs.eof
ARTISTER=rs("ARTISTER")
GRUID=rs("GRUID")
AID=rs("AID")
TITEL=rs("TITEL")
PRIS=rs("PRIS")
rs.Movenext
Loop
%>
<%'--------------Skicka ett bekräftelse email------- %>
<% Dim NyEpost, Fnamn, Epost
Set mailmsg = Server.CreateObject("CDONTS.NewMail")
mailmsg.To = "info@xxxxx.com"
mailmsg.From = "vargen@xxxxx.com"
mailmsg.Body = " '"&FNAMN&"', '"&ENAMN&"' " & Chr(13) & Chr(10) & "'"&ADRESS&"', '"&POSTNR&"', '"&POSTORT&"', '"&EPOST&"'" & Chr(13)& Chr(10)& " '"&AID&"', '"&TITEL&"', '"&PRIS&"', '"&KID&"' "
mailmsg.Host = "mail-gw.xxxxx.com"
mailmsg.Send %>
<%'---------------Epost Skickat-----------------------%>
<%rs.close%>

Tack på förhand för svar

Ok, tack skall testa om jag kan få det att funka.

OK, funkade!

Problemt är bara att den nu skirver ihop skivtitlar, priser etc om någon köper felra skivor. Hur i hela friden frå jag till det så att den skriver ut skividé, titel och pris på en rad för varje skiva som en kund köper?

Du loopar ju ut alla poster först och då får du dem på en rad.

Du skulle ju kunna köra Loopen men att du efter varje rad lägger till ett VbCrlf för att få ett radbryt.
Sen stoppar du in det där du nu skriver ut vad kunden har köpt.

//Anna-Karin

NEj, jag får det inte att funka med era tips, vet inte om det är jag som är ovanligt trög idag men det vill sig inte. Någon som har någon idé om vad jag gör för fel.

Så här se koden ut nu:

<%
Do While not rs.eof
AID=AID & rs("AID")
TITEL=TITEL & rs("TITEL")
PRIS=PRIS & rs("PRIS")
rs.Movenext
Loop
%>
<%'--------------Skicka ett bekräftelse email------- %>
<% Dim NyEpost, Fnamn, Epost
Set mailmsg = Server.CreateObject("CDONTS.NewMail")
mailmsg.To = "info@xxxxx.com"
mailmsg.From = "vargen@xxxxx.com"
mailmsg.Body = " '"&FNAMN&"', '"&ENAMN&"' " & Chr(13) & Chr(10) & "'"&ADRESS&"', '"&POSTNR&"', '"&POSTORT&"', '"&EPOST&"'" & Chr(13)& Chr(10)& " '"&AID&"', '"&TITEL&"', '"&PRIS&"', '"&KID&"' "
mailmsg.Host = "mail-gw.xxxxx.com"
mailmsg.Send %>
<%'---------------Epost Skickat-----------------------%>
<%rs.close%>


Mailet jag får ut ser ut så här:

Namn
adress epost
skividskivid, skivtitelskivtitel, prispris, kundid

Skulle vilja att det såg ut så här istället:

Namn
adress epost
Skivid, skivtitel, pris, kundid
skivid, skivtitel, pris

Hur får jag detta??

Hej,
prova detta:

<code>
<%
Dim sBodyText
sBodyText = ""

Do While not rs.eof
sBodyText = sBodyText & rs("AID") & " " & rd("TITEL") & " " & rs("PRIS") & vbCrLf
Loop

'Skicka ett bekräftelse mail
Dim NyEpost, Fnamn, Epost
Set mailmsg = Server.CreateObject("CDONTS.NewMail")
mailmsg.To = "info@xxxxx.com"
mailmsg.From = "vargen@xxxxx.com"
mailmsg.Body = " '"&FNAMN&"', '"&ENAMN&"' " & Chr(13) & Chr(10) & "'"&ADRESS&"', '"&POSTNR&"', '"&POSTORT&"', '"&EPOST&"'" & vbCrLf & sBodyText & vbCrLf & " '"&KID&"' "
mailmsg.Host = "mail-gw.xxxxx.com"
mailmsg.Send
rs.close
'Epost skickat
%>
</code>

Nix funkar inte alls, men tack i varje fall.

Borde väl funka med Jonas exempel ovan, men han glömde "rs.MoveNext".
Alltså:
<code>
Do While not rs.eof
sBodyText = sBodyText & rs("AID") & " " & rs("TITEL") & " " & rs("PRIS") & vbCrLf
rs.MoveNext
Loop
</code>

/Jocke

Hoppsan, men det väl sånt som händer :-)