Problem med farveskift mht "procent" beregning

Jeg en mega database... som indeholder 5 kolloner, alle med en INT værdi mellem 0 og 10^100

jeg vil gerne i kraft af disse tal have opstillet en Case Select eller If-Then-Else sætning som kan tilskrive Variablen "Farve" en værdier
----------

Dim sv1, sv2, sv3, sv4, sv5, sv6
      sv1 = int(CarsforRate("svar1") * 0  )
      sv2 = int(CarsforRate("svar2") * 20 )
      sv3 = int(CarsforRate("svar3") * 40 )
      sv4 = int(CarsforRate("svar4") * 60 )
      sv5 = int(CarsforRate("svar5") * 80 )
      sv6 = int(CarsforRate("svar6") * 100)
      Dim Coolness
      If (sumsvar = 0) then sumsvar = 1
      coolness = int((sv1 + sv2 + sv3 + sv4 + sv5 + sv6) / sumsvar)
      Response.Write(Coolness)

Dim Farve
'(tilskrivning af farven)

------------
Farven skal derefter bruges her:
-----------
<table bgcolor="<%=Farve%>" border="1" cellpadding="0" cellspacing="0" width="<%=coolness%>%">
-----------

Um muligt kunne jeg godt tænke mig at Farven var mere nuanceret... dvs. en procentvis opdelt spektra, fra GRØN gennem GUL til RØD