<%@ Language=VBScript %> <% Dim code, o, ref code = Trim(Request.QueryString("code")) ref = "unrated.png" If Len(code) = 36 Then Set o = CreateObject("qwRate.cRate") n = o.getScoreByCode(code) Set o = Nothing If n>80 Then ref="5stars.gif" If n<81 And n>60 Then ref="4stars.gif" If n<61 And n>40 Then ref="3stars.gif" If n<41 And n>20 Then ref="2stars.gif" If n<21 Then ref="1stars.gif" End If Response.Redirect "/developer/awards/" & ref %>