JMail problem ??

Du kan jo sige:

For Each Item In Request.Form
strBody = strBody & "Vareordre " & request.form("intProdID") & VbCrLf
strBody = strBody & "VareNavn: " & request.form("prodNavn") & VbCrLf
Next

//>Rune

Jo det kan man.
Får du Varenavn og tilhørne lister som komma sepereret liste?

Dem som er en del af listen

navnArr = Split(request.form("prodNavn"), ",")
prisArr = Split(request.form("prodPris"), ",")
antalArr = Split(request.form("Antal"), ",")


Så kan man lave et loop i stil med dette´:

JMail.body = JMail.body & "Vareordre " & request.form("intProdID") & VbCrLf

for i = lbound(navnArr) to ubound(navnArr)
  JMail.body = JMail.body & "VareNavn: " & navnArr(i) & VbCrLf
  JMail.body = JMail.body & "Pris " & prisArr & VbCrLf
next

JMail.body = JMail.body & "Totalpris: " & request.form("totalPris") & " kr. " & VbCrLf
JMail.Priority = 3
JMail.Execute

For Each Item In Request.Form
strBody = strBody & "Vareordre " & request.form("intProdID") & VbCrLf
strBody = strBody & "VareNavn: " & request.form("prodNavn") & VbCrLf & vbCrLf & vbCrLf
Next

//>Rune

medions: Jeg får slet ingen ting med i mailen, når jeg indsætter dit script ??
eagleeye: Jeg får en fejl 500, når jeg sætter de 3 arrays ind i JMailen ??

For Each Item In Request.Form
strBody = strBody & "Vareordre " & request.form("intProdID") & VbCrLf
strBody = strBody & "VareNavn: " & request.form("prodNavn") & VbCrLf & vbCrLf & vbCrLf
Next

JMail.body = strBody
JMail.Priority = 3
JMail.Execute

//>Rune

hmm...nu skrev den:

Vareordre
VareNavn: Varen

-> 18 gange

undskyld, den skrev:

Vareordre
VareNavn: Vare1, Vare2

-> 18 gange

Har du prøvet mit?

Yep...når jeg satte de 3 arrays op ville siden ikke vises (fejl 500)

Jeg tror jeg har fundet fejlen, variablerne bliver genereret i siden inden JMail med en løkke, som sætter værdien:

<%
            set rsProdInfo = Server.CreateObject("ADODB.Recordset")
            rsProdInfo.Open "products", Conn, adOpenStatic, adLockOptimistic, adCmdTable

            intTotal = 0

            rsProd.MoveFirst
            while not rsProd.EOF
                rsProdInfo.MoveFirst
                rsProdInfo.Find "productID = " & rsProd("productID")
                intProdID = rsProd("productID")
                strProdName = rsProdInfo("productName")
                intPrice = formatNumber(rsProdInfo("productPrice"), 2)
                intQuant = rsProd("quantity")
                intExtPrice = formatNumber((intPrice * intQuant), 2)
                intTotal = intTotal + intExtPrice
%>
                <tr>
                    <td width="15%" align="left" valign="middle" nowrap><font face="Trebuchet MS" size="2" color="#000000"><%= intQuant %></font></td>
                    <td width="40%" align="left" valign="middle" nowrap><font face="Trebuchet MS" size="2" color="#000000"><%= strProdName %></font></td>
                    <td width="15%" align="right" valign="middle" nowrap><font face="Trebuchet MS" size="2" color="#000000">kr. <%= intPrice %></font></td>
                    <td width="15%" align="right" valign="middle" nowrap><font face="Trebuchet MS" size="2" color="#000000">kr.
                      <%= intExtPrice %></font></td>
                </tr>
                <input type="hidden" name="prodID" value="<%= intProdID %>">
                <input type="hidden" name="Antal" value="<%= intQuant %>">
                <input type="hidden" name="prodNavn" value="<%= strProdName %>">
                    <input type="hidden" name="prodPris" value="<%= intPrice %>">
                    <input type="hidden" name="totalPris" value="<%= intTotal %>">
<%
                rsProd.MoveNext
            wend                       
%>

Forhøjer point-præmien til 150 !

Eagleeye jeg fik dit eksempel til at virke nogenlunde, men der er stadig et problem med det totale beløb:

navnArr = Split(request.form("prodNavn"), ",")
  prisArr = Split(request.form("prodPris"), ",")
  antalArr = Split(request.form("Antal"), ",")
  samPrisArr = Split(request.form("samPris"), ",")
  totalArr = Split(request.form("total"), ",")
   
  JMail.body = JMail.body & "" & request.form("") & VbCrLf
  JMail.body = JMail.body & "---- Vareordre ---- " & request.form("intProdID") & VbCrLf
  JMail.body = JMail.body & "" & request.form("") & VbCrLf

  for i = lbound(navnArr) to ubound(navnArr)
    JMail.body = JMail.body & "Vare: " & navnArr(i) & VbCrLf 
    JMail.body = JMail.body & "Antal: " & antalArr(i) & VbCrLf   
    JMail.body = JMail.body & "Pris/stk.: " & prisArr(i) & " kr. " & VbCrLf

    JMail.body = JMail.body & "Totalpris: " & totalArr(i) & " kr. " & VbCrLf
   
    JMail.body = JMail.body & "---- " & request.form("") & VbCrLf
    next

  JMail.Priority = 3
  JMail.Execute   

%>

Udskriver:

Vare: Vare 1
Antal: Antal 1
Pris/stk.: pris 1
Totalpris: pris 1
----
Vare:  vare 2
Antal:  antal 2
Pris/stk.:  pris 2.
Totalpris:  pris 1 + pris 2.

Jeg ville gerne ha totalbeløbet udskrevet kun til sidst, men hvordan samler
jeg summen af arrayet og udskriver det på 1 linie ??

Jeg er ikke helt med vi du havde en summeret totalpris under hver vare og så en totalpris til sidst?

I så fald hvad får du overført ved denne:  request.form("total")