details
07-17-2002, 12:47 AM
I have CDonts running for order confirmation.
I am requesting strAccessories, strDWDT,strNew,strExisting and strDWAemail from a form on another page. Basically letting the CDonts no what agreement to send. However if a user orders 2 things with 2 different agreements it sends last one. If the user orders 2 things that have the same agreement is shows nothings. How can I fix this? Can the line in CDONTS "strBody = dirwaytext" be rewritten to strBody = dirwaytext and accessories
<%
strAccessories = Request.form("strAccessories")
strDWDT = Request.form("strDWDT")
strNew = Request.form("strNew")
strExisting = Request.form("strExisting")
strDWAemail = Request.form("strDWAemail")
Dim objMsg, strFrom, strBcc, strTo, strSubject, strBody,lngImportance,dirwaytext
if strDWDT= "yes" then
dirwaytext = "Show this agreement"
end if
if strNew= "yes" then
dirwaytext = "Show this agreement"
end if
if strExisting= "yes" then
dirwaytext = "Show this agreement"
end if
if strDWAemail= "yes" then
dirwaytext = "Show this agreement"
end if
if strAccessories = "yes" then
accessories = "Show this agreement"
end if
strFrom = "sales@yourdomain.com"
strTo = Trim(Request.Form("strEmail"))
strBcc = "sales@yourdomain.com"
strSubject = "Thanks for Shopping With Us"
strBody = dirwaytext
lngImportance = 1
Set objMsg = Server.CreateObject("CDONTS.NewMail")
objMsg.From = strFrom
objMsg.To = strTo
objMsg.Bcc = strBcc
objMsg.Subject = strSubject
objMsg.Body = strBody
objMsg.Importance = lngImportance
objMsg.Send
Set objMsg = Nothing
%>
:confused: :confused:
I am requesting strAccessories, strDWDT,strNew,strExisting and strDWAemail from a form on another page. Basically letting the CDonts no what agreement to send. However if a user orders 2 things with 2 different agreements it sends last one. If the user orders 2 things that have the same agreement is shows nothings. How can I fix this? Can the line in CDONTS "strBody = dirwaytext" be rewritten to strBody = dirwaytext and accessories
<%
strAccessories = Request.form("strAccessories")
strDWDT = Request.form("strDWDT")
strNew = Request.form("strNew")
strExisting = Request.form("strExisting")
strDWAemail = Request.form("strDWAemail")
Dim objMsg, strFrom, strBcc, strTo, strSubject, strBody,lngImportance,dirwaytext
if strDWDT= "yes" then
dirwaytext = "Show this agreement"
end if
if strNew= "yes" then
dirwaytext = "Show this agreement"
end if
if strExisting= "yes" then
dirwaytext = "Show this agreement"
end if
if strDWAemail= "yes" then
dirwaytext = "Show this agreement"
end if
if strAccessories = "yes" then
accessories = "Show this agreement"
end if
strFrom = "sales@yourdomain.com"
strTo = Trim(Request.Form("strEmail"))
strBcc = "sales@yourdomain.com"
strSubject = "Thanks for Shopping With Us"
strBody = dirwaytext
lngImportance = 1
Set objMsg = Server.CreateObject("CDONTS.NewMail")
objMsg.From = strFrom
objMsg.To = strTo
objMsg.Bcc = strBcc
objMsg.Subject = strSubject
objMsg.Body = strBody
objMsg.Importance = lngImportance
objMsg.Send
Set objMsg = Nothing
%>
:confused: :confused: