Sum of text boxes

[benniesanders]

Hi There,

I have a group of text boxes named p1 through p14. The results are submitted to a form where they need to be added up. Is there a quicker, better way to add them up instead of doing:

request("p1&quot + request("p2&quot , etc. through "p14"?

Thanks a million for your thoughts!

 

[krappleby025]

yes try using a do loop or for loop action in your script ie something like

for e=1 to 14

then in your next line add your request something like

request.form(e)

then add the results together

total = total + request.form(e)

then add one to the initial loop and return it

e=e + 1

loop


I do not think that is exactly how to word it but it is an idea

and you produce your total using

total

hope that helps

 

[benniesanders]

Thanks, k. It would work great but I also have quantity boxes q1-q14, so it picks that up too. If I do p1-p14 it says subscrpt out of range. How do I specify request.form("p1&quot through ("p14&quot. Thanks a million!

 

[FesterSXS]

Hi,

Try this:

<%
For i = 1 To 14
  strValue = CInt(Request.Form(&quot;p&quot; & i))
  strTotal = strTotal + strValue
Next
%>

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[benniesanders]

Hi Tony,

I'm getting this error:

Type mismatch: 'cint'

I suspect it's coming over as a string. How do I convert it?

 

[benniesanders]

Hi Tony,

I'm getting this error:

Type mismatch: 'cint'

I suspect it's coming over as a string. How do I convert it? Thanks!

 

[FesterSXS]

I use CInt to force my Querystring variables to an integer for comparison reasons. This will fail though if they are not present. Are you getting P1 to p14 as querystrings EVERY time?? If not then you will need to modify that code slightely Tony

http://www.phoenix-paints.co.uk/portfolio

 

[benniesanders]

I'm not sure what you mean. The user may only fill out P1, or P2, or P10. Not all of them will ever be present at once. When I do a response write on strTotal, and the values have come over as 35 and 50, it will write: 3585 within the for next statement, then the error. If I remove the cint of course it writes 3550. If I response write out of the for next statement, it gives me nothing when I leave in the cint.

 

[FesterSXS]

try this:

<%
For i = 1 To 14
  If Request.Form(&quot;p&quot; & i) <> &quot;&quot; Then
    strValue = CInt(Request.Form(&quot;p&quot; & i))
    strTotal = strTotal + strValue
  End If
Next
%>

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[benniesanders]

That did it. Thanks so very much for your help. This will save a lot of time and reduce errors. Thanks again!

 

[FesterSXS]

you're welcome Tony

http://www.phoenix-paints.co.uk/portfolio