<% Dim f, n, n1, ref f = Request.ServerVariables("URL") n = InStr(f, "rating_") f = Right(f, Len(f) - n - 6) f = Replace(f, ".asp", "") f = Trim(Replace(f, "_", " ")) Dim o, i i = "c:\Qweas-Imp\ratings.ini" Set o = Server.CreateObject("qwRate.cRate") Dim ver, scr, scr160, d1, d2, d3, buy, pri, size, code, web, d80, app, lic, os ver = o.GetKeyValue(f, "version", i) scr = o.GetKeyValue(f, "screen", i) scr160 = o.GetKeyValue(f, "screen160", i) d1 = o.GetKeyValue(f, "down1", i) d2 = o.GetKeyValue(f, "down2", i) d3 = o.GetKeyValue(f, "down3", i) buy = o.GetKeyValue(f, "order", i) pri = o.GetKeyValue(f, "price", i) size = o.GetKeyValue(f, "size", i) code = o.GetKeyValue(f, "code", i) web = o.GetKeyValue(f, "website", i) d80 = o.GetKeyValue(f, "desc80", i) app = o.GetKeyValue(f, "appinfo", i) lic = o.GetKeyValue(f, "license", i) os = o.GetKeyValue(f, "os", i) n = o.getScoreByCode(code) s = o.getDetailsHTML(code, 1) Set o = Nothing ref = "unrated.png" n1 = 0 If Len(code) = 36 Then Set o = Nothing If n>80 Then n1 = 5 If n<81 And n>60 Then n1 = 4 If n<61 And n>40 Then n1 = 3 If n<41 And n>20 Then n1 = 2 If n<21 Then n1 = 1 End If If n1>0 Then ref = n1 & "stars.gif" ref = "/rate/images/" & ref Dim title, down, fver title = f & " " & ver & " by " & web & " was rated " & n1 & " stars " fver = f & " " & ver down = " " If Len(d1) > 10 Then down = down & "Download 1" & "" If Len(d2) > 10 Then down = down & " - Download 2" & "" If Len(d3) > 10 Then down = down & " - Download 3" & "" down = down & " " pri = pri & "   " If Len(buy) > 10 Then pri = pri & "Buy Now" & "" %> <%=title%>
bookmark this page - make qweas your homepage  
Help Center - What's New - Newsletter - Press  
Get Buttons - Link to Us - Feedback - Contact Us  
Home | Download | Store | New Releases | Most Popular | Editor Picks | Special Prices | Rate | News | FAQ

<%=fver%>

<%=s%>

<%=d80%>

Software Details
Software Name: <%=f%>
<%=f%>
Version Number: <%=ver%>
Official Website: <%=web%>
Setup File Size: <%=size%>
Downlaod Links: <%=down%>
Software Price: <%=pri%>
Software License: <%=lic%>
Operating System: <%=os%>
See Rating Guides | Get Award Images
Rating Results
Total Points<%=n%>
Stars Awarded<%=n1%> Stars     See Rating Guides | Get Award Images

Search - Download - Store - Directory - Service - Developer Center
© 2006 Qweas Home - Privacy Policy - Terms of Use - Site Map - About Qweas