---
title: "Göra beräkningar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/123846-göra-beräkningar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2005-03-06T21:18:19.000Z"
updated: "2005-03-21T19:22:52.000Z"
replies: 7
views: 347
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/123846-göra-beräkningar"
---

# Göra beräkningar

## #1 — devotion, 2005-03-06T21:18Z

:) 
Hej,svejs!

Börjar närma mig slutet på mitt prisjämförelsesystem....

Har dock en fråga som är väsentlig för resultatet.

Jag har följande kod som skriver ut artiklar som skall jämföras:

```
public sub writePrices (objPricesDict)
   If bgcolor = "#FFFFFF" then bgcolor = "#EFEFEF" else bgcolor = "#FFFFFF"
   Response.write "<tr onMouseOver=""this.style.backgroundColor='#D3DEF8';"" onMouseOut=""this.style.backgroundColor='';"" bgcolor=""" & bgcolor & """><td height=""20"" class=""itabell"">" & objPricesDict.Item("eNumber") & "</td><td class=""itabell"">" & objPricesDict.Item("articleName") & "</td><td class=""itabell"">" & objPricesDict.Item("articleUnit") & "</td>"
   if objPricesDict.Exists("Solar") then
       Response.write "<td class=""itabell"">" & objPricesDict.Item("Solar") & "</td>"
   else
       Response.write "<td class=""itabell""><i>Saknas</i></td>"
   end if
   if objPricesDict.Exists("Storel") then
       Response.write "<td class=""itabell"">" & objPricesDict.Item("Storel") & "</td>"
   else
       Response.write "<td class=""itabell""><i>Saknas</i></td>"
   end if
   if objPricesDict.Exists("Elektroskandia") then
       Response.write "<td class=""itabell"">" & objPricesDict.Item("Elektroskandia") & "</td>"
   else
       Response.write "<td class=""itabell""><i>Saknas</i></td>"
   end if
   Response.write "<td class=""itabell"">" & objPricesDict.Item("lowest") & "</td>"
Response.Write "<td class=""itabell""><input class=""formular"" name=""quantity" & objPricesDict.Item("eNumber") & """ Value=""" & objPricesDict.Item("quantity") & """ type=""text"" size=""4"" maxlength=""4""></td>"
Response.Write "<td class=""itabell""><a href=""#"" onclick=""location.href='../cart/editQuantity.asp?eNumber=" & objPricesDict.Item("eNumber") & "&quantity=' + document.getElementById('quantity" & objPricesDict.Item("eNumber") & "').value;""><img src=""../Images/editQuantity.gif"" alt=""Klicka här för att ändra antal!"" border=""0""></a></td>"
Response.Write "<td class=""itabell""><a href=""deleteArticle.asp?eNumber=" & objPricesDict.Item("eNumber") & """><img src=""../Images/soptunna.gif"" alt=""Klicka här för att ta bort artikeln!"" border=""0""></a></td>"
end sub
```

Koden radar upp de olika leverantörernas priser tillsammans med de antalet som man valt.

Fråga 1
För att göra ett "radtotal" för varje leverantör; är det bara att ta: 
objPricesDict.Item("Elektroskandia")\*objPricesDict.Item("quantity") ="radtotal" (dvs pris för viss leverantör\*antal =radtotal)???

Fråga 2
Hur gör jag för att summera samtliga "radtotal" för att få den totala kostnaden??

Nu har jag använt mig av Recordset för att summera men det fungerar ju inte när jag har blandat in "antal"

Ex
Artikel -Pris lev 1- S:a lev 1- pris lev 2 - s:a lev 2 -Antal
Kabel------100------200-------200 ------------400------2
\---------------------------------------------------------------------
summa---------------200------------------------400

Totalsumma för leverantör 1: 200 kr
Totalsumma för leverantör 2: 400 kr

Hoppas någon fattar....

mvh

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

## #2 — devotion, 2005-03-08T17:26Z

:) 
Ingen som har några ideér...

Bifogar en fil som beskriver hur jag "jättegärna" skulle vilja ha det...

mvh

Bilagor:

- [funktionsbeskrivning.pdf](https://www.webforum.nu/a/5758.pdf)

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

## #3 — devotion, 2005-03-08T17:28Z

:) 
Koden var för lång för att postas här...

Skicka därför filen....

Bilagor:

- [cart.txt](https://www.webforum.nu/a/5759.txt)

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

## #4 — devotion, 2005-03-08T19:49Z

:) 
Bara jag igen...

Skickar med en screenshot på hur det ser ut nu

mvh

Bilagor:

- [cart.pdf](https://www.webforum.nu/a/5763.pdf)

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

## #5 — devotion, 2005-03-21T18:09Z

:) 
Bumpeti bump

Någon som vill hjälpa?

Mvh

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

## #6 — Jesper T, 2005-03-21T18:37Z

Orkar inte harva igenom din kod, men detta är ju principen:

```
Do While not objRS.EOF
'En massa kod
decTotalRow = curPrice * strQuantity
Response.write "Subtotalt: " & decTotalRow
dectotalprice = dectotalprice + decTotalRow
'En massa kod
objRS.MoveNext
Loop
Response.Write("TOTALT: "& dectotalprice)
```

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

## #7 — Jesper T, 2005-03-21T18:40Z

BTW: **str**Quantity, borde vara intQuantity eftersom att det är ett heltal. 
(Om det skall vara någon som helst mening med ungersk notation)

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

## #8 — devotion, 2005-03-21T19:22Z

Ska genast rätta till det och använda rätt prefix :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/123846-göra-beräkningar