---
title: "Orderbekräftelse"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/57656-orderbekräftelse"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Robson"
published: "2002-10-31T15:19:06.000Z"
updated: "2002-11-01T09:53:17.000Z"
replies: 7
views: 350
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/57656-orderbekräftelse"
---

# Orderbekräftelse

## #1 — Robson, 2002-10-31T15:19Z

Tja,

Har fått detta att funka, men vill även ha med lite uppgifter i mailet som skickas. Dessa är de uppgifter jag vill ha med:

\<%= intQuant %\> och \<%= intProdID %\>

Det hjälper ju inte så mycket att bara få Ny order...

\<%
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.to = "xxx@xxx.com,yyy@yyy.se"
objMail.From = "order@butiken.se"
objMail.Subject = "Orderbekräftelse"
objMail.Body = "Ny order mottagen..."
objMail.Send
set objMail = Nothing
%\>

Robson

Permalänk: https://www.webforum.nu/p/57656

## #2 — SPiN, 2002-10-31T15:23Z

```
Dim mailBody
mailBody = "Ny order mottagen: " & vbCrLf
mailBody = mailBody & intQuant & " - " & intProdID

objMail.Body = mailBody
```

Permalänk: https://www.webforum.nu/p/838746

## #3 — Robson, 2002-10-31T15:32Z

SPiN

Kanon, det funkade direkt...

Permalänk: https://www.webforum.nu/p/838750

## #4 — Robson, 2002-10-31T16:00Z

Jag igen...

Hur gör jag om jag har fler beställningar. Då behövs det en loop, eller hur gör man?

Robson

Permalänk: https://www.webforum.nu/p/838765

## #5 — LarsG, 2002-10-31T16:11Z

Ja, någon form av loop. Hur ligger beställningarna lagrade?

Permalänk: https://www.webforum.nu/p/838777

## #6 — Robson, 2002-10-31T16:42Z

Dom läggs i en Accessdatabas. Med dessa namn:

\<%
             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
 %\>

Robson

Permalänk: https://www.webforum.nu/p/838810

## #7 — LarsG, 2002-10-31T17:35Z

För att få in mailskickandet i en loop så borde det bli ungefär så här

```
<% 
Dim mailBody,objMail 'och resten av dina variabler

set objMail = Server.CreateObject("CDONTS.NewMail") 

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 
    objMail.to = "xxx@xxx.com,yyy@yyy.se" 
    objMail.From = "order@butiken.se" 
    objMail.Subject = "Orderbekräftelse" 
    mailBody = "Ny order mottagen: " & vbCrLf
    mailBody = mailBody & intQuant & " - " & intProdID
    objMail.Body = mailBody
    objMail.Send 
wend
set objMail = Nothing 
%>
```

Om innehållet i rsprod kommer från en tabell så är det bättre att hämta det du vill ha i en fråga istället för att hämta all produktinformation.

Permalänk: https://www.webforum.nu/p/838867

## #8 — Robson, 2002-11-01T09:53Z

Detta "dyker" upp.

ADODB.Recordset fel '800a0e7d' 

Åtgärden är inte tillåten på ett objekt som refererar till en stängd eller en ogiltig anslutning. 

/test/shop/validateOrder.asp, line 250 

Rad 250:
rsProdInfo.Open "products", Conn, adOpenStatic, adLockOptimistic, adCmdTable

Går det inte att skriva en fråga till databasen, eller göra en rapport i DBn som skickas?

Robson

Permalänk: https://www.webforum.nu/p/842161

---

Tråden på webben: https://www.webforum.nu/amne/asp/57656-orderbekräftelse