Rating bjælke

F.eks. sådan:

Rating = 3
Tor PosibleRating=1 To 5
    If Rating <= PosibleRating Then
        Response.Write "<img src='brightStar.gif'>"
    Else
        Response.Write "<img src='dimmedStar.gif'>"
    End If
Next

Overså den med 4,5... Skal skalaen springe i trin af 0,5 eller havde du tænkt dig at den skulle være helt flydende?

den skal være helt flydende. (Den anden løsning er nemlig den jeg har nu :) )

Jeg tror desværre at det vil kræve at du generere grafikken runtime.

Du kunne også lave et alternativ, hvor du har en gul stjerne, en grå stjerne, og så et sæt af stjerner som skifter fra gul til grå i f.eks. en skala på 1/10-dele. Så kunne ratingen udskrives som et antal gule stjerner, en af mellem-stjernerne, og så grå stjerner for resten. Godt nok ville dette ikke være helt flydende - men det ville være tæt nok på til at se sådan ud.

hvad mener du med at generere grafikken runtime?

Eller, lade skalaen være, det antal pixel stjernen er.. så kan man jo ikke se forskel alligevel..

Med "runtime" mener jeg at du har installeret en grafisk komponent, som tillader dig at lave billeder ved at programmere - i modsætning til blot at linke til allerede eksisterende billeder.

ok, det er vist overkill.

Enig. Jeg tror mere på den med mellem-stjernerne.

I stedet for lige 1/10-dele så burde man dog bruge jps6kb's foreslag. :^)

jeg tror faktisk jeg har fundet løsningen.
Jeg laver 2 billeder. Et af alle 5 stjerner i gul og et i gråt. Så starter jeg en tabel i billedets fulde bredde og højde og sætter billedet i gråt ind som baggrund. Derefter lægger jeg en ny tabel indeni den anden og lægger billedet i gul som baggrund. Derefter kan jeg jo bare sætte en funktion til at bestemme bredden af den inderste tabel. Jo mindre bredde jo mere kan man se af det grå og jo mindre af det gule.

Jeg prøver det lige af.

OID = "62"

function GetRating(OID)
  sql = "SELECT Avg(Ratings.ARating) AS GennemsnitOfARating FROM Ratings GROUP BY Ratings.OID HAVING (((Ratings.OID)=" & cint(OID) & "));"
  Set RecRating = DB.Execute(sql)
      if not RecRating.eof then
    numberofRatings = round(RecRating("GennemsnitOfARating"))
   
   
      end if
   
end function

GetRating OID
PraecisRating = round(RecRating("GennemsnitOfARating"),"3")
Gange = 40
Pixel = PraecisRating * Gange
%>



<table width="200" height="40" border="0" cellpadding="0" cellspacing="0" id="graa">
  <tr>
    <td nowrap background="stjerneratinggraa.gif">
        <table width="<% =Pixel %>" height="40" border="0" cellpadding="0" cellspacing="0" id="gul">
              <tr>
                <td width="100%" background="stjerneratinggul.gif">&nbsp;</td>
              </tr>
        </table>
    </td>
  </tr>
</table>