ASP regning

Hej

Jeg har et problem med at lægge sammen i ASP.

Det der skal lægges sammen ser sådan ud

    Antal  Pris  sk      Hand
V    2      100    100    100  =  400   
B    2      100    100    100  =  400
I    2      100    100    100  =  400
                                   
                          ialt  =  1200

Det jeg har problem med at lægge sammen er 400+400+400
Jeg har følgende kode, men den beregner ikke antal.

TotalFld=0

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

tmpFld = x_AntalB
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("AntalB") = cLng(tmpFld)

tmpFld = x_AntalI
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("AntalI") = cLng(tmpFld)
TotalFld=TotalFld*cDbl(tmpFld)

tmpFld = x_Antalv
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Antalv") = cLng(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_Han
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Han") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

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


tmpFld = x_Skb
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Skb") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

tmpFld = x_Hanb
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Hanb") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)

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_Hani
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("Hani") = cDbl(tmpFld)
TotalFld=TotalFld+cDbl(tmpFld)


rs("Totalalle") = TotalFld