--- title: "Problem med CDONTS" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/103476-problem-med-cdonts" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "dxilaban" published: "2004-05-12T21:52:25.000Z" updated: "2004-05-15T16:09:27.000Z" replies: 9 views: 388 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/103476-problem-med-cdonts" --- # Problem med CDONTS ## #1 — dxilaban, 2004-05-12T21:52Z Hej Jag har gjort en kundkorg där jag sedan vill skicka min beställning via epost. Jag får med alla uppgifter utom kundkorgens innehåll. Är det någon som vet hur man infogar följande kod i CDONTS Min kod på kundkorgen \<% IF NOT isArray(Session("Cart")) THEN 'Response.Write("Tom") ELSE Dim mCart, j j = 0 mCart = Session("Cart") %\> \<% For i = 0 to UBound(mCart, 2) %\> \ \\
\<% = mCart(0,i) %\> \ \\
\<% = mCart(1,i) %\> \ \\
\<% = mCart(2,i) %\> \ \\
\<% = mCart(3,i) %\> \ \ \<%j = j+1%\> \<% Next %\> \ \<% END IF %\> Min kod i cdonts: \<% Set newMail = Server.CreateObject("CDONTS.NewMail") HTML = "\" & vbCrLf HTML = HTML & "\" HTML = HTML & "\" HTML = HTML & "\on-line\" HTML = HTML & "\" \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* \-- HTML = HTML & Här vill jag ha kundkorgens innehåll -- \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* HTML = HTML & request.form("Meddelande")& "\" HTML = HTML & "\Företagsnamn:\ " & request.form ("Foretagsnamn") & "\" HTML = HTML & "\Namn:\ " & request.form("Kontaktperson")& "\" HTML = HTML & "\Telefon:\ " & request.form("Telefon")& "\" HTML = HTML & "\Fax:\ " & request.form("Fax")& "\" HTML = HTML & "\Epost:\ " & request.form("Email")& "\" HTML = HTML & "\" HTML = HTML & "\" newMail.From = "" newMail.To = request.form("Email") newMail.Subject = "" newMail.BodyFormat = 0 newMail.MailFormat=0 newMail.Body = HTML newMail.Send Set newMail = nothing %\> Permalänk: https://www.webforum.nu/p/103476 ## #2 — martinpartin, 2004-05-12T22:36Z Det är väl bara att stoppa in dem ? Du kan ju få ut unika värden på dem genom j ``` ``` Sedan request.form i mail-filen Permalänk: https://www.webforum.nu/p/1345235 ## #3 — dxilaban, 2004-05-13T15:34Z Men hur ser reguest.form filen ut i CDONTS \<% = mCart(3,i) %\> osv Permalänk: https://www.webforum.nu/p/1345593 ## #4 — dxilaban, 2004-05-14T21:44Z Funkar inte. Någon som vet hur jag skall göra för att få med kundkorgens innehåll till mitt mail?? Permalänk: https://www.webforum.nu/p/1346450 ## #5 — @nders, 2004-05-15T06:44Z Det är vanlig strängkonkatenering, det är inget specifikt för CDONTS. ``` mCart = Session("Cart") For i = 0 to UBound(mCart, 2) strCart = strCart & "
" & mCart(0,i) & "" & _ "
" & mCart(1,i) & "" & _ "
" & mCart(2,i) & "" & _ "
& mCart(3,i) & "" Next ``` Så är det bara att lägga till resten av tabellen runt detta och lägga in strCart i variabeln HTML som du lägger in i body. Permalänk: https://www.webforum.nu/p/1346508 ## #6 — dxilaban, 2004-05-15T10:45Z Tror att den kommer att funka. Du vill inte hjälpa mig hur jag skall skriva in koden som du har ovan :) Permalänk: https://www.webforum.nu/p/1346561 ## #7 — @nders, 2004-05-15T10:47Z ovanför loopen: ``` strCart = "" ``` Under loopen: ``` strCart = strCart & "
" ``` Byt: ``` -- HTML = HTML & Här vill jag ha kundkorgens innehåll -- ``` mot ``` HTML = HTML & strCart ``` Det vore iofs snyggare om du lade in resten av bodyn i tabellen också. Permalänk: https://www.webforum.nu/p/1346563 ## #8 — dxilaban, 2004-05-15T12:18Z Nope funkar inte min kod ser ut såhär nu: Ser du något fel ? \<% DIM HTML, newMail Set newMail = Server.CreateObject("CDONTS.NewMail") HTML = "\" & vbCrLf HTML = HTML & strCart "\" HTML = HTML & strCart "\" HTML = HTML & strCart "\on-line\" HTML = HTML & strCart "\" HTML = HTML & strCart "\" HTML = HTML & strCart "-----------------------------------------------------------------------------------\" strCart = "\" strCart mCart = Session("Cart") strCart For i = 0 to UBound(mCart, 2) strCart & "\\\
" & mCart(0,i) & "\" & \_ strCart "\\
" & mCart(1,i) & "\" & \_ strCart "\\
" & mCart(2,i) & "\" & \_ strCart "\\
& mCart(3,i) & "\\" strCart = strCart & "\" HTML = HTML & strCart & "-----------------------------------------------------------------------------------\" HTML = HTML & strCart "\Företagsnamn:\ " & request.form ("Foretagsnamn") & "\" HTML = HTML & strCart "\Namn:\ " & request.form("Kontaktperson")& "\" HTML = HTML & strCart "\Telefon:\ " & request.form("Telefon")& "\" HTML = HTML & strCart "\Fax:\ " & request.form("Fax")& "\" HTML = HTML & strCart "\Epost:\ " & request.form("Email")& "\" HTML = HTML & strCart "\Kontaktperson:\ " & request.form("Kontakt")& "\" HTML = HTML & strCart "\" HTML = HTML & strCart "\" HTML = HTML & strCart "\" newMail.From = "online@åke.se" newMail.To = request.form("Email") newMail.Subject = "Order" newMail.BodyFormat = 0 newMail.MailFormat = 0 newMail.Body = HTML newMail.Send Set newMail = nothing %\> Permalänk: https://www.webforum.nu/p/1346581 ## #9 — @nders, 2004-05-15T13:16Z Om jag själv följer mina instruktioner så skulle det se ut så här: ``` <% [b]strCart = "" mCart = Session("Cart") For i = 0 to UBound(mCart, 2) strCart = strCart & "" & _ "" & _ "" & _ "" Next strCart = strCart & "
" & mCart(0,i) & "
" & mCart(1,i) & "
" & mCart(2,i) & "
& mCart(3,i) & "
" [/b] Set newMail = Server.CreateObject("CDONTS.NewMail") HTML = "" & vbCrLf HTML = HTML & "" HTML = HTML & "" HTML = HTML & "on-line" HTML = HTML & "" **************************************** [b]HTML = HTML & strCart[/b] ****************************************** HTML = HTML & request.form("Meddelande")& "
" HTML = HTML & "Företagsnamn: " & request.form ("Foretagsnamn") & "
" HTML = HTML & "Namn: " & request.form("Kontaktperson")& "
" HTML = HTML & "Telefon: " & request.form("Telefon")& "
" HTML = HTML & "Fax: " & request.form("Fax")& "
" HTML = HTML & "Epost: " & request.form("Email")& "
" HTML = HTML & "" HTML = HTML & "" newMail.From = "" newMail.To = request.form("Email") newMail.Subject = "" newMail.BodyFormat = 0 newMail.MailFormat=0 newMail.Body = HTML newMail.Send Set newMail = nothing %> ``` Snälla, använd \[kod\]-taggar när du postar kod. Permalänk: https://www.webforum.nu/p/1346609 ## #10 — dxilaban, 2004-05-15T16:09Z Japp, det funkar. Men det uppstår ett annat problom. Mailet funkar i outlock men inte i hotmail. Får mailet men inget innehåll. Vad skall jag göra?? newMail.BodyFormat = 0 newMail.MailFormat=0 newMail.Body = HTML Permalänk: https://www.webforum.nu/p/1346661 --- Tråden på webben: https://www.webforum.nu/amne/asp/103476-problem-med-cdonts