Sum der viser totalen

Hej

jeg skal have en sum af alle felterne "total" der bliver vist på denne side :

<%

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString


strSQL = "Select * From orders where slName = '1' and fLabel ='tm3' Order by orderDate desc "
Set rs = Conn.Execute(strSQL)

Response.write "<table>"
Response.write "<tr><td  bgcolor='#c4bca4'><b>Firmnavn</td><td  bgcolor='#c4bca4'><b>Fornavn</td><td  bgcolor='#c4bca4'><b>Efternavn</td><td  bgcolor='#c4bca4' width='80' ><b>Dato</td><td  bgcolor='#c4bca4' width='50' align='right'><b>Saldo</td><tr>"
Do
  Response.write "<tr><td bgcolor='#FFF5D7'>"
  ' Personens navn
  strNavn = rs("fFirma")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<b><a href='faktura.asp?id=" & rs("orderID") & "'>""<FONT SIZE='1' COLOR='#000000'>" & strNavn & "</a>"

  Response.Write strLink
 
 
Response.write "</td><td bgcolor='#FFF5D7' >"
  Response.write rs("fName")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("lName")
    Response.write "</td><td bgcolor='#FFF5D7' width='80' >"
  Response.write rs("orderDate")
  Response.write "</td><td bgcolor='#FFF5D7' width='50' align='right'><b>"
  Response.write rs("total")& ".00"

 
  Response.write "</td></tr>"

 
 
  rs.MoveNext
Loop While Not rs.EOF
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>