frankie
Posts: 6
|
| Posted: 06/15/2004, 11:25 AM |
|
Hello,
I am trying to make a poll aplication by using CCS2+ASP3 & 2000Access. Since I am new in Code writting, I am dwelling on the following codes to calculate/show a value with its decimal places. In my application, I can not end up with RESULTQ, RESULTR and RESULTP with their decimal sides, therefore, can not display the requred pics corresponding to values between, for example, 1 and 2. So, I always end up with truncated values without any decimal places. Please refer to the following, which is the some part of my application.
I really appreciate for any help.
Dim COUNTALL
Dim SUMALLQ
Dim SUMALLP
Dim SUMALLR
Dim RESULTQ
Dim RESULTP
Dim RESULTR
Dim GRANDRESULT
COUNTALL = RfqRatings.DataSource.Recordset.RecordCount
SUMALLQ = CCDLookUp("SUM(Quality)","RfqRatings","ContactID=" & CCToSQL(CCGetUserID,"Integer"), DBConnection1)
SUMALLP = CCDLookUp("SUM(Payment)","RfqRatings","ContactID=" & CCToSQL(CCGetUserID,"Integer"), DBConnection1)
SUMALLR = CCDLookUp("SUM(Responsiveness)","RfqRatings","ContactID=" & CCToSQL(CCGetUserID,"Integer"), DBConnection1)
RESULTQ = SUMALLQ \ COUNTALL
RESULTP = SUMALLP \ COUNTALL
RESULTR = SUMALLR \ COUNTALL
GRANDRESULT = (RESULTQ + RESULTP + RESULTR) \ 3
If RESULTQ = Empty Then
RfqRatings.kalite1.value = "../images/kahve.gif"
RfqRatings.kalite2.value = "../images/kahve.gif"
RfqRatings.kalite3.value = "../images/kahve.gif"
RfqRatings.kalite4.value = "../images/kahve.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseIf RESULTQ = 1 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kahve.gif"
RfqRatings.kalite3.value = "../images/kahve.gif"
RfqRatings.kalite4.value = "../images/kahve.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ > 1 and RESULTQ < 2 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmiziyarim.gif"
RfqRatings.kalite3.value = "../images/kahve.gif"
RfqRatings.kalite4.value = "../images/kahve.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ = 2 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kahve.gif"
RfqRatings.kalite4.value = "../images/kahve.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ > 2 and RESULTQ < 3 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kirmiziyarim.gif"
RfqRatings.kalite4.value = "../images/kahve.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ = 3 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kirmizi.gif"
RfqRatings.kalite4.value = "../images/kahve.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ > 3 and RESULTQ < 4 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kirmizi.gif"
RfqRatings.kalite4.value = "../images/kirmiziyarim.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ = 4 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kirmizi.gif"
RfqRatings.kalite4.value = "../images/kirmizi.gif"
RfqRatings.kalite5.value = "../images/kahve.gif"
elseif RESULTQ > 4 and RESULTQ < 5 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kirmizi.gif"
RfqRatings.kalite4.value = "../images/kirmizi.gif"
RfqRatings.kalite5.value = "../images/kirmiziyarim.gif"
elseif RESULTQ = 5 then
RfqRatings.kalite1.value = "../images/kirmizi.gif"
RfqRatings.kalite2.value = "../images/kirmizi.gif"
RfqRatings.kalite3.value = "../images/kirmizi.gif"
RfqRatings.kalite4.value = "../images/kirmizi.gif"
RfqRatings.kalite5.value = "../images/kirmizi.gif"
End if
|
 |
 |
|