Hvordan udskrives ordreindhold i mail til kunde?
Hej EksperterIgen igen har jeg lidt problemer med min NetButik. Når en kunde har afgivet en ordre skal der sendes en mail til kunden (og butikken) med oplysninger om indholdet i ordren + kundeoplysninger.
Jeg har fundet ud af hvordan kundeoplysningerne bliver skrevet i mailen, men mit problem er nu at jeg ikke kan gennemskue hvordan jeg får skrevet en oversigt over varer i ordren i mailen.
Min kode:
--------
<%@ Language=VBScript %>
<!-- #include file="db.asp" -->
<!-- #include file="adovbs.inc" -->
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<%
dim rsOrder
%>
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
intOrderID = Request.form("intOrderID")
set rsOrder = Server.CreateObject("ADODB.Recordset")
rsOrder.Open "SELECT * FROM ordre WHERE orderID = " _
& intOrderID, Conn, adOpenStatic, adLockOptimistic, _
adCmdText
if rsOrder.EOF then
Response.Write "Der er problemer med din ordre. "
Response.Write "Kontakt venligst Datronic ApS på tlf.: 86 25 63 43."
else
'rsOrder("sAmt") = Request.form("intShipping")
'rsOrder("tax") = Request.form("intTax")
rsOrder("fNavn") = Request.form ("strFirst")
rsOrder("eNavn") = Request.form("strLast")
rsOrder("email") = Request.form("strEmail")
rsOrder("adresse1") = Request.form("strAddress1")
rsOrder("postnr") = Request.form("strPostalCode")
rsOrder("city") = Request.form("strCity")
rsOrder("land") = Request.form("strCountry")
rsOrder("telefon") = Request.form("strPhone")
rsOrder("shipAdresse") = Request.form("strShipAdresse")
rsOrder("Betaling") = Request.form("strBetaling")
rsOrder("total") = Request.form("intTotal")
rsOrder("orderDate") = now
rsOrder("status") = "COMPLETE"
rsOrder.Update
Conn.Execute("DELETE FROM ordrelinie WHERE " _
& "orderID = " & intOrderID)
set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "ordrelinie", Conn, adOpenStatic, adLockOptimistic, adCmdTable
for each item in Request.form("strOrderItem")
strOrderItem = cstr(item)
itemInfo = split(strOrderItem, ",")
rsItem.addNew
rsItem("orderID") = intOrderID
rsItem("vareid") = itemInfo(0)
rsItem("antal") = itemInfo(1)
rsItem.Update
next
rsItem.Close
set rsItem = Nothing
Session.abandon
end if
%>
<%
If Not rsOrder.EOF Or Not rsOrder.BOF Then
'MAIL TIL KUNDE
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "Datronic NetButik"
Mailer.FromAddress = "salg@Datronic.dk"
Mailer.RemoteHost = "mail.datronic.dk"
Mailer.AddRecipient request("strFirst"), request("strEmail")
Mailer.AddBCC "Datronic ApS", "afa@datronic.dk"
Mailer.Subject = "Din ordre hos Datronic Aps - ordrebekræftelse"
tekst = ""
linie = vbCrLf
if request("strFirst") <> "" then
tekst = tekst & "<font face='verdana' size='2'><b>Hej " & request("strFirst") & linie & linie
end if
tekst = tekst & "</font></b><br><font face='verdana' size='1' color='black'>Bemærk! Du kan ikke besvare denne mail.</font>" & linie & linie
tekst = tekst & "<br><br><font face='verdana' size='2'>Tak! Fordi du handlede hos Datronic ApS<br>"& linie & linie
tekst = tekst & "Følgende ordre er blevet modtaget:" & linie & linie
tekst = tekst & "<br><br><strong>Ordrenr: </strong>" & request("intOrderID") & linie & linie & linie & linie
tekst = tekst & "<br><br><strong>Kundeoplysninger: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strFirst") & " " & request("strLast") & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strAddress1") & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strPostalCode") & " " & request("strCity") & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strCountry") & linie & linie & linie & linie
tekst = tekst & "<br>Tlf.: " & request("strPhone") & linie & linie & linie & linie
tekst = tekst & "<br><br><strong>E-mail: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strEmail")& linie & linie
tekst = tekst & "<br><br><strong>Betalingsform: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strBetaling")& linie & linie
tekst = tekst & "<br><br><strong>Leveringsadresse: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("strShipAdresse")& linie & linie
tekst = tekst & "<br><br><strong>Ordreindhold: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br><br>Med venlig hilsen"& linie
tekst = tekst & "<br>Datronic ApS / NetButik"& linie & linie
tekst = tekst & "<br>Har du spørgsmål vedr. din ordre, skriv til <a href='mailto:salg@datronic.dk.dk'><font color=black>salg@datronic.dk</font></a>"& linie & linie & linie
'tekst = tekst & "<br><br><font color=green>GLÆDELIG JUL</font> <font color=red>&</font> <font color=green>GODT NYTÅR </font>"
Mailer.BodyText = tekst
Mailer.ContentType = "text/html"
Mailer.SendMail
End If
rsOrder.Close
set rsOrder = Nothing
Conn.Close
set Conn = Nothing
%>
<html>
<head>
<title>Tak for din bestilling</title>
<Link Rel="stylesheet" href="datronic.css" Type="text/css" > <!-- link til ekstern style sheet -->
<style type="text/css">
<!--
body {
margin-top: 0px;
margin-left: 4px;
}
-->
</style>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style2 {color: #000098}
-->
</style>
</head>
<body>
<!--følgende tekst udskrives når ordren er blevet gemt i databasen og mail er sendt til kunde+butik-->
<table width="490" cellpadding="0" cellspacing="0">
<tr>
<td height="18" bgcolor="#545DB9" colspan="2"><span class="style1">Tak for din bestilling</span></td>
</tr>
<tr><td> </td></tr>
<tr><td>Din ordre med ordrenr. <strong><span class="style2"><%= intOrderID %></span></strong> er blevet afsendt.<br>
<!-- ordreid udskrives, så kunden kan ordrenr/ordreid-->
Du vil om kort tid modtage en e-mail med oplysninger omkring din ordre.</td></tr>
<tr><td> </td></tr>
<tr><td>Har du spørgsmål vedr. din ordre kontakt salg på <a href="mailto:salg@datronic.dk">salg@datronic.dk</a></a></td></tr>
<tr><td> </td></tr>
<tr><td align="center"><p>Tak fordi du handlede hos Datronic ApS</p></td></tr>
</table>
</body>
</html>
--------
Så mit spørgsmål igen - hvordan skrives indholdet af varer i ordren ud i mailen til kunden??
Håber meget at der er nogen der har mod på at hjælpe mig!
/Annette
