<%
If IsEmpty(Session("sectionOne")) Then
one = null
two = null
three = null
four = null
five = null
six = null
seven = null
sectionAtotal = 0
Else
pageinfo = Session("sectionOne")
If pageinfo(0) <> "" Then
one = formatNumber(CDbl(pageinfo(0)))
one = Replace(one, ",", "")
one = cDbl(one)
End IF
If pageinfo(1) <> "" Then
two = formatNumber(CDbl(pageinfo(1)))
two = Replace(two, ",", "")
two = cDbl(two)
End IF
If pageinfo(2) <> "" Then
three = formatNumber(CDbl(pageinfo(2)))
three = Replace(three, ",", "")
three = cDbl(three)
End IF
If pageinfo(3) <> "" Then
four = formatNumber(CDbl(pageinfo(3)))
four = Replace(four, ",", "")
four = cDbl(four)
End IF
If pageinfo(4) <> "" Then
five = formatNumber(CDbl(pageinfo(4)))
five = Replace(five, ",", "")
five = cDbl(five)
End IF
If pageinfo(5) <> "" Then
six = formatNumber(CDbl(pageinfo(5)))
six = Replace(six, ",", "")
six = cDbl(six)
End IF
If pageinfo(6) <> "" Then
seven = formatNumber(CDbl(pageinfo(6)))
seven = Replace(seven, ",", "")
seven = cDbl(seven)
End IF
sectionAtotal = one + two + three + four + five + six + seven
'use the formatted data for calculation
'now it's a little unusual but rebuild the values with .00
'if the value doesn't have cents
If one = 0 Then
one = null
End If
If InStr(one, ".") = 0 Then
one = one & ".00"
End If
If two = 0 Then
two = null
End If
If InStr(two, ".") = 0 Then
two = two & ".00"
End If
If three = 0 Then
three = null
End If
If InStr(three, ".") = 0 Then
three = three & ".00"
End If
If four = 0 Then
four = null
End If
If InStr(four, ".") = 0 Then
four = four & ".00"
End If
If five = 0 Then
five = null
End If
If InStr(five, ".") = 0 Then
five = five & ".00"
End If
If six = 0 Then
six = null
End If
If InStr(six, ".") = 0 Then
six = six & ".00"
End If
If seven = 0 Then
seven = null
End If
If InStr(seven, ".") = 0 Then
seven = seven & ".00"
End If
End If
%>
