. These are voted on by the visitors." /> " />

Top Rated Pictures:

Here are the top rated pictures from the site over the past several months. These are voted on by you.

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