:)
Ingen som har några ideér...
Bifogar en fil som beskriver hur jag "jättegärna" skulle vilja ha det...
mvh
7 svar · 319 visningar · startad av devotion
:)
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
:)
Ingen som har några ideér...
Bifogar en fil som beskriver hur jag "jättegärna" skulle vilja ha det...
mvh
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)
BTW: strQuantity, borde vara intQuantity eftersom att det är ett heltal.
(Om det skall vara någon som helst mening med ungersk notation)
Ska genast rätta till det och använda rätt prefix :)