lægge tal sammen fra database
Hej...Jeg skal lægge tal sammen fra et database men jeg jeg skal først trække rabaten fra (hvis der er nogen)
Jeg gør som følger:
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
set conn = Server.CreateObject("Adodb.Connection")
strSQL = "SELECT * FROM pf WHERE kategori='andet'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
conn.open strDSN
Asum = 0
rs.Open strSQL, strDSN, 1
Do While Not rs.EOF
Dim Apriser, arrAPris
Apriser = rs("pris")
arrAPris = Split(Apriser,",")
For a = LBound(arrAPris) to UBound(arrAPris)
Afisk = arrAPris(a)
Next
Asum = Asum + Afisk
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
set conn = Nothing
Asum = FormatNumber(Asum, 2)
%>
Men det virker ikke... resultatet er i hverfald ikke korrekt.
Er der nogen der kan hjælpe, så jeg også får resultatet med 2 decimaler?
