Re: One more ! Calculating Recordset Values

It is a decimal field in the database that is being pulled into the
recordset.

There are the same amount of records in each recordset.

I have tested it without the calculations and all of the recordset values
are returned and can be written, just can't do any calculation.

Rob
"Kevin Spencer" <kevin@xxxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:umLjn8F5FHA.1416@xxxxxxxxxxxxxxxxxxxxxxx
> What is the dat type of these fields?
>
> --
> HTH,
>
> Kevin Spencer
> Microsoft MVP
> .Net Developer
> Complex things are made up of
> Lots of simple things.
>
> "RobA" <anon@xxxxxxxxxxx> wrote in message
> news:T00cf.4397$8R6.1482@xxxxxxxxxxxxxxxxxxxxxxx
>> 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
    ... > | There are the same amount of records in each recordset. ... > |>> Response.Write pSubTot ... > |>> Loop ...
    (microsoft.public.frontpage.programming)
  • Re: DAO MUCH faster than ADO in this test
    ... DAO is well-known to be faster than ADO. ... Of course the DAO loop ran faster than the SQL loop; ... advantage of a table-type recordset, which only works on local tables. ... Dim starttime As Single, finishtime As Single ...
    (microsoft.public.access.modulesdaovba)
  • 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
    ... 'Transfer recordset values to equation values ... 'Total = The sum of all the SubTotals ... Loop ...
    (microsoft.public.frontpage.programming)
  • Re: Do While Loop nested in another While causes error
    ... still doesn't explain why a nested DO loop would cause problems. ... Until you sort out the contents of the recordset, ... idHolder = rsGuestbook ... display that new ID. ...
    (microsoft.public.inetserver.asp.db)
Loading