Problem med CDONTS

9 svar · 386 visningar · startad av dxilaban 12 maj 2004

dxilabanMedlem sedan apr. 200429 inlägg

12 maj 2004 21:52#1

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) %\> 
                              \<tr class="txtnews"\> 
                                \<td\>\<div align="left"\> 
                                  \<% = mCart(0,i) %\> \</td\> 
                                \<td\>\<div align="left"\> 
                                  \<% = mCart(1,i) %\> \</td\> 
                                \<td\>\<div align="left"\> 
                                  \<% = mCart(2,i) %\> \</td\> 
                                \<td\>\<div align="center"\> 
                                  \<% = mCart(3,i) %\> \</td\> 
                              \</tr\> 
                              \<%j = j+1%\> 
                              \<% Next %\> 
                              \<input name="total" type="hidden" value="\<%=j%\>"\> 
                              \<%
								END IF
								%\>

Min kod i cdonts:

<%
Set newMail = Server.CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>on-line</title>"
HTML = HTML & "<head>"

****************************************

-- 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 & "</body>"
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
%>

martinpartinMedlem sedan jan. 2001373 inlägg

12 maj 2004 22:36#2

Det är väl bara att stoppa in dem ?

Du kan ju få ut unika värden på dem genom j

<INPUT TYPE=hidden value='<% = mCart(3,i) %>' NAME='item"& j &"'>

Sedan request.form i mail-filen

dxilabanMedlem sedan apr. 200429 inlägg

13 maj 2004 15:34#3

Men hur ser reguest.form filen ut i CDONTS
<% = mCart(3,i) %> osv

dxilabanMedlem sedan apr. 200429 inlägg

14 maj 2004 21:44#4

Funkar inte. Någon som vet hur jag skall göra för att få med kundkorgens innehåll till mitt mail??

@ndersMedlem sedan juni 200032 969 inlägg

15 maj 2004 06:44#5

Det är vanlig strängkonkatenering, det är inget specifikt för CDONTS.

mCart = Session("Cart")

For i = 0 to UBound(mCart, 2) 
    strCart = strCart & "<tr class=""txtnews""><td><div align=""left"">" & mCart(0,i) & "</td>" & _
    "<td><div align=""left"">" & mCart(1,i) & "</td>" & _
    "<td><div align=""left""> " & mCart(2,i) & "</td>" & _ 
    "<td><div align=""center""> & mCart(3,i) & "</td></tr>"
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.

dxilabanMedlem sedan apr. 200429 inlägg

15 maj 2004 10:45#6

Tror att den kommer att funka. Du vill inte hjälpa mig hur jag skall skriva in koden som du har ovan :)

@ndersMedlem sedan juni 200032 969 inlägg

15 maj 2004 10:47#7

ovanför loopen:

strCart = "<table>"

Under loopen:

strCart = strCart & "</table>"

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å.

dxilabanMedlem sedan apr. 200429 inlägg

15 maj 2004 12:18#8

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 = "<!DOCTYPE HTML PUBLIC""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf
HTML = HTML & strCart "<html>"
HTML = HTML & strCart "<head>"
HTML = HTML & strCart "<title>on-line</title>"
HTML = HTML & strCart "<head>"
HTML = HTML & strCart "<body bgcolor=#fcece9>"
HTML = HTML & strCart "----------------------------------------------------------------------------------- "
strCart = "<table>"
strCart mCart = Session("Cart")
strCart For i = 0 to UBound(mCart, 2)
strCart & "<tr class=""txtnews""><td><div align=""left"">" & mCart(0,i) & "</td>" & _
strCart "<td><div align=""left"">" & mCart(1,i) & "</td>" & _
strCart "<td><div align=""left""> " & mCart(2,i) & "</td>" & _
strCart "<td><div align=""center""> & mCart(3,i) & "</td></tr>"
strCart = strCart & "</table>"
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 "</body>"
HTML = HTML & strCart "</html>"
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
%>

@ndersMedlem sedan juni 200032 969 inlägg

15 maj 2004 13:16#9

Om jag själv följer mina instruktioner så skulle det se ut så här:

<%
[b]strCart = "<table>"

mCart = Session("Cart")

For i = 0 to UBound(mCart, 2) 
    strCart = strCart & "<tr class=""txtnews""><td><div align=""left"">" & mCart(0,i) & "</td>" & _
    "<td><div align=""left"">" & mCart(1,i) & "</td>" & _
    "<td><div align=""left""> " & mCart(2,i) & "</td>" & _ 
    "<td><div align=""center""> & mCart(3,i) & "</td></tr>"
Next

strCart = strCart & "</table>"
[/b]
Set newMail = Server.CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>on-line</title>"
HTML = HTML & "<head>"

****************************************
[b]HTML = HTML & strCart[/b]
******************************************
HTML = HTML & request.form("Meddelande")& "<br>"
HTML = HTML & "<b>Företagsnamn:</b> " & request.form ("Foretagsnamn") & "<br>"
HTML = HTML & "<b>Namn:</b> " & request.form("Kontaktperson")& "<br>"
HTML = HTML & "<b>Telefon:</b> " & request.form("Telefon")& "<br>"
HTML = HTML & "<b>Fax:</b> " & request.form("Fax")& "<br>"
HTML = HTML & "<b>Epost:</b> " & request.form("Email")& "<br>"
HTML = HTML & "</body>"
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.

dxilabanMedlem sedan apr. 200429 inlägg

15 maj 2004 16:09#10

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