21. februar 2005 - 09:54Der 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&" " & 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???
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
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&" " & 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>" -------------------------------------------------------------------------------------
------------------------------------------------------------------------------------- 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&" " & 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 -------------------------------------------------------------------------------------
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 --------------------------------------------------------------------------------------
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"))
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.