webForumDet fria alternativet

Göra beräkningar

ASP

7 svar · 319 visningar · startad av devotion

Medlem sedan jan. 20013 582 inlägg
Frågan#1

:)
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

Medlem sedan jan. 20013 582 inlägg
#2

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

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

mvh

Medlem sedan jan. 20013 582 inlägg
#3

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

Skicka därför filen....

Medlem sedan jan. 20013 582 inlägg
#4

:)
Bara jag igen...

Skickar med en screenshot på hur det ser ut nu

mvh

Medlem sedan jan. 20013 582 inlägg
#5

:)
Bumpeti bump

Någon som vill hjälpa?

Mvh

Medlem sedan nov. 20017 144 inlägg
#6

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)
Medlem sedan nov. 20017 144 inlägg
#7

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

Medlem sedan jan. 20013 582 inlägg
#8

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

288 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
148 ms — deklarationer (db)
0 ms — hämta statistik (cache)
137 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)