SUM i ASP ??

Hej

jeg har tre totalsum, og af de tre skal jeg have regnet totalalle ud. Jeg har lavet koden for de tre totalsum :

TotalFld=0
tmpFld = x_v
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("V") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_s
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("S") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_H
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("H") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

rs("Total") = TotalFld

TotalFld=0
tmpFld = x_B
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("B") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_Sk
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Sk") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_Hfb
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Hfb") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

rs("Tb") = TotalFld



TotalFld=0
tmpFld = x_I
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("I") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_Ski
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Ski") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_Hfi
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Hfi") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

rs("Ti") = TotalFld