Epost resultat från tabell

Ville78Medlem sedan juli 200319 inlägg

Frågan6 mars 2004 17:17#1

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

Mr NilsMedlem sedan jan. 2000640 inlägg

6 mars 2004 17:52#2

Som jag ser det (har ölglasögonen på mig) så verkar det som att du loopar igenom databasen, och sen går in i en mailfunktion. Resultatet blir då att det enda som skickas är den sista posten i databasen.

Det du kan göra istället är nog att dra loopen över mailmsg.Body istället.

---------------
Do While not rs.eof
meddelandet = meddelandet & dinsak & nästasak & radbrytning
rs.Movenext
Loop
--------------

eller att bygga meddelandet ovanför.

----------------
<%
Do While not rs.eof
meddelande = rs("ARTISTER") & rs("GRUID") & radbrytning
rs.Movenext
Loop
%>
------------------