how do i calculate values retieved from a database

[chryso]

Desperate Help Needed!!!!!!!!!!!
I have retrieved stored values from the database, but how can i
convert them to be used for a calculation and how can i apply
the select statement to get the correct BasicPay calculation.....

Please help....Desperately...Chryso....Thanxs

<%
Dim BasicPay, Payfreq, PayRate, StdHours
Dim objRS ' recordset object
Set objRS = Server.CreateObject (&quot;ADODB.Recordset&quot ' create recordset object
objRS.Open &quot;Personal&quot;, objConn, _
adOpenForwardOnly, adLockReadOnly, adCmdTable ' now open it


Response.Write &quot; You are paid &quot; & objRS.Fields(&quot;Payfreq&quot & &quot;,<BR> &quot;
Response.Write &quot;Your rate of pay is £&quot; & objRS.Fields(&quot;PayRate&quot & &quot; per hour &quot; & &quot;, <BR>&quot;
Response.Write &quot;You have worked &quot; & objRS.Fields(&quot;stdHours&quot & &quot; hours &quot; & objRS.Fields(&quot;Payfreq&quot & &quot;, <BR>&quot;
objRS.Close ' now close it
Set objRS = Nothing ' ...and clean up

%>

<% Select case Payfreq
case &quot;Weekly&quot;
BasicPay = Payrate * StdHours
case &quot;Monthly&quot;
BasicPay = (PayRate * StdHours)*4
End Select %>

 

[foxbox]

Use the Cint() and/or CDbl() functions.

br
Gerard
(-:

Better a known bug then a new release.

 

[GlennBSI]

You need to assign the rs values to your variables:

Dim BasicPay, Payfreq, PayRate, StdHours
Dim objRS              ' recordset object
Set objRS = Server.CreateObject ("ADODB.Recordset")    ' create recordset object
objRS.Open "Personal", objConn, _
             adOpenForwardOnly, adLockReadOnly, adCmdTable           ' now open it

Payfreq = objRS.Fields.item("Payfreq").value
PayRate = objRS.Fields.item("PayRate").value
StdHours = objRS.Fields.item("StdHours").value

Response.Write &quot; You are paid &quot; & PayFreq & &quot;,<BR> &quot;
Response.Write &quot;Your rate of pay is £&quot; & PayRate & &quot; per hour &quot; & &quot;, <BR>&quot;
Response.Write &quot;You have worked &quot; & StdHours & &quot; hours &quot; & Payfreq & &quot;, <BR>&quot;
objRS.Close                    ' now close it
Set objRS = Nothing            ' ...and clean up