Re: One more ! Calculating Recordset Values

Cheers for that Stefan,

I had been working along the same principle - but I must be getting
something wrong. I have included my script !!!
The db where the data is being drawn from requires a value for each of the
recordset fields (it is a , so there shouln't be a return of an EOF, this
page can't be ran until all the values are input. (although I am hoping a
value of 0 wont be returned as a NULL).

I just keep getting a

Type mismatch
/ia/calc01.asp, line 175

which seems to happen whenever I attempt any caluculations.

<%
Dim aTot, eTot, iTot, pSubTot, aStrengthSubTot, PTotal, SubTotal, Total,
aStrengthTotal

aTot = 0
eTot = 0
iTot = 0
pSubTot = 0
aStrengthSubTot = 0
pTotal = 0
SubTotal = 0
aStrengthTotal = 0

'Create Table Header
Response.Write "<Table align=center border=1 cellpadding=0 cellspacing=0>"
Response.Write "<TR ALIGN=CENTER ><TD WIDTH=60><FONT Face=Arial
Size=3>Score</Font></TD><TD WIDTH=60><FONT Face=Arial Size=3>Score</TD><TD
WIDTH=60 ><FONT Face=Arial Size=3>Score</TD><TD WIDTH=120 ><FONT Face=Arial
Size=3>Potential Value</TD<TD WIDTH=120 ><TD><FONT Face=Arial
Size=3>Calculated Value</TD><TD WIDTH=120><FONT Face=Arial Size=3>Asset
Strength</TD></TR>"

' Start Processes
'Transfer recordset values to equation values
Do While not aScrRst.EOF
aTot = aScrRst("Score")
Do While not eScrRst.EOF
eTot = eScrRst("Score")
Do While not iScrRst.EOF
iTot = iScrRst("Score")





'The Calculated Value = 1st and 2nd scores added then multiplied by 3rd
(this calculation is where the error is returned)
SubTotal = aTot + eTot * eTot

'The Potential Value Sub Total = 3rd score multiplied by 20 mulitplied by
20
pSubTot = iTot * 20 * 20

'The Asset Strength Sub Total = Calculated Value devided by the Potential
Value multiplied 100
aStrengthSubTot = SubTotal / pSubTot * 100

'Total = The sum of all the SubTotals
Total = Total + Subtotal

'Potential Total
pTotal = pTotal + pSubTot


Response.Write "<Table align=center border=1 cellpadding=0 cellspacing=0>"

Response.Write "<TR ALIGN=CENTER>"

Response.Write "<TD WIDTH=60>"
Response.Write aTot
Response.Write "</TD>"

Response.Write "<TD WIDTH=60>"
Response.Write eTot
Response.Write "</TD>"

Response.Write "<TD WIDTH=60>"
Response.Write iTot
Response.Write "</TD>"

Response.Write "<TD WIDTH=120>"
Response.Write pSubTot
Response.Write "</TD>"

Response.Write "<TD WIDTH=120>"
Response.Write SubTotal
Response.Write "</TD>"

Response.Write "<TD WIDTH=120>"
Response.Write aStrength
Response.Write "</TD>"

Response.Write "</TR>"

Response.Write "<Table>"


aScrRst.MoveNext
eScrRst.MoveNext
iScrRst.MoveNext


Loop
Loop
Loop
Response.Write "Total=" & Total
Response.Write "Potential Total= " & PTotal
aStrengthTotal = Total /PTotal * 100
Response.Write "Asset Strength= " & aStrengthTotal


%>
"Stefan B Rusynko" <sbr_enjoy@xxxxxxxxxxx> wrote in message
news:usz56GF5FHA.2396@xxxxxxxxxxxxxxxxxxxxxxx
> Validate your data types in each loop while testing using say:
>
> <%
> Do While not aScrRst.EOF
> aScore = aScrRst("Score")
> Response.write "aScrRst = " & TypeName("aScore") &"<br>" 'test line
> Do While not eScrRst.EOF
> eScore = eScrRst("Score")
> Response.write "eScrRst = " & TypeName("eScore") &"<br>" 'test line
> Do While not iScrRst.EOF
> iScore = iScrRst("Score")
> Response.write "iScrRst = " & TypeName("iScore") &"<br>" 'test line
> Total = iScore + eScore * aScore
> Response.Write "Total: " & Total & "<br>" 'test line
> GrandTotal = GrandTotal + Total
> iScrRst.MoveNext
> eScrRst.MoveNext
> aScrRst.MoveNext
> Loop
> Loop
> Loop
> Response.Write "GrandTotal: " & GrandTotal
> %>
>
> I suspect 1 of your loops may be returning an EOF since your logic is
> requiring all 3 recordsets to have 3 "identical" sets of
> qualifying data in each loop (a null value or empty string in any
> recordset will also cause the loops to fail)
>
> PS
> Plus your logic will result in unreliable results since there is no
> attempt to order or group the recordset results in any
> associated way that is consistent or related to iScore, eScore, or aScore
> as a group
> So you will be doing math on 3 random numbers (depending on each recordset
> order returned)
> --
>
> _____________________________________________
> SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
> "Warning - Using the F1 Key will not break anything!" (-;
> To find the best Newsgroup for FrontPage support see:
> http://www.frontpagemvps.com/FrontPageNewsGroups/tabid/53/Default.aspx
> _____________________________________________
>
>
> "RobA" <anon@xxxxxxxxxxx> wrote in message
> news:okZbf.15943$Gy5.15608@xxxxxxxxxxxxxxxxxxxxxxx
> | Thanks but I am still getting a type mismatch error.
> | "Kevin Spencer" <kevin@xxxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> | news:OQe%23HzB5FHA.3876@xxxxxxxxxxxxxxxxxxxxxxx
> | > <%
> | > Dim Total
> | > Dim GrandTotal
> | > GrandTotal = 0
> | > Do While not aScrRst.EOF
> | > Do While not eScrRst.EOF
> | > Do While not iScrRst.EOF
> | > Total = iScrRst("Score") + eScrRst("Score") * aScrRst("Score")
> | > GrandTotal = GrandTotal + Total
> | >
> | > Response.Write "Total: " & Total
> | >
> | > aScrRst.MoveNext
> | > eScrRst.MoveNext
> | > iScrRst.MoveNext
> | >
> | > Loop
> | > Loop
> | > Loop
> | > Response.Write "GrandTotal: " & GrandTotal
> | >
> | > --
> | > HTH,
> | >
> | > Kevin Spencer
> | > Microsoft MVP
> | > .Net Developer
> | > A watched clock never boils.
> | >
> | >
> | > "RobA" <anon@xxxxxxxxxxx> wrote in message
> | > news:v0Sbf.8228$lJ.3691@xxxxxxxxxxxxxxxxxxxxxxx
> | >> Can anyone point me in the direction of some guidance for handling
> | >> recordset values.
> | >>
> | >> I am trying to calculate a resultant value (total) of adding 2 values
> and
> | >> mulitplying by the third.
> | >>
> | >> Eventually I wanted to get total for the resultant value (all the
> totals
> | >> added together) for the whole recordset!
> | >>
> | >> <%
> | >> Dim Total
> | >> Do While not aScrRst.EOF
> | >> Do While not eScrRst.EOF
> | >> Do While not iScrRst.EOF
> | >> Total = iScrRst("Score") + eScrRst("Score") * aScrRst("Score")
> | >>
> | >> Response.Write "Total"
> | >>
> | >> aScrRst.MoveNext
> | >> eScrRst.MoveNext
> | >> iScrRst.MoveNext
> | >>
> | >>
> | >> Loop
> | >> Loop
> | >> Loop
> | >> %>
> | >>
> | >
> | >
> |
> |
>
>


.

Relevant Pages

  • Re: One more ! Calculating Recordset Values
    ... Well I am almost there lol, got the recordset to work properly returning all ... the values in the one "loop" so to speak and I can see them being returned ... >> Dim aTot, eTot, iTot, pSubTot, aStrengthSubTot, PTotal, SubTotal, ... >>> totals ...
    (microsoft.public.frontpage.programming)
  • Re: One more ! Calculating Recordset Values
    ... | There are the same amount of records in each recordset. ... |>> Loop ...
    (microsoft.public.frontpage.programming)
  • Re: One more ! Calculating Recordset Values
    ... There are the same amount of records in each recordset. ... >> Dim aTot, eTot, iTot, pSubTot, aStrengthSubTot, PTotal, SubTotal, ... >>> totals ...
    (microsoft.public.frontpage.programming)
  • Re: Group by with subtotals
    ... You should use a disconnected recordset so that you can minimize the time ... Run a second query to retrieve the subtotals into a second disconnected ... mySQL = "SELECT TblToner.ID, ... In the loop through the first recordset, use a couple of variables (curID, ...
    (microsoft.public.inetserver.asp.db)
  • Re: How to solve for smallest and largest int?
    ... snip ... ... > A simple example is a function that totals all the elements in an ... > for i in Item'Range loop ... However the programmer who has never used the dangerous languages, ...
    (comp.programming)
Loading