Adding values together

[geekynewbie]

Hi all i have a bit of script that i am working on that adds the numbers out of the SQL database together. I can get it to give me like 30.000.45 when i add 30.00 and 0.45 (say two prices. Really i want it to come out with 30.45.

Dim intNumber
Dim intTotal
Do While Not rsNumbers.EOF
intNumber = rstesr("RSprice")
intNumber = FormatNumber(intNumber,2)
Response.Write intNumber
intTotal = intTotal + intNumber
intNumber = 0
RStest.MoveNext
Loop

Its where i want to add like a shopping cart together.

[geekynewbie]

Scrap that i changed codes and instead of using "INT" i used CSng and the code below. i knew i must of not been far off

<%
Dim CSngSum
Sum = 0
Do While Not RStest.EOF
  CSngSum = CSngSum + CSng(RStest("RSprice"))
  RStest.MoveNext
Loop

Response.Write(CSngSum)
%>