Best of the Best Cute Pictures
Here are the most viewed Cute Pictures over the past 30 days. <% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objTextStream const strFileName = "D:\sites\pics-cutestpage\spons\linkunit.htm" const fsoForReading = 1 If objFSO.FileExists("D:\sites\pics-cutestpage\spons\linkunit.htm") then 'The file exists, so open it and output its contents Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading) linkunitcontents = "" & objTextStream.ReadAll & "" objTextStream.Close Set objTextStream = Nothing else linkunitcontents = "" End If 'Clean up totpics = application("TOTTOPPICS") Dim allpics allpics = application("TOPPICS") html = "" for i = 0 to totpics TIT = allpics(4, i) html = html & "
This list is created based on user feedback of the best cute pictures we have to offer here on our website. What happens is you go to one of the cute pictures above and then you click the rating buttons. The cute pictures with the highest ratings making it onto this top rated cute pics list.
So , long story short if you disagree with the pictures here on the top rated page, please go up to the cute picture listed above and click the link, then rate the ones you think are the cutest.
Return to the Cute Pictures home page