total=0
Sql = "Select * From sale "
Set rs=Server.CreateObject("Adodb.recordset")
rs.Open sql,conn,1,3
If not rs.eof then
while not rs.eof
total=total+rs("รายได้ต่อวัน")
wend
end if
rs.close
set rs=nothing
จะยาวไหมถ้าใช้โค๊ดแบบนั้น ลองใช้แบบนี้จะดีกว่าไหม
sql="select fieldname1, fieldname2, fieldnamex, sum(ฟิลด์ที่เก็บค่าเงินของแต่ละเรคอร์ด) as total from tablename order by fieldname ASC"