on this website. These <%=Application("sitetitleb")%> are voted on by the visitors and posted here based on the votes." /> " />

Top Rated <%=Application("sitetitleb")%>


    <% if application("toprated") = "" or application("topratedtime") < Now() then Dim topratedarray topratedarray = application("ALLPICSTOPRATED") for x = 0 to 10 viewed = clng(topratedarray(2, x)) votescount = clng(topratedarray(3, x)) vote = clng(topratedarray(4, x)) tup=vote tdn=votescount - tup html = html & "
  • " & server.HTMLEncode(topratedarray(1,x)) & "" html = html & ", Votes: " & votescount & " , Thumbs Up: " & tup & " , Thumbs Down: " & tdn html = html & "
  • " & vbcr next application("toprated") = html application("topratedtime")=dateadd("n", 15, now()) end if response.write application("toprated") %>

Return to the <%=Application("sitetitle")%> Home Page