<%
Dim TotalCost
Dim ActivityCount
Dim ActivityBarCount
Dim InlayCount
Dim DoubleCount
Dim ChampCount
Dim StateCount
Dim LetterCount
Dim Tax
ActivityCount = 0
ActivityBarCount = 0
ChampCount = 0
StateCount = 0
TotalCost = 0
InlayCount = 0
DoubleCount = 0
LetterCount = Len(Request.Form("chenilleletter"))
If LetterCount <> 0 Then
DoubleCount = DoubleCount + 1
End If
If Request.Form("activities1") <> "" Then
ActivityCount = ActivityCount + 1
ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar1")
End If
If Request.Form("activities2") <> "" Then
ActivityCount = ActivityCount + 1
ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar2")
End If
If Request.Form("activities3") <> "" Then
ActivityCount = ActivityCount + 1
ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar3")
End If
If Request.Form("activities4") <> "" Then
ActivityCount = ActivityCount + 1
ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar4")
End If
If Request.Form("activities5") <> "" Then
ActivityCount = ActivityCount + 1
ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar5")
End If
If Request.Form("patches1") <> "" Then
DoubleCount = DoubleCount + 1
If Request.Form("patches1") = "State" Then
StateCount = StateCount + 1
End If
If Request.Form("patches1") = "Champ" Then
ChampCount = ChampCount + 1
End If
End If
If Request.Form("patches2") <> "" Then
DoubleCount = DoubleCount + 1
If Request.Form("patches2") = "State" Then
StateCount = StateCount + 1
End If
If Request.Form("patches2") = "Champ" Then
ChampCount = ChampCount + 1
End If
End If
If Request.Form("patches3") <> "" Then
DoubleCount = DoubleCount + 1
If Request.Form("patches3") = "State" Then
StateCount = StateCount + 1
End If
If Request.Form("patches3") = "Champ" Then
ChampCount = ChampCount + 1
End If
End If
If Request.Form("patches4") <> "" Then
DoubleCount = DoubleCount + 1
If Request.Form("patches4") = "State" Then
StateCount = StateCount + 1
End If
If Request.Form("patches4") = "Champ" Then
ChampCount = ChampCount + 1
End If
End If
If Request.Form("patches5") <> "" Then
DoubleCount = DoubleCount + 1
If Request.Form("patches5") = "State" Then
StateCount = StateCount + 1
End If
If Request.Form("patches5") = "Champ" Then
ChampCount = ChampCount + 1
End If
End If
InlayCount = ActivityCount + ActivityBarCount
If Request.Form("chenillefirst") <> "" Then
DoubleCount = DoubleCount + 1
End If
If Request.Form("chenillelast") <> "" Then
DoubleCount = DoubleCount + 1
End If
If Request.Form("chenilleyear") <> "" Then
InlayCount = InlayCount + 1
End If
If Request.Form("chenilleright") <> "" Then
DoubleCount = DoubleCount + 1
End If
If Request.Form("chenilleleft") <> "" Then
DoubleCount = DoubleCount + 1
End If
DoubleCount = DoubleCount + InlayCount
%>
Please check the configuration.