Forums
This topic is locked
Email Cart
Posted 07 Jul 2003 04:37:15
1
has voted
07 Jul 2003 04:37:15 David Forshaw posted:
HiDoes anybody know how to email the contents of the cart using the PowerClimbs Ultracart?
I have got a page where the users fills in their info after shopping and that info and the cart details are sent to the shop.
But I dont know how to send that information and cart contents.
Does anybody?
Replies
Replied 08 Jul 2003 14:12:56
08 Jul 2003 14:12:56 David Behan replied:
I don't know the PowerClimb Cart but you could use something like this below:
<font color=blue>
'*******************************************************
'Build the body of the message
'*******************************************************
mailbody = mailbody & "==============================" & vbcrlf
mailbody = mailbody & "Cart Contents" & vbcrlf
mailbody = mailbody & "==============================" & vbcrlf & vbcrlf
mailbody = mailbody & "The following order has been received: " & vbcrlf & vbcrlf
For Each x in Request.Cookies("yourbasketcookiename"
<font color=red>'replace this with your cart location, name, etc.</font id=red>
mailbody = mailbody & x & ":" & vbcrlf & Request.Cookies("yourbasketcookiename"
(x) & vbcrlf & vbcrlf
Next
mailbody = mailbody & "==============================" & vbcrlf
mailbody = mailbody & "End Cart Contents" & vbcrlf
mailbody = mailbody & "==============================" & vbcrlf & vbcrlf
'*******************************************************
'Set mail settings and send the mail
'*******************************************************
SET objMail = Server.CreateObject("CDONTS.NewMail"
objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From = " "
objMail.To = " "
objMail.CC = ""
objMail.BCC = ""
objMail.Subject = "Cart Contents"
objMail.Importance = 2
objMail.Body = mailbody
objMail.Send
SET objMail = NOTHING
</font id=blue>
Regards,
Dave
_________________________
WinXP : IIS 5.1 : StudioMX : ASP : VBScript
www.dynamic.ie
Edited by - beano on 08 Jul 2003 14:13:59
<font color=blue>
'*******************************************************
'Build the body of the message
'*******************************************************
mailbody = mailbody & "==============================" & vbcrlf
mailbody = mailbody & "Cart Contents" & vbcrlf
mailbody = mailbody & "==============================" & vbcrlf & vbcrlf
mailbody = mailbody & "The following order has been received: " & vbcrlf & vbcrlf
For Each x in Request.Cookies("yourbasketcookiename"

mailbody = mailbody & x & ":" & vbcrlf & Request.Cookies("yourbasketcookiename"

Next
mailbody = mailbody & "==============================" & vbcrlf
mailbody = mailbody & "End Cart Contents" & vbcrlf
mailbody = mailbody & "==============================" & vbcrlf & vbcrlf
'*******************************************************
'Set mail settings and send the mail
'*******************************************************
SET objMail = Server.CreateObject("CDONTS.NewMail"

objMail.BodyFormat = 1
objMail.MailFormat = 1
objMail.From = " "
objMail.To = " "
objMail.CC = ""
objMail.BCC = ""
objMail.Subject = "Cart Contents"
objMail.Importance = 2
objMail.Body = mailbody
objMail.Send
SET objMail = NOTHING
</font id=blue>
Regards,
Dave
_________________________
WinXP : IIS 5.1 : StudioMX : ASP : VBScript
www.dynamic.ie
Edited by - beano on 08 Jul 2003 14:13:59