I would definitly rewrite the initial part of that code to this:-
- Code: Select all
IfRequest.Form("Submit")<>""Then
ForintProductCounter=0to(intMaxProduct-1)
varFrmQty="frmQty_"&intProductCounter
ifRequest.Form(varFrmQty)>0Then
dblSubTotal=dblSubTotal+(strParts2Darray(intProductCounter,2)*cInt(Request.Form(varFrmQty)
EndIf
Next
dblTax=CDbl(Request.Form("frmTax"))
dblShipping=CDbl(Request.Form("frmShipping"))
dblTotal=dblTax+dblShipping+dblSubTotal
EndIf