Avatar billede bruhnsweb Nybegynder
21. februar 2005 - 09:54 Der er 10 kommentarer og
1 løsning

send ordredata via jmail

Hej Eksperter

jeg skal sende en ordrebekræftigelse via jmail.

Jeg er i tvivl om hvordan jeg får fat i varenes navne.

Jeg skal bruge 3 tabeller.

[ordrer]

[ordre_linjer]

[produkter]

mit problem er at produkterne først skal loopes i selve mailen, og der skal deres navn så hentes :-s

Det er her jeg står af...

-----------------------------------------------------------------
<%
'Sender email til kunden
Set rs_send_mail = Server.CreateObject("ADODB.RecordSet")
rs_send_mail.open "Select * from ordrer where id = " & request.QueryString("order_id"), Conn,1,3

Set rs_ordre_linjer = Server.CreateObject("ADODB.RecordSet")
rs_ordre_linjer.open "Select * from ordre_linjer where ordre_id = " & rs_send_mail("id"), Conn,1,3

'Her udstrives felterne fra databasen
email = rs_send_mail("email")
navn = rs_send_mail("navn")
'### DER MANGLER EN DEL FELTER ENDNU ###


set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "kundeservice@domæne.dk"
msg.FromName = "domæne.dk"
msg.AddRecipient email
msg.Subject = "Din bestilling hos domæne.dk"
'nedenstående står på en linje
msg.Body = "<font face='Verdana' size='2'>Kære " & navn & "<br><br>Tak for din bestilling hos domæne.dk.<br><br>--------------------------------------------<br>BETALING:<br>Du har betalt med dankort.<br>Der vil blive hævet " & belob&",- DKK fra din konto når pakkene sendes.<br><br>--------------------------------------------<br>LEVERINGSADRESSE:<br>" & navn & "<br>"&adresse&"<br>"&postnr&"&nbsp;" & by & "<br><br>--------------------------------------------<br>ORDREDATA:"&do while not rs_ordre_linjer.eof&""&antal&" stk. "&produktnavn&" a' " & pris & " - I alt: DKK " &ialt&",-<br>" & rs_ordre_linjer.movenext&""&loop&"</font>"

if not msg.Send("backup-mx.wannafind.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
'tadaa det virker :o)
end if
%>
-----------------------------------------------------------------

Er der nogen der ved hvad jeg skal gøre for at få produkternes navn ind i mailen???

//BRuhn
Avatar billede netro Nybegynder
21. februar 2005 - 11:22 #1
Ja, så skal du lave en join.

rs_ordre_linjer.open "Select o.OrdrelinieID, p.Produktnavn from ordre_linjer o Left Join produkter p On o.ProduktID = p.Produkt.ID where o.ordre_id = " & rs_send_mail("id"), Conn,1,3

do while not rs_ordre_linjer.eof
  response.write rs_ordre_linjer("OrdrelinieID") & " (" & rs_ordre_linjer("Produktnavn") & "<br>"
  rs_ordre_linjer.MoveNext
loop
Avatar billede bruhnsweb Nybegynder
21. februar 2005 - 11:42 #2
ok nice - jeg får godt nok en syntax error i denne linje:
Men det behøver jo ikke at være din fejl ;o)

Gider du at se hvad det kan være??

-------------------------------------------------------------------------------------
msg.Body = "<font face='Verdana' size='2'>Kære " & navn & "<br><br>Tak for din bestilling hos billigvoks.dk.<br><br>--------------------------------------------<br>BETALING:<br>Du har betalt med dankort.<br>Der vil blive hævet " &belob&",- DKK fra din konto når pakkene sendes.<br><br>--------------------------------------------<br>LEVERINGSADRESSE:<br>" & navn & "<br>"&adresse&"<br>"&postnr&"&nbsp;" & by & "<br><br>--------------------------------------------<br>ORDREDATA:"&do while not rs_ordre_linjer.eof&""&antal&" stk. "&rs_ordre_linjer("Produktnavn")&" a' " & pris & " - I alt: DKK " &ialt&",-<br>" & rs_ordre_linjer.movenext&""&loop&"</font>"
-------------------------------------------------------------------------------------

// Bruhn
Avatar billede bruhnsweb Nybegynder
22. februar 2005 - 12:31 #3
netro? nogen idé

Jeg tror at det har noget med det loop at gøre som jeg laver:
ORDREDATA:"&do while not rs_ordre_linjer.eof&""

Hvordan skal jeg ellers lave det?
Avatar billede netro Nybegynder
22. februar 2005 - 14:27 #4
-------------------------------------------------------------------------------------
Body = "<font face='Verdana' size='2'>Kære " & navn & "<br><br>Tak for din bestilling hos billigvoks.dk.<br><br>--------------------------------------------<br>BETALING:<br>Du har betalt med dankort.<br>Der vil blive hævet " &belob&",- DKK fra din konto når pakkene sendes.<br><br>--------------------------------------------<br>LEVERINGSADRESSE:<br>" & navn & "<br>"&adresse&"<br>"&postnr&"&nbsp;" & by & "<br><br>--------------------------------------------<br>ORDREDATA:"
do while not rs_ordre_linjer.eof
  Body = Body & antal&" stk. "&rs_ordre_linjer("Produktnavn")&" a' " & pris & " - I alt: DKK " &ialt&",-<br>"
  rs_ordre_linjer.movenext
loop
Body = Body & "</font>"
Msg.Body = Body
-------------------------------------------------------------------------------------
Avatar billede netro Nybegynder
22. februar 2005 - 14:29 #5
Jeg ved ikke helt, hvor variablerne antal og pris kommer fra.
Avatar billede bruhnsweb Nybegynder
22. februar 2005 - 20:10 #6
Hej igen...

Fejl:
--------------------------------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/files/file_16.asp, line 20
--------------------------------------------------------------------------------------


Linje 20:
--------------------------------------------------------------------------------------
rs_ordre_linjer.open "Select o.OrdrelinieID, p.Produktnavn from ordre_linjer o Left Join produkter p On o.ProduktID = p.Produkt.ID where o.ordre_id = " & rs_send_mail("id"), Conn,1,3
--------------------------------------------------------------------------------------
Avatar billede netro Nybegynder
22. februar 2005 - 22:34 #7
Og du har selvfølgelig husket:

Set rs_ordre_linjer = Server.CreateObject("ADODB.RecordSet")

??
Avatar billede bruhnsweb Nybegynder
22. februar 2005 - 23:40 #8
Jo den er med - Det er en MySQL database - hvis det hjælper!!
Avatar billede netro Nybegynder
24. februar 2005 - 11:42 #9
Prøv bare at sige:

Set rs_ordre_linjer = Conn.Execute("Select o.OrdrelinieID, p.Produktnavn from ordre_linjer o Left Join produkter p On o.ProduktID = p.Produkt.ID where o.ordre_id = " & rs_send_mail("id"))
Avatar billede bruhnsweb Nybegynder
24. februar 2005 - 14:39 #10
Jeg har fåett det fixet nu - så smid et svarm for det var det som du havde lavet der virkede - skulle bare et par små ændringer til :o)
Avatar billede netro Nybegynder
24. februar 2005 - 14:41 #11
Okay, her er så et svarm.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester