cdonts och loop

Vill loopa igenom all poster i databasen med vissa kriterier men den tar bara med den sista posten, var lägger jag loopen??

<%

Set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "xxxx"

sql= "select k.epost, o.orderID,o.datum,o.antal,o.smak,o.storlek, p.vara, p.pris from kunder k, orderRad o, produkter p where o.artikelid = p.prodid and o.datum = date() and o.kundid = "&kund
rs.open sql,conn

do until (rs.eof)

orderid = rs("orderid")
vara = rs("vara")
smak = rs("smak")
storlek = rs("storlek")
antal = rs("antal")
pris = rs("pris")
summa = totalsumma
epost = rs("epost")

uppg = "Du har beställt följande från Muskelbutiken" & vbCrLf & vbCrLf
uppg = uppg & "OrderID: " & orderid & vbCrLf
uppg = uppg & "Vara: " & vara & vbCrLf
uppg = uppg & "Smak: " & smak & vbCrLf
uppg = uppg & "Storlek: " & storlek & vbCrLf
uppg = uppg & "Antal: " & antal & vbCrLf
uppg = uppg & "Pris: " & pris &":-" & vbCrLf

rs.movenext
loop

uppg = uppg & "Summa: " & summa &":- " & "inklusive frakt och postförskott" & vbCrLf & vbCrLf
uppg = uppg & "Med vänliga hälsningar" & vbCrLf
uppg = uppg & "xxx"

Set mail = Server.CreateObject("CDONTS.NewMail")
mail.Subject = "Order"
mail.Body = uppg
mail.From = "info@blabla"
mail.Host = "mail.bla.com"
mail.To = epost
Mail.Bcc = "bengt.pellster@telia.com"
mail.Send
set mail = Nothing

Flytta upp den här raden till ovanför Do-raden:

uppg = "Du har beställt följande från Muskelbutiken" & vbCrLf & vbCrLf

Använd gärna webForums [kod]-taggar så blir din kod mer lättläst. http://www.webforum.nu/misc.php?s=&action=bbcode

Mvh,

mycket bättre men varje produkt visas nu i mailet,, 7ggr????

OrderID: 116095772
Vara: Kreatin 5
Smak: Choklad
Storlek:
Antal: 1
Pris: 99:-

OrderID: 116095772
Vara: Kreatin 6
Smak:
Storlek:
Antal: 1
Pris: 59:-

OrderID: 116095772
Vara: Kreatin 5
Smak: Choklad
Storlek:
Antal: 1
Pris: 99:-

OrderID: 116095772
Vara: Kreatin 6
Smak:
Storlek:
Antal: 1
Pris: 59:-

osv.......

och sist i mailet är det ett = tecken???

Plus att jag får 3 st mail...det borde vara 2 st, ett till kunden och ett till mig

Om du lägger till DISTINCT i din SELECT-fråga då?
Får du rätt resultat om du ställer SQL-frågan direkt i Access?

hjälper inte med distinct och jag får intetill frågan i Access....

vet inte hur man gör faktiskt

Öppna databasen i access, välj Frågor, sedan 'Skapa en fråga i designläge'. Stäng dialogrutan 'Visa tabell'. Uppe till vänster finns en knapp (precis under Arkiv-menyn), som det hos mig står SQL på. Klicka på den, sedan är det bara att klistra in din SQL-fråga i fönstret. Klicka på ! för att exekvera frågan.

Mvh,

det står att det finns ord eller argument som är reserverade eller felaktiga eller så är skiljetecknen felaktiga

så här står de nu i access

SELECT;k.epost, o.orderID,o.datum,o.antal,o.smak,o.storlek, p.vara, p.pris from kunder k, orderRad o, produkter p where o.artikelid = p.prodid and o.datum = date() and o.kundid = "&kund

Ta bort semikolonet efter select, och ersätt din asp-kod på slutet med det kundnummer du använder på asp-sidan.

den visar alla kunder!!!

och det är 7 st testkunder.....

varför gör den så

Du har inte med tabellen kunder i din wheresats. Prova:

sql= "select k.epost, o.orderID,o.datum,o.antal,o.smak,o.storlek, p.vara, p.pris from kunder k, orderRad o, produkter p where o.artikelid = p.prodid and o.datum = date() and k.kundid=o.kundid and o.kundid = "&kund

Jag har antagit att fältet kundid finns även i tabellen kunder.

Mvh,

tack Anders!!

Nu funkar det perfekt!!!

Utm att den skickar 3 st likadana mail... jag har bara t mailadresser som den skickar till ju!!

Nu åker jag på semester en hel vecka... ska bli gott

ha det bra

3 likadana mail? Vilken mailadress är det som får dubbelt?