Læg tal sammen!

Dim TotalPris

Do until rsShowOrder.EOF
  TotalPris = CInt(TotalPris + rsShowOrder("Price"))
  rsShowOrder.movenext
loop

//>Rune

Det vil den ikke....

Microsoft VBScript runtime  error '800a000d'

Type mismatch

/showorder.asp, line 103

Så er det fordi du parser et bogstaver.... De kan jo ikke ligges sammen!

//>Rune

Nej det er tal...

I min Access DB, står kollonnen til at være tal...

Det kan også være null hvis et tal ikke er udfyldt i database.

du kan evt. prøv at rette linjen det til:

Dim TotalPris
TotalPris=0

Do until rsShowOrder.EOF
  TotalPris = TotalPris + Clng(rsShowOrder("Price"))
  rsShowOrder.movenext
loop
TotalPris=round(TotalPris,2)


Hvis du kun skal hvade totalpris kan du bruge SQL sum funktion:

sql = "select sum(price) at totalPris from tabel"
set rs=conn.Execute(sql)
response.write "Den totale pris er : " & rs("totalpris")

Det er heller ikke NULL.... det ved jeg...

Ok, hvad så melder den også den fejl med det jeg har forslået?

eagleeye.... ved ikke lige hvordan jeg skal bruge den sætning!

ok men det var nu også mere dette:

Dim TotalPris
TotalPris=0

Do until rsShowOrder.EOF
  TotalPris = TotalPris + Clng(rsShowOrder("Price"))
  rsShowOrder.movenext
loop
TotalPris=round(TotalPris,2)

takker